Return to filecomparetest.pl CVS log

Up to [LON-CAPA] / loncom / test

Annotation of loncom/test/filecomparetest.pl, revision 1.1

1.1     ! harris41    1: #!/usr/bin/perl
        !             2: 
        !             3: # The LearningOnline Network with CAPA
        !             4: #
        !             5: # YEAR=2001
        !             6: # 11/16 Scott Harrison
        !             7: #
        !             8: #
        !             9: ###
        !            10: 
        !            11: my $dir='fctest';
        !            12: my %tests=(
        !            13: 	   "perl ../build/filecompare.pl -p $dir/fileA.txt $dir/fileB.txt",
        !            14: 	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: same\tsize: 0\tlines: 0\tdiffs: 0:0",
        !            15: 	   "perl ../build/filecompare.pl -p $dir/fileA.txt $dir/fileE.txt",
        !            16: 	   "",
        !            17: 	   "perl ../build/filecompare.pl -p $dir/fileA.txt $dir/fileC.txt",
        !            18: 	   "",
        !            19: 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileB.txt",
        !            20: 	   "",
        !            21: 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileE.txt",
        !            22: 	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: different\tsize: 29\tlines: 1\tdiffs: 1:0",
        !            23: 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileC.txt",
        !            24: 	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: different\tsize: -2\tlines: 0\tdiffs: 1:1",
        !            25: 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileF.txt",
        !            26: 	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: -3\tmd5sum: different\tsize: 29\tlines: 1\tdiffs: 1:0",
        !            27: 	   "perl ../build/filecompare.pl -q $dir/fileA.txt $dir/fileF.txt",
        !            28: 	   "fctest/fileA.txt",
        !            29: 	   "perl ../build/filecompare.pl -b1 $dir/fileA.txt $dir/fileB.txt",
        !            30: 	   "1",
        !            31: 	   "perl ../build/filecompare.pl -b1 $dir/fileA.txt $dir/fileC.txt",
        !            32: 	   "2",
        !            33: 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileC.txt age",
        !            34: 	   "",
        !            35: 	   "perl ../build/filecompare.pl -n $dir/fileA.txt $dir/fileC.txt age size",
        !            36: 	   "fctest/fileA.txt\texistence: yes:yes\tcvstime: n/a\tage: 0\tmd5sum: different\tsize: -2\tlines: 0\tdiffs: 1:1",
        !            37: 	   );
        !            38: 
        !            39: unless (-d $dir) {
        !            40:     `mkdir $dir`;
        !            41: }
        !            42: chdir $dir;
        !            43: open OUT,">fileA.txt";
        !            44: print OUT <<END;
        !            45: Mary had a little lamb
        !            46: Little lamb
        !            47: Little lamb
        !            48: Mary had a little lamb
        !            49: whose hair was white as snow
        !            50: END
        !            51: close OUT;
        !            52: open OUT,">fileB.txt";
        !            53: print OUT <<END;
        !            54: Mary had a little lamb
        !            55: Little lamb
        !            56: Little lamb
        !            57: Mary had a little lamb
        !            58: whose hair was white as snow
        !            59: END
        !            60: close OUT;
        !            61: open OUT,">fileC.txt";
        !            62: print OUT <<END;
        !            63: Mary had a little lamb
        !            64: Little lamb
        !            65: Little lamb
        !            66: Mary had a little lamb
        !            67: whose fleece was white as snow
        !            68: END
        !            69: close OUT;
        !            70: open OUT,">fileD.txt";
        !            71: print OUT <<END;
        !            72: Mary had a little lamb
        !            73: Little lamb
        !            74: Little lamb
        !            75: Mary had a little lamb
        !            76: whose fleece was white as snow
        !            77: END
        !            78: close OUT;
        !            79: open OUT,">fileE.txt";
        !            80: print OUT <<END;
        !            81: Mary had a little lamb
        !            82: Little lamb
        !            83: Little lamb
        !            84: Mary had a little lamb
        !            85: END
        !            86: close OUT;
        !            87: my $now=time;
        !            88: utime($now,$now,'fileA.txt');
        !            89: utime($now,$now,'fileB.txt');
        !            90: utime($now,$now,'fileC.txt');
        !            91: utime($now,$now,'fileD.txt');
        !            92: utime($now,$now,'fileE.txt');
        !            93: sleep 3;
        !            94: open OUT,">fileF.txt";
        !            95: print OUT <<END;
        !            96: Mary had a little lamb
        !            97: Little lamb
        !            98: Little lamb
        !            99: Mary had a little lamb
        !           100: END
        !           101: close OUT;
        !           102: `install -d CVS`;
        !           103: open OUT,">CVS/Entries";
        !           104: print OUT <<END;
        !           105: /fileA.txt/3.14/Mon May  3 15:33:20 1976//
        !           106: /fileF.txt/3.14/Mon May  3 15:33:20 1976//
        !           107: END
        !           108: close OUT;
        !           109: 
        !           110: chdir '..';
        !           111: my $tc=1;
        !           112: my $tt=0;
        !           113: foreach my $test (keys %tests) {
        !           114:     print "Test $tc...";
        !           115:     my $value=`$test 2>/dev/null`; chomp $value;
        !           116:     my $ec=$?/256;
        !           117:     if (length($tests{$test})==1 and $ec==$tests{$test}) {
        !           118: 	print "ok\n";
        !           119: 	$tt++;
        !           120:     }
        !           121:     elsif (length($tests{$test})==1 and $ec!=$tests{$test}) {
        !           122: 	print "FAILED\n";
        !           123:     }
        !           124:     elsif ($value eq $tests{$test}) {
        !           125: 	print "ok\n";
        !           126: 	$tt++;
        !           127:     }
        !           128:     else {
        !           129: 	print "FAILED $test\n";
        !           130:     }
        !           131:     $tc++;
        !           132: }
        !           133: $tc--;
        !           134: 
        !           135: print "Tests: $tt/$tc successful (".sprintf("%3.1f",$tt/$tc*100)." \%)\n";
        !           136: if ($tt!=$tc) {
        !           137:     print "ERROR with filecompare.pl\n";
        !           138:     exit 1;
        !           139: }
        !           140: exit 0;