1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
use Test::More::UTF8;
use Data::Dumper;
use IO::Handle;
my $sym = "\x{430}";
ok(utf8::is_utf8("а"), 'use utf8 pragma');
{
my @warns;
local $SIG{__WARN__} = sub { push @warns,shift; };
Test::More->builder->failure_output->print("# $sym\n");
ok(!@warns, 'failure_output') or diag "Have warning: ".shift @warns;
Test::More->builder->todo_output->print("# $sym\n");
ok(!@warns, 'todo_output') or diag "Have warning: ".shift @warns;
Test::More->builder->output->print("# $sym\n");
ok(!@warns, 'output') or diag "Have warning: ".shift @warns;
}
|