#!/usr/bin/env perl use strict; use warnings; use Test::More; use DDG::Test::Goodie; zci answer_type => 'rand'; zci is_cached => 0; ddg_goodie_test( [qw( DDG::Goodie::RandomNumber )], 'random number between 12 and 45' => test_zci( qr/\d{2} \(random number\)/), 'random number' => test_zci( qr/\d{1}\.\d+ \(random number\)/), 'random day' => undef, 'random access' => undef, ); done_testing