diff options
| -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); |