2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 my $file = "yalta2008.xls";
9 &message
("Check that $file evaluates correctly.");
10 &test_sheet_calc
("$samples/excel/$file", "D10:D99", sub { /^(\s
*TRUE
)+\s
*$/i
});