Преглед изворни кода

Remove all silencing, windows cries

George S. Baugh пре 11 година
родитељ
комит
1d9b1ddc49
3 измењених фајлова са 2 додато и 28 уклоњено
  1. 2 15
      t/App-Prove-Plugin-Testrail.t
  2. 0 7
      t/arg_types.t
  3. 0 6
      t/server_dead.t

+ 2 - 15
t/App-Prove-Plugin-Testrail.t

@@ -7,17 +7,6 @@ use Test::More 'tests' => 2;
 use Test::Fatal;
 use App::Prove;
 use App::Prove::Plugin::TestRail;
-use IO::Capture::Stdout;
-
-my $capture_out = IO::Capture::Stdout->new();
-
-#silence
-sub do_run {
-    my ($prove) = @_;
-    $capture_out->start;
-    $prove->run();
-    $capture_out->stop;
-}
 
 #I'm the secret squirrel
 $ENV{'TESTRAIL_MOCKED'} = 1;
@@ -26,12 +15,10 @@ $ENV{'TESTRAIL_MOCKED'} = 1;
 my $prove = App::Prove->new();
 $prove->process_args("-PTestRail=apiurl=http://some.testlink.install/,user=someUser,password=somePassword,project=TestProject,run=TestingSuite,version=0.014,case_per_ok=1",'t/fake.test');
 
-is (exception {do_run($prove)},undef,"Running TR parser case via plugin functions");
+is (exception {$prove->run()},undef,"Running TR parser case via plugin functions");
 
 #Check that plan, configs and version also make it through
 $prove = App::Prove->new();
 $prove->process_args("-PTestRail=apiurl=http://some.testlink.install/,user=someUser,password=somePassword,project=TestProject,run=Executing the great plan,version=0.014,case_per_ok=1,plan=GosPlan,configs=testConfig",'t/fake.test');
 
-is (exception {do_run($prove)},undef,"Running TR parser case via plugin functions works with configs/plans");
-
-
+is (exception {$prove->run()},undef,"Running TR parser case via plugin functions works with configs/plans");

+ 0 - 7
t/arg_types.t

@@ -7,10 +7,6 @@ use Test::Fatal;
 use Class::Inspector;
 use Test::LWP::UserAgent;
 use HTTP::Response;
-use IO::Capture::Stderr;
-
-my $capture_out = IO::Capture::Stderr->new();
-$capture_out->start;
 
 my $tr = TestRail::API->new('http://hokum.bogus','bogus','bogus',1);
 $tr->{'browser'} = Test::LWP::UserAgent->new();
@@ -149,6 +145,3 @@ isnt(exception {$tr->getCaseByName(1,1,1)}, undef,'getCaseByName with 3 args ret
 
 #4 arg functions
 is(exception {$tr->getCaseByName(1,1,1,'hug')}, undef,'getCaseByName with 4 args returns no error');
-
-$capture_out->stop;
-

+ 0 - 6
t/server_dead.t

@@ -10,10 +10,6 @@ use Test::Fatal;
 use Class::Inspector;
 use Test::LWP::UserAgent;
 use HTTP::Response;
-use IO::Capture::Stderr;
-
-my $capture_out = IO::Capture::Stderr->new();
-$capture_out->start;
 
 my $tr = TestRail::API->new('http://hokum.bogus','bogus','bogus',1);
 $tr->{'browser'} = Test::LWP::UserAgent->new();
@@ -73,5 +69,3 @@ is($tr->getUserByID(1),0,'getUserByID returns error');
 is($tr->getUserByName('zap'),0,'getUserByName returns error');
 is($tr->getUsers(),-500,'getUsers returns error');
 is($tr->getConfigurations(1),-500,'getConfigurations returns error');
-
-$capture_out->stop();