diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-06-25 18:20:10 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-06-25 18:20:10 +0000 |
commit | 59223e99e4b7df180e3e176227e84ec1a81ad17c (patch) | |
tree | 88bf814f90e451e79ebcf1793a526d94047e058c /t | |
parent | 8928ee9cbf079cfe4d3879752d1703339b4c37a1 (diff) | |
download | perl-URPM-59223e99e4b7df180e3e176227e84ec1a81ad17c.tar perl-URPM-59223e99e4b7df180e3e176227e84ec1a81ad17c.tar.gz perl-URPM-59223e99e4b7df180e3e176227e84ec1a81ad17c.tar.bz2 perl-URPM-59223e99e4b7df180e3e176227e84ec1a81ad17c.tar.xz perl-URPM-59223e99e4b7df180e3e176227e84ec1a81ad17c.zip |
style
Diffstat (limited to 't')
-rw-r--r-- | t/fatal.t | 4 | ||||
-rw-r--r-- | t/parse.t | 4 | ||||
-rw-r--r-- | t/synthesis.t | 2 |
3 files changed, 5 insertions, 5 deletions
@@ -4,7 +4,7 @@ use strict; use Test::More tests => 8; use URPM; -my $u = new URPM; +my $u = URPM->new; eval { $u->parse_hdlist('non-existent'); }; like( $@, qr/^cannot open hdlist file non-existent/, 'fatal error on hdlist not found' ); @@ -13,7 +13,7 @@ eval { $u->parse_synthesis('non-existent'); }; like( $@, qr/^unable to read synthesis file non-existent/, 'fatal error on synthesis not found' ); is( $! + 0, $!{ENOENT}, '$! is ENOENT' ); -my $v = new URPM( nofatal => 1 ); +my $v = URPM->new( nofatal => 1 ); eval { $v->parse_hdlist('non-existent'); }; is( $@, '', 'no error on hdlist not found' ); @@ -15,7 +15,7 @@ chdir 't' if -d 't'; # shut up URPM::setVerbosity(2); -my $a = new URPM; +my $a = URPM->new; ok($a); END { system('rm -rf hdlist.cz empty_hdlist.cz headers tmp') } @@ -54,7 +54,7 @@ $a->build_hdlist( ok(-f 'hdlist.cz'); -my $b = new URPM; +my $b = URPM->new; ($start, $end) = $b->parse_hdlist('hdlist.cz', keep_all_tags => 1); is("$start $end", "0 0", 'parse_hdlist'); ok(@{$b->{depslist}} == 1); diff --git a/t/synthesis.t b/t/synthesis.t index 8961e2a..4d9d79b 100644 --- a/t/synthesis.t +++ b/t/synthesis.t @@ -27,7 +27,7 @@ close $f; END { unlink $file1, $file2 } -my $a = new URPM; +my $a = URPM->new; ok($a); my ($first, $end); |