view release on metacpan or  search on metacpan

t/26-diff.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::RequiresInternet 'test.wikipedia.org' => 80;
use Test::More tests => 1;

BEGIN {
    unless (eval q{ use Test::Differences; 1 }) { # If Test::Differences isn't available...
        no warnings 'redefine';
        note 'Test::Differences unavailable - use Test::More::is_deeply to approximate';
        *eq_or_diff_text = \&is_deeply; # make Test::Differences::eq_or_diff an alias to Test::More::is_deeply
        *unified_diff = sub { 1 };      # shim
    }
}

# Fix "Wide character in print" warning on failure
my $builder = Test::More->builder;
binmode $builder->output,         ':encoding(UTF-8)';
binmode $builder->failure_output, ':encoding(UTF-8)';
binmode $builder->todo_output,    ':encoding(UTF-8)';