zeroclickinfo-goodies/t/FlipText.t

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;