[LON-CAPA-cvs] cvs: loncom /test filecomparetest.pl

[harris41]

harris41		Sat Jul 13 20:41:40 2002 EDT

  Modified files:              
    /loncom/test	filecomparetest.pl 
  Log:
  changing hard-coded directory name to existing directory variable
  
  
Index: loncom/test/filecomparetest.pl
diff -u loncom/test/filecomparetest.pl:1.1 loncom/test/filecomparetest.pl:1.2
--- loncom/test/filecomparetest.pl:1.1	Fri Nov 16 20:08:55 2001
+++ loncom/test/filecomparetest.pl	Sat Jul 13 20:41:40 2002
@@ -11,7 +11,7 @@
 my $dir='fctest';
 my %tests=(
 	   "perl ../build/filecompare.pl -p $dir/fileA.txt $dir/fileB.txt",
-	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: same\tsize: 0\tlines: 0\tdiffs: 0:0",
+	   "$dir/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: same\tsize: 0\tlines: 0\tdiffs: 0:0",
 	   "perl ../build/filecompare.pl -p $dir/fileA.txt $dir/fileE.txt",
 	   "",
 	   "perl ../build/filecompare.pl -p $dir/fileA.txt $dir/fileC.txt",
@@ -19,13 +19,13 @@
 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileB.txt",
 	   "",
 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileE.txt",
-	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: different\tsize: 29\tlines: 1\tdiffs: 1:0",
+	   "$dir/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: different\tsize: 29\tlines: 1\tdiffs: 1:0",
 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileC.txt",
-	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: different\tsize: -2\tlines: 0\tdiffs: 1:1",
+	   "$dir/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: different\tsize: -2\tlines: 0\tdiffs: 1:1",
 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileF.txt",
-	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: -3\tmd5sum: different\tsize: 29\tlines: 1\tdiffs: 1:0",
+	   "$dir/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: -3\tmd5sum: different\tsize: 29\tlines: 1\tdiffs: 1:0",
 	   "perl ../build/filecompare.pl -q $dir/fileA.txt $dir/fileF.txt",
-	   "fctest/fileA.txt",
+	   "$dir/fileA.txt",
 	   "perl ../build/filecompare.pl -b1 $dir/fileA.txt $dir/fileB.txt",
 	   "1",
 	   "perl ../build/filecompare.pl -b1 $dir/fileA.txt $dir/fileC.txt",
@@ -33,7 +33,7 @@
 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileC.txt age",
 	   "",
 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileC.txt age size",
-	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: different\tsize: -2\tlines: 0\tdiffs: 1:1",
+	   "$dir/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: different\tsize: -2\tlines: 0\tdiffs: 1:1",
 	   );
 
 unless (-d $dir) {