toychain/t/unlinked.t

#!/usr/bin/perl

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

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

my $seed =  &seed::setseed('beautiful toy chain');

my $bkcontent = { key1 => 'value1', key2 => 'value2' };
my $blk = &unlinkedBlock($bkcontent);

printf "--- # blk %s...\n",Dump($blk);

exit $?;

1;