From c199bfa0012d763f1e4684c3cd0ab6c07134ddce Mon Sep 17 00:00:00 2001 From: Nicolas Schodet Date: Fri, 23 Apr 2010 00:34:18 +0200 Subject: digital/avr/modules/path/astar: new A* module --- digital/avr/modules/path/astar/test/test_astar.pl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 digital/avr/modules/path/astar/test/test_astar.pl (limited to 'digital/avr/modules/path/astar/test/test_astar.pl') diff --git a/digital/avr/modules/path/astar/test/test_astar.pl b/digital/avr/modules/path/astar/test/test_astar.pl new file mode 100644 index 00000000..88fcc984 --- /dev/null +++ b/digital/avr/modules/path/astar/test/test_astar.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl +use strict; +use warnings; + +my @tests = ( + [ 'iX___', + '_X_X_', + '___Xg' ], + [ '0X_4_', + '1X3X5', + '_2_X6' ], + ); + +while (@tests) +{ + my @in = @{shift @tests}; + my @out = @{shift @tests}; + open OUT, "./test_astar.host @in|" or die; + my @r = grep s{^// }{}, ; + chomp @r; + die unless "@r" eq "@out"; +} -- cgit v1.2.3