From 59223e99e4b7df180e3e176227e84ec1a81ad17c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 25 Jun 2012 18:20:10 +0000 Subject: style --- t/fatal.t | 4 ++-- t/parse.t | 4 ++-- t/synthesis.t | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/t/fatal.t b/t/fatal.t index 0cfeafa..4638983 100644 --- a/t/fatal.t +++ b/t/fatal.t @@ -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' ); diff --git a/t/parse.t b/t/parse.t index d4b78c0..92159e8 100644 --- a/t/parse.t +++ b/t/parse.t @@ -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); -- cgit v1.2.1