- added options to accounting to change format of output
[opensuse:smpppd.git] / testsuite / accounting / checkit
1 #!/usr/bin/perl -w
2
3 $failure = 0;
4
5 @files = glob ("*.log");
6
7 for $file (@files) {
8
9     if (!open (FILE, "$file")) {
10         die "error: can't read `$file': $!\n";
11     }
12
13     $opts = substr (<FILE>, 2);
14     chomp ($opts);
15
16     close (FILE);
17
18     $out = substr ($file, 0, -4) . ".out";
19     $tmp = substr ($file, 0, -4) . ".tmp";
20
21     system ("../../smpppd/accounting --file $file $opts > $tmp 2>&1");
22
23     if (system ("diff -u $out $tmp") == 0) {
24         print "success for $file\n";
25     } else {
26         print "failure for $file\n";
27         $failure = 1;
28     }
29 }
30
31 exit $failure;