[perl #123963] "@<fullwidth digit>"

[perl5.git] / cpan / Test-Simple / t / Test-use-ok.t

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;