49 lines
1.2 KiB
Perl
49 lines
1.2 KiB
Perl
#!/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)],
|
|
'flip text test' => test_zci(
|
|
"\x{0287}\x{0073}\x{01DD}\x{0287}",
|
|
structured_answer => {
|
|
input => ['test'],
|
|
operation => 'Flip text',
|
|
result => 'ʇsǝʇ'
|
|
}
|
|
),
|
|
'mirror text test' => test_zci(
|
|
"\x{0287}\x{0073}\x{01DD}\x{0287}",
|
|
structured_answer => {
|
|
input => ['test'],
|
|
operation => 'Flip text',
|
|
result => 'ʇsǝʇ'
|
|
}
|
|
),
|
|
'flip text my sentence' => test_zci(
|
|
'ǝɔuǝʇuǝs ʎɯ',
|
|
structured_answer => {
|
|
input => ['my sentence'],
|
|
operation => 'Flip text',
|
|
result => 'ǝɔuǝʇuǝs ʎɯ'
|
|
}
|
|
),
|
|
'mirror text text' => test_zci(
|
|
'ʇxǝʇ',
|
|
structured_answer => {
|
|
input => ['text'],
|
|
operation => 'Flip text',
|
|
result => 'ʇxǝʇ'
|
|
}
|
|
),
|
|
);
|
|
|
|
done_testing;
|