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 sc importer.");
12 &test_importer
("$samples/sc/demo_func", "b1868a85945568d907da7dfad34c498cf1209512", $mode);
13 &test_importer
("$samples/sc/demo_math", "b081197e521cbf973cc309a2c15453f4c8feb55c", $mode);