zeroclickinfo-goodies/t/MoonPhases.t

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;

zci is_cached => 0;
zci answer_type => 'moonphases';

ddg_goodie_test(
    [qw(
        DDG::Goodie::MoonPhases
    )],
    'moon phase' => test_zci(
    	qr/The current lunar phase is/,
    	html => qr/The current lunar phase is/
    ),
    'lunar phase' => test_zci('The current lunar phase is: Waxing Gibbous', html => 'The current lunar phase is: <a href="?q=Waxing+Gibbous">Waxing Gibbous</a>'),
    'phase of the moon' => test_zci('The current lunar phase is: Waxing Gibbous', html => 'The current lunar phase is: <a href="?q=Waxing+Gibbous">Waxing Gibbous</a>'),
    'what is the current lunar phase' => test_zci('The current lunar phase is: Waxing Gibbous', html => 'The current lunar phase is: <a href="?q=Waxing+Gibbous">Waxing Gibbous</a>'),
);

done_testing;