7 my (@output) = read_text_file ("$test.output");
9 common_checks (@output);
10 @output = get_core_output (@output);
13 for my $i (0...$#output) {
14 $begin = $i, last if $output[$i] eq '(dir-lsdir) begin';
16 fail "\"(dir-lsdir) begin\" does not appear in output\n" if !defined $begin;
19 for my $i (0...$#output) {
20 $end = $i, last if $output[$i] eq '(dir-lsdir) end';
22 fail "\"(dir-lsdir) end\" does not appear in output\n" if !defined $end;
23 fail "\"begin\" follows \"end\" in output\n" if $begin > $end;
26 for my $fn (@output[$begin + 1...$end - 1]) {
28 fail "Unexpected file \"$fn\" in lsdir output\n"
29 unless grep ($_ eq $fn, qw (. .. dir-lsdir));
30 fail "File \"$fn\" listed twice in lsdir output\n"
34 fail "No files in lsdir output\n" if scalar (keys (%count)) == 0;
35 fail "File \"dir-lsdir\" missing from lsdir output\n"
36 if !$count{"dir-lsdir"};