toychain/t/getnip.t

#!/usr/bin/perl
#
# Intent:
#  testing getnip !
#
# 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 essential qw(getnip);


my $nip = &getnip();
printf "nip: 0x%08x\n",$nip;

exit $?;

1;