cpan/Test-Simple/t/Test-use-ok.t


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

use strict;
use warnings;

use Test::Stream;
use Test::More;

use ok 'ok';

use Test::Stream::Tester;

events_are (
    intercept {
        eval "use ok 'Something::Fake'; 1" || die $@;
    },
    check {
        event ok => {
            bool => 0,
            name => 'use Something::Fake;',
            diag => qr/^\s*Failed test 'use Something::Fake;'/,
        };
    },
    "Basic test"
);

done_testing;