Class: Test::Mini::Logger::TAP
- Inherits:
- 
      Test::Mini::Logger
      
        - Object
- Test::Mini::Logger
- Test::Mini::Logger::TAP
 
- Defined in:
- lib/Test/Mini/Logger/TAP.pm
Overview
Default Test::Mini Output Logger.
Class Method Summary (collapse)
Instance Method Summary (collapse)
- - begin_test($self)
- - begin_test_case($self, $tc, @tests)
- - diag($self, @msgs)
- - error($self, undef, $test, $msg)
- - fail($self, undef, $test, $msg)
- - finish_test_suite($self)
- - inc_counter($self)
- - pass($self, undef, $test)
- - skip($self, undef, $test, $msg)
- - test_counter($self)
Methods inherited from Test::Mini::Logger
#begin_test_suite, #buffer, #count, #finish_test, #finish_test_case, #print, #say, #time, #verbose
Class Method Details
+ new($class, %args)
| 7 8 9 10 | # File 'lib/Test/Mini/Logger/TAP.pm', line 7 sub new { my ($class, %args) = @_; return $class->SUPER::new(test_counter => 0, %args); } | 
Instance Method Details
- begin_test($self)
| 34 35 36 37 | # File 'lib/Test/Mini/Logger/TAP.pm', line 34 sub begin_test { my ($self) = @_; $self->inc_counter(); } | 
- begin_test_case($self, $tc, @tests)
| 29 30 31 32 | # File 'lib/Test/Mini/Logger/TAP.pm', line 29 sub begin_test_case { my ($self, $tc, @tests) = @_; $self->diag("Test Case: $tc"); } | 
- diag($self, @msgs)
| 22 23 24 25 26 27 | # File 'lib/Test/Mini/Logger/TAP.pm', line 22 sub diag { my ($self, @msgs) = @_; my $msg = join "\n", @msgs; $msg =~ s/^/# /mg; $self->say($msg); } | 
- error($self, undef, $test, $msg)
| 50 51 52 53 54 | # File 'lib/Test/Mini/Logger/TAP.pm', line 50 sub error { my ($self, undef, $test, $msg) = @_; $self->say("not ok @{[$self->test_counter]} - $test"); $self->diag($msg); } | 
- fail($self, undef, $test, $msg)
| 44 45 46 47 48 | # File 'lib/Test/Mini/Logger/TAP.pm', line 44 sub fail { my ($self, undef, $test, $msg) = @_; $self->say("not ok @{[$self->test_counter]} - $test"); $self->diag($msg); } | 
- finish_test_suite($self)
| 68 69 70 71 | # File 'lib/Test/Mini/Logger/TAP.pm', line 68 sub finish_test_suite { my ($self) = @_; $self->say("1..@{[$self->test_counter]}"); } | 
- inc_counter($self)
| 17 18 19 20 | # File 'lib/Test/Mini/Logger/TAP.pm', line 17 sub inc_counter { my ($self) = @_; $self->{test_counter}++; } | 
- pass($self, undef, $test)
| 39 40 41 42 | # File 'lib/Test/Mini/Logger/TAP.pm', line 39 sub pass { my ($self, undef, $test) = @_; $self->say("ok @{[$self->test_counter]} - $test"); } | 
- skip($self, undef, $test, $msg)
| 56 57 58 59 60 61 62 63 64 65 66 | # File 'lib/Test/Mini/Logger/TAP.pm', line 56 sub skip { my ($self, undef, $test, $msg) = @_; $self->print("ok @{[$self->test_counter]} - $test # SKIP"); if ($msg =~ /\n/) { $self->say(); $self->diag($msg); } else { $self->say(": $msg"); } } | 
- test_counter($self)
| 12 13 14 15 | # File 'lib/Test/Mini/Logger/TAP.pm', line 12 sub test_counter { my ($self) = @_; return $self->{test_counter}; } |