diff options
Diffstat (limited to 'rt/t/shredder/03plugin.t')
| -rw-r--r-- | rt/t/shredder/03plugin.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rt/t/shredder/03plugin.t b/rt/t/shredder/03plugin.t index 190f40acf..cf51e448d 100644 --- a/rt/t/shredder/03plugin.t +++ b/rt/t/shredder/03plugin.t @@ -17,7 +17,7 @@ my @PLUGINS = sort qw(Attachments Base Objects SQLDump Summary Tickets Users); use_ok('RT::Shredder::Plugin'); { - my $plugin = new RT::Shredder::Plugin; + my $plugin = RT::Shredder::Plugin->new; isa_ok($plugin, 'RT::Shredder::Plugin'); my %plugins = $plugin->List; cmp_deeply( [sort keys %plugins], [@PLUGINS], "correct plugins" ); @@ -28,7 +28,7 @@ use_ok('RT::Shredder::Plugin'); } { # reblessing on LoadByName foreach (@PLUGINS) { - my $plugin = new RT::Shredder::Plugin; + my $plugin = RT::Shredder::Plugin->new; isa_ok($plugin, 'RT::Shredder::Plugin'); my ($status, $msg) = $plugin->LoadByName( $_ ); ok($status, "loaded plugin by name") or diag("error: $msg"); @@ -36,7 +36,7 @@ use_ok('RT::Shredder::Plugin'); } } { # error checking in LoadByName - my $plugin = new RT::Shredder::Plugin; + my $plugin = RT::Shredder::Plugin->new; isa_ok($plugin, 'RT::Shredder::Plugin'); my ($status, $msg) = $plugin->LoadByName; ok(!$status, "not loaded plugin - empty name"); |