view release on metacpan or  search on metacpan

inc/Test/Base.pm  view on Meta::CPAN

sub filter_arguments() {
    $Test::Base::Filter::arguments;
}

sub have_text_diff {
    eval { require Text::Diff; 1 } &&
        $Text::Diff::VERSION >= 0.35 &&
        $Algorithm::Diff::VERSION >= 1.15;
}

sub is($$;$) {
    (my ($self), @_) = find_my_self(@_);
    my ($actual, $expected, $name) = @_;
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    if ($ENV{TEST_SHOW_NO_DIFFS} or
         not defined $actual or
         not defined $expected or
         $actual eq $expected or 
         not($self->have_text_diff) or 
         $expected !~ /\n./s
    ) {

t/base.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Differences;
use Test::Name::FromLine;

sub x ($) { my $s = shift; $s =~ s{^\s+|\s+$}{}g; $s }
sub test_test (&) { # from Test::Test::More written by id:wakabatan
	my $code = shift;

	open my $file1, '>', \(my $s = '');
	open my $file2, '>', \(my $t = '');
	open my $file3, '>', \(my $u = '');

	{
		my $builder = Test::Builder->create;
		$builder->output($file1);

t/chdir.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Differences;
use Test::Name::FromLine;
use File::Temp qw(tempdir);
use Cwd qw(getcwd);

sub x ($) { my $s = shift; $s =~ s{^\s+|\s+$}{}g; $s }
sub test_test (&) { # from Test::Test::More written by id:wakabatan
	my $code = shift;
	open my $file1, '>', \(my $s = '');

	{
		my $builder = Test::Builder->create;
		$builder->output($file1);
		no warnings 'redefine';
		local *Test::More::builder = sub { $builder };
		$code->();