mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 17:05:43 -04:00
16 lines
367 B
Perl
16 lines
367 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use Test::More;
|
|
use lib::relative './lib', '../lib', '..';
|
|
use t::simple_plugin;
|
|
use Encode qw/encode/;
|
|
|
|
load_plugin("echo");
|
|
|
|
check("", "", [1], "empty but valid");
|
|
check("Hello World", "Hello World", [1], "HW");
|
|
check("\N{SNOWMAN}", encode("utf8", "\N{SNOWMAN}"), [1], "Encoding correctly");
|
|
done_testing();
|