view release on metacpan or  search on metacpan

t/embedded-NCustom.t  view on Meta::CPAN

$req = { match => "MINIMUM", version => "1.99.9", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "BELOW")
  || diag("TEST:<check_pkg> checks if package meets minimum version 4/4");
#
$req = { match => "MAXIMUM", version => "1.09.1", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "ABOVE")
  || diag("TEST:<check_pkg> checks if package meets maximum version 2/4");
$req = { match => "MAXIMUM", version => "1.23", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "OK")
  || diag("TEST:<check_pkg> checks if package meets maximum version 3/4");
$req = { match => "MAXIMUM", version => "1.99.9", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "OK")
  || diag("TEST:<check_pkg> checks if package meets maximum version 4/4");
#
$req = { match => "EXACTLY", version => "1.09.1", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "ABOVE")
  || diag("TEST:<check_pkg> checks if package meets exact version 2/4");
$req = { match => "EXACTLY", version => "1.23", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "OK")
  || diag("TEST:<check_pkg> checks if package meets exact version 3/4");
$req = { match => "EXACTLY", version => "1.99.9", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "BELOW")
  || diag("TEST:<check_pkg> checks if package meets exact version 4/4");
#
$req = { match => "NOTWANT", version => "1.09.1", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "UNWELCOME")
  || diag("TEST:<check_pkg> checks if package present 2/4");
$req = { match => "NOTWANT", version => "1.23", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "UNWELCOME")
  || diag("TEST:<check_pkg> checks if package present 3/4");
$req = { match => "NOTWANT", version => "1.99.9", pkg => $p, result=>"" };
&NCustom::check_pkg($req); is($$req{'result'}, "UNWELCOME")
  || diag("TEST:<check_pkg> checks if package present 4/4");
#
output();


    undef $main::_STDOUT_;
    undef $main::_STDERR_;
}

{
    undef $main::_STDOUT_;
    undef $main::_STDERR_;
#line 1463 lib/NCustom.pm

test_reset();
SKIP: {
  skip "apt too intrusive", 6 unless (defined $ENV{'TEST_APT'} || defined $ENV{'TEST_ALL'});
#############
system('rpm -e perl-NCustomDummy > /dev/null 2>&1');
my ($version, $rc);
$version = `rpm -q perl-NCustomDummy --qf  \%{VERSION}`;
like($version, qr/package perl-NCustomDummy is not installed/)
  || diag("TEST:<test setup> must remove perl-NCustomDummy package");
#
#
can_ok("NCustom", qw(apt_fix)) 
  || diag("TEST:<apt_fix> is a public function of NCustom");
#
$rc = required_packages(<<'  EOF');
  EXACTLY;   9.9.9;   perl-NCustomDummy;   apt_fix()
  EOF
ok(! $rc)
  || diag("TEST:<required_packages> must return 0 if requirements arent met");
$version = `rpm -q perl-NCustomDummy --qf  \%{VERSION}`;
like($version, qr/1.23/)
  || diag("TEST:<apt_fix> must will install its version rather than nothing");
#
$rc = required_packages(<<'  EOF');
  NOTWANT;   9.9.9;   perl-NCustomDummy;   apt_fix()
  EOF
is($rc, 1)
  || diag("TEST:<required_packages> must return 1 if requirements are met");
$version = `rpm -q perl-NCustomDummy --qf  \%{VERSION}`;
like($version, qr/package perl-NCustomDummy is not installed/)
  || diag("TEST:<apt_fix> will remove unwanted packages");
############
}
output();


    undef $main::_STDOUT_;
    undef $main::_STDERR_;
}

{
    undef $main::_STDOUT_;
    undef $main::_STDERR_;
#line 1517 lib/NCustom.pm

#FALSE
ok(! &NCustom::vcmp(1,"gt",2) )
  || diag("TEST:<vcmp> compares version strings");
ok(! &NCustom::vcmp(1,"eq",2) )
  || diag("TEST:<vcmp> compares version strings");
ok(! &NCustom::vcmp(3,"gt",3) )
  || diag("TEST:<vcmp> compares version strings");
ok(! &NCustom::vcmp(3,"lt",3) )
  || diag("TEST:<vcmp> compares version strings");
ok(! &NCustom::vcmp(3,"ne",3) )
  || diag("TEST:<vcmp> compares version strings");
#
#TRUE";
ok(&NCustom::vcmp(1,"lt",2) )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp(1,"ne",2) )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp(3,"eq",3) )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp("1.2.3","lt",2) )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp("1.2.3","gt","1.1.99") )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp("1.2.3","eq","1.2.3") )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp(1,"ne",0) )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp("1.2.3","lt",2) )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp("1.2.3","gt","1.1.99") )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp("1.2.3","eq","1.2.3") )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp(1,"ne",0) )
  || diag("TEST:<vcmp> compares version strings");
ok(&NCustom::vcmp("1.2.3","lt","1.03") )
  || diag("TEST:<vcmp> compares version strings");
output();