test/t5904-mps.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 mps importer.");
  12 &test_importer ("$samples/solver/blend.mps", "265ed42b7541b772a62ced0726cb39f023d96b12", $mode);
  13 &test_importer ("$samples/solver/afiro.mps", "c68c4cb622d6fed19555f72225e09cd9f9683226", $mode);