#!/usr/bin/env perl use strict; use warnings; use Test::More; use DDG::Test::Goodie; zci answer_type => 'dewey_decimal'; zci is_cached => 1; ddg_goodie_test( [qw( DDG::Goodie::Dewey )], 'dewey 123' => test_zci("123 is determinism and indeterminism in the Dewey Decimal System.", html => "123 is determinism and indeterminism in the Dewey Decimal System."), '646 dewey decimal system' => test_zci("646 is sewing, clothing, personal living in the Dewey Decimal System.", html => "646 is sewing, clothing, personal living in the Dewey Decimal System."), 'dewey decimal system 640s' => test_zci("", html => '

641	Food & drink
642	Meals & table service
643	Housing & household equipment
644	Household utilities
645	Household furnishings
646	Sewing, clothing, personal living
647	Management of public households
648	Housekeeping
649	Child rearing & home care of sick

'), '#1 in the dewey decimal system' => test_zci("001 is knowledge in the Dewey Decimal System.", html => '001 is knowledge in the Dewey Decimal System.'), 'dewey decimal system naturalism' => test_zci("146 is naturalism and related systems in the Dewey Decimal System.", html => '146 is naturalism and related systems in the Dewey Decimal System.'), 'etymology in the dewey decimal system' => test_zci("", html => qr{^.*

$}), ); done_testing;