| changeset 683 | 8e0eb519ef53 |
| parent 676 | b5e6747818a9 |
| 682:2c32f186fa1f | 683:8e0eb519ef53 |
|---|---|
25 use EvalidCompare; |
25 use EvalidCompare; |
26 |
26 |
27 my $passed=0; |
27 my $passed=0; |
28 my $failed=0; |
28 my $failed=0; |
29 |
29 |
30 GetOptions("c", "v", "l=s", "g", "f", "m", "u", "x=s@", "i=s@", "d=s"); |
30 GetOptions("c", "v", "l=s", "k", "g", "f", "m", "u", "x=s@", "i=s@", "d=s"); |
31 $opt_v = $opt_v; # To keep -w quiet. |
31 $opt_v = $opt_v; # To keep -w quiet. |
32 $opt_g = $opt_g; # To keep -w quiet. |
32 $opt_g = $opt_g; # To keep -w quiet. |
33 $opt_f = $opt_f; # To keep -w quiet. |
33 $opt_f = $opt_f; # To keep -w quiet. |
34 $opt_m = $opt_m; # To keep -w quiet. |
34 $opt_m = $opt_m; # To keep -w quiet. |
35 $opt_u = $opt_u; # To keep -w quiet. |
35 $opt_u = $opt_u; # To keep -w quiet. |
36 $opt_d = $opt_d; # To keep -w quiet. |
36 $opt_d = $opt_d; # To keep -w quiet. |
37 $opt_k = $opt_k; # To keep -w quiet. |
|
37 |
38 |
38 unless ((@ARGV > 1) && (@ARGV < 4)) |
39 unless ((@ARGV > 1) && (@ARGV < 4)) |
39 { |
40 { |
40 #........1.........2.........3.........4.........5.........6.........7..... |
41 #........1.........2.........3.........4.........5.........6.........7..... |
41 print <<USAGE_EOF; |
42 print <<USAGE_EOF; |
59 The opts parameter controls where the output goes: |
60 The opts parameter controls where the output goes: |
60 |
61 |
61 -v -- verbose information about failed comparisons |
62 -v -- verbose information about failed comparisons |
62 -c -- print results to standard output |
63 -c -- print results to standard output |
63 -l <logfile> -- append results to <logfile> |
64 -l <logfile> -- append results to <logfile> |
65 -k -- keep going |
|
64 |
66 |
65 The default is equivalent to "-l evalid.lis" |
67 The default is equivalent to "-l evalid.lis" |
66 |
68 |
67 |
69 |
68 MD5 Options in addition to standard options: |
70 MD5 Options in addition to standard options: |
309 { |
311 { |
310 problem("File $left does not exist"); |
312 problem("File $left does not exist"); |
311 return; |
313 return; |
312 } |
314 } |
313 |
315 |
314 my ($same, $type) = EvalidCompare::CompareFiles($left, $right, $opt_v, $log); |
316 my ($same, $type) = EvalidCompare::CompareFiles($left, $right, $opt_v, $log, $opt_k); |
315 if ($same) |
317 if ($same) |
316 { |
318 { |
317 identical($left, $right, $type); |
319 identical($left, $right, $type); |
318 } |
320 } |
319 else |
321 else |