first commit

perl/lib/Graph-Easy-0.76/t/path.t

@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+
+use Test::More;
+use strict;
+
+BEGIN
+   {
+   plan tests => 7;
+   chdir 't' if -d 't';
+   use lib '../lib';
+   use_ok ("Graph::Easy::Layout") or die($@);
+   use_ok ("Graph::Easy") or die($@);
+   };
+
+can_ok ("Graph::Easy", qw/
+  _path_is_clear
+  /);
+
+my $path = [
+  0,0,0,
+  1,0,0,
+  2,0,0,
+  2,1,0,
+  2,2,0,
+  2,3,0,
+  2,4,0,
+  ];
+
+my $cells = {};
+
+#############################################################################
+# path tests
+
+my $graph = Graph::Easy->new();
+is (ref($graph), 'Graph::Easy');
+is ($graph->error(), '', 'no error yet');
+
+$graph->{cells} = $cells;
+
+is ($graph->_path_is_clear( $path, $cells), 1, 'path is clear');
+
+$cells->{"2,2"} = 1;
+
+is ($graph->_path_is_clear( $path, $cells), 0, 'path is blocked');
+
+