t/001_tests_exist.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More qw(no_plan);
   5
   6 my @mfiles = qw(draw.m
   7                 drawCities.m
   8                 drawRoute.m
   9                 calculateRouteDistance.m
  10                 generateRandomCoordMatrix.m
  11                 generateDistanceMatrix.m
  12                 ltspsGreedyHeuristic.m
  13                 ltspsClosestNeighbourHeuristic.m
  14                 ltspsFurthestNeighbourHeuristic.m
  15                 ltspsRandomHeuristic.m
  16                 ltspsEnumerativeSolver.m
  17                 );
  18
  19 foreach my $mfile (@mfiles) {
  20     ok(open(my $test, "<", $mfile)) or die("Can't open $mfile for reading");
  21 }