view release on metacpan or  search on metacpan

t/00_compile.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More 0.98 tests => 7;
use Test::More::UTF8;

use lib 'lib';

use_ok 'Acme::Text::Viceversa';                                     # 1
my $v = new_ok('Acme::Text::Viceversa');                            # 2

note "start to upset the echoes...";
sleep 1;
note "now => ʍou";

my $t = $v->ɐsɹǝʌǝɔᴉʌ('word');
is $t, 'pɹoʍ', 'pɹoʍ ɐ ʇǝsdn oʇ pǝǝɔɔns';                           # 3