#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'potus';
zci is_cached => 1;
ddg_goodie_test(
[qw(
DDG::Goodie::POTUS
)],
'who is president of the united states' => test_zci(
'Barack Obama is the 44th President of the United States.',
html => 'Barack Obama is the 44th President of the United States.'),
'who is the fourth president of the united states' => test_zci(
'James Madison was the 4th President of the United States.',
html => 'James Madison was the 4th President of the United States.'),
'who is the nineteenth president of the united states' => test_zci(
'Rutherford B. Hayes was the 19th President of the United States.',
html => 'Rutherford B. Hayes was the 19th President of the United States.'),
'who was the 1st president of the united states' => test_zci(
'George Washington was the 1st President of the United States.',
html => 'George Washington was the 1st President of the United States.'),
'who was the 31 president of the united states' => test_zci(
'Herbert Hoover was the 31st President of the United States.',
html => 'Herbert Hoover was the 31st President of the United States.'),
'who was the 22 president of the united states' => test_zci(
'Grover Cleveland was the 22nd President of the United States.',
html => 'Grover Cleveland was the 22nd President of the United States.'),
'potus 11' => test_zci(
'James K. Polk was the 11th President of the United States.',
html => 'James K. Polk was the 11th President of the United States.'),
'POTUS 24', => test_zci(
'Grover Cleveland was the 24th President of the United States.',
html => 'Grover Cleveland was the 24th President of the United States.'),
'who was the twenty-second POTUS?' => test_zci(
'Grover Cleveland was the 22nd President of the United States.',
html => 'Grover Cleveland was the 22nd President of the United States.'),
);
done_testing;