[Bps-public-commit] r9009 - in Text-Password-Pronounceable: .

a.r.ferreira at gmail.com a.r.ferreira at gmail.com
Wed Sep 12 09:29:44 EDT 2007


Author: a.r.ferreira at gmail.com
Date: Wed Sep 12 09:29:44 2007
New Revision: 9009

Modified:
   Text-Password-Pronounceable/   (props changed)
   Text-Password-Pronounceable/t/01basic.t

Log:
 r6 at 189:  ferreira | 2007-09-12 08:56:56 -0300
 tuning of behavior with/without params


Modified: Text-Password-Pronounceable/t/01basic.t
==============================================================================
--- Text-Password-Pronounceable/t/01basic.t	(original)
+++ Text-Password-Pronounceable/t/01basic.t	Wed Sep 12 09:29:44 2007
@@ -1,54 +1,61 @@
 #!/usr/bin/perl
 use strict;
-use Test::More tests => 10;
+use Test::More tests => 15;
 
 use Text::Password::Pronounceable;
 
 {
 my $pp = Text::Password::Pronounceable->new(6,10);
-
 isa_ok($pp, 'Text::Password::Pronounceable');
 
 my $str = $pp->generate;
+ok(length($str) >= 6 && length($str) <= 10);
 
-ok(length($str) <= 10 && length($str) >= 6);
-
-$str = $pp->generate(3,4);
+my $str2 = $pp->generate(5);
+ok(length($str2) == 5);
 
-ok(length($str) <= 4 && length($str) >= 3);
+my $str3 = $pp->generate(3,4);
+ok(length($str3) >= 3 && length($str3) <= 4);
 }
 
 {
 my $pp = Text::Password::Pronounceable->new(6);
-
 isa_ok($pp, 'Text::Password::Pronounceable');
 
 my $str = $pp->generate;
-
 ok(length($str) == 6);
 
-$str = $pp->generate(3,4);
-
-ok(length($str) <= 4 && length($str) >= 3);
+my $str2 = $pp->generate(8);
+ok(length($str2) == 8);
 
-$str = $pp->generate(5);
+my $str3 = $pp->generate(3,4);
+ok(length($str3) >= 3 && length($str3) <= 4);
 
-ok(length($str) == 5);
 }
 
 {
-# testing generate as a class method
+my $pp = Text::Password::Pronounceable->new;
+isa_ok($pp, 'Text::Password::Pronounceable');
 
-my $str = Text::Password::Pronounceable->generate(6, 10);
+my $str = $pp->generate;
+is($str, q[], 'no lengths, no password');
 
-ok(length($str) <= 10 && length($str) >= 6);
+my $str2 = $pp->generate(10);
+ok(length($str2) == 10);
 
-$str = Text::Password::Pronounceable->generate(3, 4);
+my $str3 = $pp->generate(4,8);
+ok(length($str3) >= 4 && length($str3) <= 8);
+}
+{
+# testing generate as a class method
 
-ok(length($str) <= 4 && length($str) >= 3);
+my $str = Text::Password::Pronounceable->generate(6, 10);
+ok(length($str) <= 10 && length($str) >= 6);
 
-$str = Text::Password::Pronounceable->generate(5);
+my $str2 = Text::Password::Pronounceable->generate(3, 4);
+ok(length($str2) <= 4 && length($str2) >= 3);
 
-ok(length($str) == 5);
+my $str3 = Text::Password::Pronounceable->generate(5);
+ok(length($str3) == 5);
 }
 



More information about the Bps-public-commit mailing list