1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!/usr/bin/perl
use v5.22;
use warnings;
use Test2::V0;
use lib "t";
use testcase "t::test";
sub CheckFunction { return $_[0] eq "ok" }
# These are now deprecated but for now we'll just quiet the warning
no warnings 'deprecated';
# checker as code ref
{
my $checker = t::test::make_checkdata( \&CheckFunction, "Value", "CheckFunction" );
ok( $checker, 'checker is defined' );
ok( t::test::check_value( $checker, "ok" ), 'check_value OK' );
ok( !t::test::check_value( $checker, "bad" ), 'check_value bad' );
is( dies { t::test::assert_value( $checker, "ok" ) }, undef,
'assert_value OK' );
like( dies { t::test::assert_value( $checker, "bad" ) },
qr/^Value requires a value satisfying CheckFunction at /,
'assert_value bad' );
my $asserter = t::test::make_asserter_sub( $checker );
is( dies { $asserter->( "ok" ) }, undef,
'asserter OK' );
like( dies { $asserter->( "bad" ) },
qr/^Value requires a value satisfying CheckFunction at /,
'asserter bad' );
t::test::free_checkdata( $checker );
}
done_testing;
|
