zeroclickinfo-goodies/t/FlipText.t

23 lines
496 B
Perl
Raw Normal View History

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'flip_text';
zci is_cached => 1;
ddg_goodie_test(
[qw(
DDG::Goodie::FlipText
)],
2012-05-16 18:19:19 -07:00
'flip test' => test_zci("\x{0287}\x{0073}\x{01DD}\x{0287}"),
'mirror test' => test_zci("\x{0287}\x{0073}\x{01DD}\x{0287}"),
'flip my sentence' => test_zci('ǝɔuǝʇuǝs ʎɯ'),
'mirror text' => test_zci('ʇxǝʇ'),
);
done_testing;