t/003_basic_matlab_io.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 = "[1 1 1; 2 2 2; 3 3 3]";
  16 run_matlab_cmd($cmd);
  17 }
  18
  19 ##
  20 $erm = "output didn't match what I expected";
  21 $tm  = "received the expected output";
  22
  23 my $expected_fn = "t/expected_output/003_basic_matlab_io";
  24
  25 open(my $expected, "<", $expected_fn);
  26 open(my $got,      "<", "t/matlab_output/output");
  27
  28 $d->addfile($expected);
  29 my $d_expected = $d->hexdigest;
  30
  31 $d->addfile($got);
  32 my $d_got = $d->hexdigest;
  33
  34 print Dumper($d_expected);
  35 print Dumper($d_got);
  36
  37 ok(($d_expected eq $d_got or die($erm)),$tm);
  38 ##