ip6addr-0.1.1: test/test.pl

#!/usr/bin/perl -w

use Cwd 'abs_path';
use File::Basename;

chdir(dirname(abs_path($0)));
$ip6addr = "../dist/build/ip6addr/ip6addr";

if (-e $ip6addr) {
	@testList = `cat ./inputs`;
	$fcpt = 0;
	print "\n";
	foreach (@testList) {
		@test = split(/!/);
		$result = `$ip6addr $test[0]`;
		chomp($result);
		if ($test[1] == "0") {print "Bad";} else {print "Good";}	
		print " input \"$test[0]\" - ";
		if (($result eq "" && $test[1] == "0")||($result eq $test[0] && $test[1] == "1")) {
			print "PASSED\n";
		} else {
			print "FAILED !\n";
			$fcpt++;
		} 
		$cpt++;
	}
	print "\nTests: $cpt\nFailed tests: $fcpt\n\n";
} else {
	print "Run  a 'make build' before testing...\n"
}