#!/usr/bin/perl -w
use Test::More;
use strict;
BEGIN
   {
   plan tests => 6;
   chdir 't' if -d 't';
   use lib '../lib';
   use_ok ("Graph::Easy::Layout") or die($@);
   };
can_ok ("Graph::Easy", qw/
  _path_is_clear
  /);
use Graph::Easy;
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');