File: 01-usage.t

package info (click to toggle)
libtest-more-utf8-perl 0.05-1.1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 108 kB
  • sloc: perl: 104; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 620 bytes parent folder | download | duplicates (2)
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;
}