2 |
use strict; |
use strict; |
3 |
use warnings; |
use warnings; |
4 |
|
|
5 |
use Test::More tests => 2; |
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 |
ok( my $markup = Frey::Test::Runner->new->as_markup, 'markup' ); |
eval { Frey::Test::Runner->new( tests => 'use test' ); }; |
17 |
diag $markup if $debug; |
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; |