toychain/t/getChainHeight.t

#!/usr/bin/perl

BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }

use toychain;
use YAML::Syck qw(Dump);

print "// testing $0\n";
my $height = getChainHeight();

printf "height: %s\n",$height;



exit $?;
1;#