Fix a few compiler errors reported correctly my MSVC 9.0.

Fix libtests test suites to pass on Windows, mostly by dealing with
ascii vs. binary and NL vs. CRNL change ($td->NORMALIZE_NEWLINES).
Convert some test suites to use fread instead of read.
PCRE.hh: define PCRE_STATIC if on Windows.
Provide cross-platform function for getting current time instead of
using time(0).


git-svn-id: svn+q:///qpdf/trunk@678 71b93d88-0707-0410-a8cf-f5a4172ac649

8 files changed, 15 insertions, 9 deletions

diff --git a/libtests/qtest/ascii85.test b/libtests/qtest/ascii85.test
index 07551bd1..7ea3ee42 100644
--- a/libtests/qtest/ascii85.test
+++ b/libtests/qtest/ascii85.test
@@ -17,6 +17,7 @@ $td->runtest("decode",
 $td->runtest("partial decode",
 	     {$td->COMMAND => "echo '\@<5skEHbu7\$3~>' | ascii85"},
 	     {$td->STRING => "asdfqwer\n",
-	      $td->EXIT_STATUS => 0});
+	      $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
 
 $td->report(2);
diff --git a/libtests/qtest/bits.test b/libtests/qtest/bits.test
index f5dac7b5..08bee707 100644
--- a/libtests/qtest/bits.test
+++ b/libtests/qtest/bits.test
@@ -12,6 +12,7 @@ my $td = new TestDriver('bits');
 $td->runtest("bits",
 	     {$td->COMMAND => "bits"},
 	     {$td->FILE => "bits.out",
-	      $td->EXIT_STATUS => 0});
+	      $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
 
 $td->report(1);
diff --git a/libtests/qtest/buffer.test b/libtests/qtest/buffer.test
index 83ce4643..38da9fc3 100644
--- a/libtests/qtest/buffer.test
+++ b/libtests/qtest/buffer.test
@@ -12,6 +12,7 @@ my $td = new TestDriver('buffer');
 $td->runtest("buffer",
 	     {$td->COMMAND => "buffer"},
 	     {$td->FILE => "buffer.out",
-	      $td->EXIT_STATUS => 0});
+	      $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
 
 $td->report(1);
diff --git a/libtests/qtest/lzw.test b/libtests/qtest/lzw.test
index 649cd330..e6142115 100644
--- a/libtests/qtest/lzw.test
+++ b/libtests/qtest/lzw.test
@@ -12,7 +12,7 @@ my $td = new TestDriver('lzw');
 cleanup();
 
 $td->runtest("decode: early code change",
-	     {$td->COMMAND => "lzw < lzw1.in > tmp"},
+	     {$td->COMMAND => "lzw lzw1.in tmp"},
 	     {$td->STRING => "",
 	      $td->EXIT_STATUS => 0});
 
@@ -21,7 +21,7 @@ $td->runtest("check output",
 	     {$td->FILE => "lzw1.out"});
 
 $td->runtest("decode: no early code change",
-	     {$td->COMMAND => "lzw --no-early-code-change < lzw2.in > tmp"},
+	     {$td->COMMAND => "lzw lzw2.in tmp --no-early-code-change"},
 	     {$td->STRING => "",
 	      $td->EXIT_STATUS => 0});
 
diff --git a/libtests/qtest/md5.test b/libtests/qtest/md5.test
index 4c0685cd..076a37ec 100644
--- a/libtests/qtest/md5.test
+++ b/libtests/qtest/md5.test
@@ -12,6 +12,7 @@ my $td = new TestDriver('md5');
 $td->runtest("md5",
 	     {$td->COMMAND => "md5"},
 	     {$td->FILE => "md5.out",
-	      $td->EXIT_STATUS => 0});
+	      $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
 
 $td->report(1);
diff --git a/libtests/qtest/pcre.test b/libtests/qtest/pcre.test
index cf0418da..89a1d83c 100644
--- a/libtests/qtest/pcre.test
+++ b/libtests/qtest/pcre.test
@@ -16,7 +16,7 @@ $td->runtest("PCRE",
 	     $td->NORMALIZE_NEWLINES);
 
 chop(my $supported = `pcre --unicode-classes-supported`);
-if ($supported)
+if ($supported =~ m/^1/)
 {
     $td->runtest("unicode character classes",
 		 {$td->COMMAND => "pcre --unicode-classes"},
diff --git a/libtests/qtest/ph.test b/libtests/qtest/ph.test
index 8e70efd5..9c0ffb8e 100644
--- a/libtests/qtest/ph.test
+++ b/libtests/qtest/ph.test
@@ -12,6 +12,7 @@ my $td = new TestDriver('ph');
 $td->runtest("PointerHolder",
 	     {$td->COMMAND => "pointer_holder"},
 	     {$td->FILE => "ph.out",
-	      $td->EXIT_STATUS => 0});
+	      $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
 
 $td->report(1);
diff --git a/libtests/qtest/qutil.test b/libtests/qtest/qutil.test
index e90692f8..9c0410e5 100644
--- a/libtests/qtest/qutil.test
+++ b/libtests/qtest/qutil.test
@@ -12,6 +12,7 @@ my $td = new TestDriver('qutil');
 $td->runtest("QUtil",
 	     {$td->COMMAND => "qutil"},
 	     {$td->FILE => "qutil.out",
-	      $td->EXIT_STATUS => 0});
+	      $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
 
 $td->report(1);