2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 # See test_importer comments for mode definitions.
9 my $mode = ((shift @ARGV) || "check");
11 &message
("Check the Quattro Pro importer.");
12 &test_importer
("$samples/qpro/gantt.wb3", "1bdf7818cb57540b3e879b451f8249320b5fccef", $mode);