view release on metacpan or  search on metacpan

lib/Test/Stream/Bundle/V1.pm  view on Meta::CPAN

package Test::Stream::Bundle::V1;
use strict;
use warnings;

use Test::Stream::Bundle qw/import/;

sub plugins {
    return (
        sub { strict->import(); warnings->import() },
        qw{
            IPC
            TAP
            ExitSummary
            Core
            Context
            Exception
            Warnings
            Compare
            Mock

t/modules/Bundle/V1.t  view on Meta::CPAN

use Test::Stream qw/Spec LoadPlugin/;

ok( Test::Stream::Sync->hooks, "hook added");

tests strictures => sub {
    local $^H;
    my $hbefore = $^H;
    load_plugin('-V1');
    my $hafter = $^H;

    my $strict = do { local $^H; strict->import(); $^H };

    ok($strict,               'sanity, got $^H value for strict');
    ok(!($hbefore & $strict), "strict is not on before loading Test::Stream");
    ok(($hafter & $strict),   "strict is on after loading Test::Stream");
};

tests warnings => sub {
    local ${^WARNING_BITS};
    my $wbefore = ${^WARNING_BITS} || '';
    load_plugin('-V1');