mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:55:42 -04:00
36 lines
782 B
Perl
36 lines
782 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use Test::More tests => 4;
|
|
use Test::Differences qw/ eq_or_diff /;
|
|
use lib '.';
|
|
use plugins::unicode;
|
|
|
|
sub check
|
|
{
|
|
local $Test::Builder::Level = $Test::Builder::Level + 1;
|
|
my ( $body, $want, $blurb ) = @_;
|
|
my ( $err, $out ) = unip( map speng($_), split " ", $body );
|
|
|
|
return eq_or_diff( $err, [], "no errors" )
|
|
&& eq_or_diff( $out, $want, $blurb );
|
|
}
|
|
|
|
# TEST*2
|
|
check(
|
|
"perl",
|
|
[
|
|
"U+0070 (70): LATIN SMALL LETTER P [p]",
|
|
"U+0065 (65): LATIN SMALL LETTER E [e]",
|
|
"U+0072 (72): LATIN SMALL LETTER R [r]",
|
|
"U+006C (6c): LATIN SMALL LETTER L [l]",
|
|
],
|
|
"ascii"
|
|
);
|
|
|
|
# TEST*2
|
|
check( "💟", [ "U+1F49F (f0 9f 92 9f): HEART DECORATION [💟]", ],
|
|
"emoji", );
|
|
|