version 1.1, 2001/11/17 01:08:55
|
version 1.2, 2002/07/14 00:41:40
|
Line 11
|
Line 11
|
my $dir='fctest'; |
my $dir='fctest'; |
my %tests=( |
my %tests=( |
"perl ../build/filecompare.pl -p $dir/fileA.txt $dir/fileB.txt", |
"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/fileE.txt", |
"", |
"", |
"perl ../build/filecompare.pl -p $dir/fileA.txt $dir/fileC.txt", |
"perl ../build/filecompare.pl -p $dir/fileA.txt $dir/fileC.txt", |
Line 19 my %tests=(
|
Line 19 my %tests=(
|
"perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileB.txt", |
"perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileB.txt", |
"", |
"", |
"perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileE.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", |
"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", |
"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", |
"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", |
"perl ../build/filecompare.pl -b1 $dir/fileA.txt $dir/fileB.txt", |
"1", |
"1", |
"perl ../build/filecompare.pl -b1 $dir/fileA.txt $dir/fileC.txt", |
"perl ../build/filecompare.pl -b1 $dir/fileA.txt $dir/fileC.txt", |
Line 33 my %tests=(
|
Line 33 my %tests=(
|
"perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileC.txt age", |
"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", |
"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) { |
unless (-d $dir) { |