t/203_typical_enumerative_solver_use.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More qw(no_plan);
   5 use Digest::MD5;
   6 use Data::Dumper;
   7
   8 require 't/lib/Common.pm';
   9
  10 my $erm;
  11 my $tm;
  12 my $d = Digest::MD5->new;
  13
  14 {
  15 my $cmd = "M = [1 2 3; 2 3 2; 3 4 5; 4 5 4];";
  16 $cmd   .= "D=generateDistanceMatrix(M); ";
  17 $cmd   .= "ltspsEnumerativeSolver(D);";
  18 run_matlab_cmd($cmd);
  19 }
  20
  21
  22 {##
  23     $erm = "output didn't match what I expected";
  24     $tm  = "typical enumerative solver use (4 cities in a square)";
  25
  26     my $expected_fn = "t/expected_output/203_typical_enumerative_solver_use";
  27
  28     open(my $expected, "<", $expected_fn);
  29     open(my $got,      "<", "t/matlab_output/output");
  30
  31     $d->addfile($expected);
  32     my $d_expected = $d->hexdigest;
  33
  34     $d->addfile($got);
  35     my $d_got = $d->hexdigest;
  36
  37     print Dumper($d_expected);
  38     print Dumper($d_got);
  39
  40     ok(($d_expected eq $d_got or die($erm)),$tm);
  41 }##