toychain/t/sdate.t

#!/usr/bin/perl

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

use essential qw(sdate gettics);

my $tics = &gettics();
printf "tics: %s\n",$tics;
my $sdate = &sdate($tics);
printf "sdate: %s\n",$sdate;

exit $?;

1;