You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
#!/usr/bin/perl
# # Intent: # testing it ! # # Note: # This work has been done during my time at Doctor I·T # # -- Copyright drit, 2021 -- # BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
#use if -e $LIB, $LIB.'/seed'; use seed qw(rand64); use toychain qw(blockAddr); use YAML::Syck qw(Dump); print "testing blockaddr\n"; printf "chain.addr: %s\n",$toychain::chain->{bkaddr};
# f96885aa : 21.4min # 044ce1de : 20.5min my $n0 = rand64(); # n < 18446744073709551616 printf "n0:%s\n",$n0;
my $addr = &blockAddr($toychain::genesis); printf "genesis.addr: %s\n",$addr;
exit $?;
1;
|