File Coverage

lib/Rex/Test/Base/has_service_stopped.pm
Criterion Covered Total %
statement 11 20 55.0
branch n/a
condition 0 3 0.0
subroutine 4 6 66.6
pod 1 2 50.0
total 16 31 51.6


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Test::Base::has_service_stopped;
6              
7 1     1   14 use v5.12.5;
  1         5  
8 1     1   6 use warnings;
  1         4  
  1         46  
9              
10             our $VERSION = '1.14.2.2'; # TRIAL VERSION
11              
12 1     1   5 use Rex -base;
  1         3  
  1         6  
13 1     1   12 use base qw(Rex::Test::Base);
  1         11  
  1         242  
14              
15             sub new {
16 0     0 1   my $that = shift;
17 0   0       my $proto = ref($that) || $that;
18 0           my $self = {@_};
19              
20 0           bless( $self, $proto );
21              
22 0           my ( $pkg, $file ) = caller(0);
23              
24 0           return $self;
25             }
26              
27             sub run_test {
28 0     0 0   my ( $self, $service ) = @_;
29 0           local $::QUIET = 1;
30 0           $self->ok( service( $service, "status" ) == 0, "Service $service stopped." );
31             }
32              
33             1;