t/201_typical_closest_heuristic_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   .= "ltspsClosestNeighbourHeuristic(M);";
  18 run_matlab_cmd($cmd);
  19 }
  20
  21 ##
  22 $erm = "output didn't match what I expected";
  23 $tm  = "typical closest neighbour heuristic use (4 cities in a square)";
  24
  25 my $expected_fn = "t/expected_output/201_typical_closest_heuristic_use";
  26
  27 open(my $expected, "<", $expected_fn);
  28 open(my $got,      "<", "t/matlab_output/output");
  29
  30 $d->addfile($expected);
  31 my $d_expected = $d->hexdigest;
  32
  33 $d->addfile($got);
  34 my $d_got = $d->hexdigest;
  35
  36 print Dumper($d_expected);
  37 print Dumper($d_got);
  38
  39 ok(($d_expected eq $d_got or die($erm)),$tm);
  40 ##
  41