zeroclickinfo-goodies/t/Chars.t

20 lines
334 B
Perl
Raw Normal View History

2012-03-18 10:39:12 -07:00
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'chars';
zci is_cached => 1;
ddg_goodie_test(
[qw(
DDG::Goodie::Chars
)],
2012-03-18 16:57:14 -07:00
'chars test' => test_zci('Chars: 4'),
'chars this is a test' => test_zci('Chars: 14'),
2012-03-18 10:39:12 -07:00
);
done_testing;