dirhand.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
chdir 't' if -d 't';
print "1..0\n";
exit 0;
}
}
print "1..5\n";
print +(grep { $_ eq $first } @a) ? "ok" : "not ok", " 2\n";
print +(join("\0", @a) eq join("\0", @b)) ? "ok" : "not ok", " 3\n";
print +(join("\0", @b) eq join("\0", @c)) ? "ok" : "not ok", " 4\n";