#!/usr/bin/env perl use strict; use warnings; use Test::More; use DDG::Test::Goodie; zci answer_type => 'duckduckgo'; zci is_cached => 1; ddg_goodie_test( [qw( DDG::Goodie::DuckDuckGo )], 'Zero-Click Info' => test_zci("Zero Click Info is the term DuckDuckGo uses for these boxes, which often provide useful instant answers above traditional results."), 'zeroclick' => test_zci("Zero Click Info is the term DuckDuckGo uses for these boxes, which often provide useful instant answers above traditional results."), 'help' => test_zci("DuckDuckGo's help website: http://dukgo.com/help/", html => "DuckDuckGo's help website: http://dukgo.com/help/"), 'duckduckgo irc' => test_zci("DuckDuckGo's official IRC channel is #duckduckgo on irc.freenode.net", html => "DuckDuckGo's official IRC channel is #duckduckgo on irc.freenode.net"), irc => undef, ); done_testing;