23 lines
568 B
Perl
23 lines
568 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => 'title_case';
|
|
zci is_cached => 1;
|
|
|
|
ddg_goodie_test(
|
|
[qw(
|
|
DDG::Goodie::TitleCase
|
|
)],
|
|
'titlecase test this out' => test_zci('Test This Out'),
|
|
'titlecase this is a walk in the park' => test_zci('This Is a Walk in the Park'),
|
|
'titlecase a good day to die hard' => test_zci('A Good Day to Die Hard'),
|
|
'titlecase here i am testing-hyphenated-words' => test_zci('Here I Am Testing-Hyphenated-Words'),
|
|
'titlecase test' => test_zci('Test'),
|
|
);
|
|
|
|
done_testing;
|