aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-06-25 18:20:10 +0000
committerThierry Vignaud <tv@mageia.org>2012-06-25 18:20:10 +0000
commit59223e99e4b7df180e3e176227e84ec1a81ad17c (patch)
tree88bf814f90e451e79ebcf1793a526d94047e058c /t
parent8928ee9cbf079cfe4d3879752d1703339b4c37a1 (diff)
downloadperl-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.t4
-rw-r--r--t/parse.t4
-rw-r--r--t/synthesis.t2
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);