#!/usr/bin/env perl use strict; use warnings; use Test::More; use DDG::Test::Goodie; zci answer_type => 'passphrase'; zci is_cached => 0; ddg_goodie_test( [qw( DDG::Goodie::Passphrase )], 'passphrase 1 word' => test_zci(qr/random passphrase: ([a-z]+)/), 'passphrase 2 word' => test_zci(qr/random passphrase: ([a-z]+){2}/), 'passphrase 3 words' => test_zci(qr/random passphrase: ([a-z]+){3}/), ); done_testing;