2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 my $file = "datefuns.xls";
9 &message
("Check that $file evaluates correctly.");
10 &test_sheet_calc
("$samples/excel/$file", "A4", sub { /All ok
/i
});