2 |
use strict; |
use strict; |
3 |
use warnings; |
use warnings; |
4 |
|
|
5 |
use Test::More tests => 1; |
use Test::More tests => 3; |
6 |
use lib 'lib'; |
use lib 'lib'; |
7 |
|
|
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
13 |
use_ok('Frey::Test::Runner'); |
use_ok('Frey::Test::Runner'); |
14 |
} |
} |
15 |
|
|
16 |
if ( $debug ) { |
eval { Frey::Test::Runner->new( tests => 'use test' ); }; |
17 |
warn Frey::Test::Runner->new->as_markup; |
ok( $@, 'wrong tests invocation' ); |
18 |
} |
|
19 |
|
ok( my $o = Frey::Test::Runner->new( test => 'non-existing' ), 'correct test invocation for single scalar' ); |
20 |
|
|
21 |
|
diag dump $o->as_markup if $debug; |