view release on metacpan or  search on metacpan

t/lib/TestHelp.pm  view on Meta::CPAN

sub cmp {
    my ($got,$expected,$message) = @_;
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    Test::Deep::cmp_deeply(
        $got, $expected, $message
    ) or Test::NiceDump::nice_explain($got,$expected);
}

sub import {
    my $caller = caller;
    eval "package $caller; strict->import; warnings->import; use Test::More; use Test::Deep '!cmp_deeply';1;" or die $@;
    no strict 'refs';
    *{"${caller}::mkstomp"}=\&mkstomp;
    *{"${caller}::mkstomp_testsocket"}=\&mkstomp_testsocket;
    *{"${caller}::cmp_deeply"}=\&cmp;
    return;
}
}

{package TestHelp::Socket;
use strict;