test/t5900-sc.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 # See test_importer comments for mode definitions.
   9 my $mode = ((shift @ARGV) || "check");
  10
  11 &message ("Check the sc importer.");
  12 &test_importer ("$samples/sc/demo_func", "b1868a85945568d907da7dfad34c498cf1209512", $mode);
  13 &test_importer ("$samples/sc/demo_math", "b081197e521cbf973cc309a2c15453f4c8feb55c", $mode);