File Coverage: t/12-debug.t

# File Coverage

File: | t/12-debug.t
Coverage: | 95.3%

line | stmt | bran | cond | sub | pod | time | code
--- | --- | --- | --- | --- | --- | --- | ---
1 |  |  |  |  |  |  | #!/usr/bin/env perl
2 |
3 | 1 1 1 |  |  | 1 |  | 3312 2 28 | use strict;
4 | 1 1 1 |  |  | 1 |  | 4 0 37 | use warnings;
5 | 1 1 1 |  |  | 1 |  | 410 79017 6 | use Test::More;
6 | 1 1 1 |  |  | 1 |  | 493 2587 2 | use Test::Exception;
7 | 1 1 1 |  |  | 1 |  | 507 2 1203 | use Util::H2O::More qw/ddd dddie/;
8 |
9 |  |  |  |  |  |  | {
10 | 1 |  |  |  |  | 2 | my $stderr = q{};
11 |
12 |  |  |  |  |  |  | {
13 | 1 1 |  |  |  |  | 0 2 | local *STDERR;
14 | 1 | 50 |  |  |  | 9 | open STDERR, q{>}, \$stderr or die qq{Could not redirect STDERR: $!};
15 | 1 |  |  |  |  | 5 | ddd( { foo => q{bar} }, [ 1, 2, 3 ] );
16 |  |  |  |  |  |  | }
17 |
18 | 1 |  |  |  |  | 47 | like $stderr, qr/foo/, q{ddd dumps a HASH reference to STDERR};
19 | 1 |  |  |  |  | 252 | like $stderr, qr/bar/, q{ddd dump contains the HASH value};
20 | 1 |  |  |  |  | 187 | like $stderr, qr/1.*2.*3/s, q{ddd dumps each supplied reference};
21 |  |  |  |  |  |  | }
22 |
23 |  |  |  |  |  |  | {
24 | 1 1 1 |  |  |  |  | 62348 181 1 | my $stderr = q{};
25 |
26 |  |  |  |  |  |  | throws_ok {
27 | 1 |  |  | 1 |  | 25 | local *STDERR;
28 | 1 | 50 |  |  |  | 7 | open STDERR, q{>}, \$stderr or die qq{Could not redirect STDERR: $!};
29 | 1 |  |  |  |  | 3 | dddie( { foo => q{bar} } );
30 |  |  |  |  |  |  | }
31 | 1 |  |  |  |  | 6 | qr/^died due to use of dddie/,
32 |  |  |  |  |  |  | q{dddie dies with its documented fatal message after dumping its arguments};
33 |
34 | 1 |  |  |  |  | 210 | like $stderr, qr/foo/, q{dddie dumps its argument to STDERR before dying};
35 | 1 |  |  |  |  | 187 | like $stderr, qr/bar/, q{dddie dump contains the expected value};
36 |  |  |  |  |  |  | }
37 |
38 | 1 |  |  |  |  | 179 | done_testing;