view release on metacpan or  search on metacpan

t/slaughter-api-user-tests.t  view on Meta::CPAN

#  We attempt to fetch the username we're currently running under,
# fetching that from the $USER environmental variable.
#
#


use strict;
use Test::More qw! no_plan !;


my $SELF = getlogin || getpwuid($<) || $ENV{ 'USER' };

#
#  Ensure we have a user we're running as.
#
ok( length($SELF) > 0, "We have a user" );

#
#  Load the Slaughter module
#
BEGIN {use_ok('Slaughter');}