t/205_ten_point_furthest_heuristic.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 7 7; 2 7 10; 3 3 8; 4 3 2; 5 7 5; 6 5 7; 7 8 4; 8 7 5; 9 9 9; 10 3 7];";
  16 $cmd   .= "D = generateDistanceMatrix(M); ";
  17 $cmd   .= "ltspsFurthestNeighbourHeuristic(M);";
  18 run_matlab_cmd($cmd);
  19 }
  20
  21 ##
  22 $erm = "output didn't match what I expected";
  23 $tm  = "ten point furthest neighbour heuristic use";
  24
  25 my $expected_fn = "t/expected_output/205_ten_point_furthest_heuristic";
  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