From 4781ff88fd4d32cce653d466146c71da92f68ee2 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Tue, 30 Nov 2004 09:53:53 +0000
Subject: Fixed the array comparison function even more, made the temporary
 files used for diff output get created in the log/ dir and no longer deletes
 them since they help in understanding the problem, fixing the test case and
 fixing curl problems.

---
 tests/getpart.pm  | 33 ++++++++-------------------------
 tests/runtests.pl |  2 +-
 2 files changed, 9 insertions(+), 26 deletions(-)

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 48be6c2da..898ecec6b 100644
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -154,22 +154,8 @@ sub striparray {
 sub compareparts {
  my ($firstref, $secondref)=@_;
 
- my $sizefirst=scalar(@$firstref);
- my $sizesecond=scalar(@$secondref);
-
- my $first;
- my $second;
-
- for(1 .. $sizefirst) {
-     my $index = $_ - 1;
-     if($firstref->[$index] ne $secondref->[$index]) {
-         (my $aa = $firstref->[$index]) =~ s/\r+\n$/\n/;
-         (my $bb = $secondref->[$index]) =~ s/\r+\n$/\n/;
-         
-         $first .= $firstref->[$index];
-         $second .= $secondref->[$index];
-     }
- }
+ my $first = join("", @$firstref);
+ my $second = join("", @$secondref);
 
  # we cannot compare arrays index per index since with the base64 chunks,
  # they may not be "evenly" distributed
@@ -214,16 +200,14 @@ sub loadarray {
     return @array;
 }
 
-#
-# Given two array references, this function will store them in two
-# temporary files, run 'diff' on them, store the result, remove the
-# temp files and return the diff output!
-# 
+# Given two array references, this function will store them in two temporary
+# files, run 'diff' on them, store the result and return the diff output!
+
 sub showdiff {
-    my ($firstref, $secondref)=@_;
+    my ($logdir, $firstref, $secondref)=@_;
 
-    my $file1=".generated";
-    my $file2=".expected";
+    my $file1="$logdir/check-generated";
+    my $file2="$logdir/check-expected";
     
     open(TEMP, ">$file1");
     for(@$firstref) {
@@ -238,7 +222,6 @@ sub showdiff {
     close(TEMP);
     my @out = `diff -u $file2 $file1`;
 
-    unlink $file1, $file2;
     return @out;
 }
 
diff --git a/tests/runtests.pl b/tests/runtests.pl
index 5f69e918e..dfc065dcf 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -653,7 +653,7 @@ sub compare {
     if($result) {
         if(!$short) {
             print "\n $subject FAILED:\n";
-            print showdiff($firstref, $secondref);
+            print showdiff($LOGDIR, $firstref, $secondref);
         }
         else {
             print "FAILED\n";
-- 
cgit v1.2.3