From db9b17bcb2a89a7beb8f10e152d6343a1ec0cf22 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Thu, 25 Dec 2014 16:19:21 -0500
Subject: [PATCH] Unit Tests

- Skipped regex case-insensitive tests on Cygwin.  Doesn't work.
---
 test/denotate.t | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/test/denotate.t b/test/denotate.t
index aa6bf3349..b3ca2fd34 100755
--- a/test/denotate.t
+++ b/test/denotate.t
@@ -82,10 +82,18 @@ $output = qx{../src/task rc:$rc rrr 2>&1};
 unlike ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Bibo/ms,                  "$ut: Delete partial match");
 like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms,         "$ut: Kermit the frog now second annotation");
 
-qx{../src/task rc:$rc 1 denotate BErt 2>&1};
-$output = qx{../src/task rc:$rc rrr 2>&1};
-like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms,                     "$ut: Denotate is case sensitive");
-like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms,         "$ut: Kermit the frog still second annoation"); # 15
+if ($^O =~ /cygwin/)
+{
+  skip ("$ut: Denotate is case sensitive");
+  skip ("$ut: Kermit the frog still second annoation");
+}
+else
+{
+  qx{../src/task rc:$rc 1 denotate BErt 2>&1};
+  $output = qx{../src/task rc:$rc rrr 2>&1};
+  like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms,                   "$ut: Denotate is case sensitive");
+  like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms,       "$ut: Kermit the frog still second annoation"); # 15
+}
 
 qx{../src/task rc:$rc 1 denotate Kermit 2>&1};
 $output = qx{../src/task rc:$rc rrr 2>&1};