/
home
/
.cpan
/
build
/
Test-More-UTF8-0.05-0
/
t
/
/home/.cpan/build/Test-More-UTF8-0.05-0/t
mkdir
upload
Name
Size
Mode
Actions
00-load.t
189
0644
edit
dl
rm
01-usage.t
620
0644
edit
dl
rm
02-usage.t
628
0644
edit
dl
rm
03-usage.t
574
0644
edit
dl
rm
pod-coverage.t
568
0644
edit
dl
rm
pod.t
296
0644
edit
dl
rm
Edit:
/home/.cpan/build/Test-More-UTF8-0.05-0/t/01-usage.t
(620B)
#!/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; }
Save
cmd:
run