zeroclickinfo-goodies/t/Password.t

20 lines
419 B
Perl
Raw Normal View History

2014-07-24 13:13:54 -07:00
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'pw';
zci is_cached => 0;
ddg_goodie_test(
2014-08-18 14:57:27 -07:00
[qw(
DDG::Goodie::Password
)],
'password weak 5' => test_zci( qr/.{5} \(random password\)/),
'password 15 average' => test_zci( qr/.{15} \(random password\)/),
'password strong 25' => test_zci( qr/.{25} \(random password\)/)
2014-07-24 13:13:54 -07:00
);
done_testing