diff --git a/t/10-combined.t b/t/10-combined.t index e7313d349..781257169 100644 --- a/t/10-combined.t +++ b/t/10-combined.t @@ -34,6 +34,7 @@ ddg_goodie_test( DDG::Goodie::PublicDNS DDG::Goodie::Reverse DDG::Goodie::Roman + DDG::Goodie::Rot13 DDG::Goodie::SigFigs DDG::Goodie::TitleCase DDG::Goodie::Unicode @@ -130,6 +131,9 @@ ddg_goodie_test( # Roman 'roman 155' => test_zci('CLV (roman numeral conversion)', answer_type => 'roman_numeral_conversion', is_cached => 1), + # Rot13 + 'rot13 This is a test.' => test_zci('ROT13: Guvf vf n grfg.', answer_type => 'rot13', is_cached => 1), + # SigFigs 'sf 78' => test_zci('Significant figures: 2', answer_type => 'sig_figs', is_cached => 1), diff --git a/t/Rot13.t b/t/Rot13.t new file mode 100644 index 000000000..6022e0e77 --- /dev/null +++ b/t/Rot13.t @@ -0,0 +1,18 @@ +#!/usr/bin/env perl + +use strict; +use warnings; +use Test::More; +use DDG::Test::Goodie; + +zci answer_type => 'rot13'; +zci is_cached => 1; + +ddg_goodie_test( + [qw( + DDG::Goodie::Rot13 + )], + 'rot13 This is a test' => test_zci('ROT13: Guvf vf n grfg'), +); + +done_testing;