123456789101112131415 #!/usr/bin/perl -wuse Test::Simple tests => 1;use lib '../lib/';use lib 'lib/';use PortageXS;my $pxs = PortageXS->new();# - getHomedir >{ my $homeDir=$pxs->getHomedir(); ok(-d $homeDir,'getHomedir: '.$homeDir);}
#!/usr/bin/perl -w
use
Test::Simple
tests
=> 1;
lib
'../lib/'
;
'lib/'
PortageXS;
my
$pxs
= PortageXS->new();
# - getHomedir >
{
$homeDir
=
->getHomedir();
ok(-d
,
'getHomedir: '
.
);
}