#!/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;