Select Code to Download

sub _ref_check {
my ($test,$should_be) = @_;
...
    } # unless ($ref eq $should_be)
return 1;
} #End of subrotuine _ref_check

t\01-sanity.....................ok
t\02-simple.....................ok 16/0
...
[snip]
All tests successful.
Files=9, Tests=101,  1 wallclock secs ( 0.00 cusr +  0.00 csys =  0.00
+ CPU)

t\01-sanity.....................ok