#!/usr/bin/perl

use Test::More qw(no_plan) ;

my ($username,@userinfo) =
  qw(bronto Marco Marongiu Capoterra) ;

my $good = 'c0m&c@z%' ;
my @passwords = qw(shrt waytoolong manyyyyy nto12bro% comar1$
		   marmaron poterr@1 t1c&t1c& pitbull) ;

my $ok = "password ok" ;

require './passcheck.pl' ;

is($ok,passcheck($username,$good,@userinfo),"$good is good") ;

isnt($ok,passcheck($username,$_,@userinfo),"$_ is bad") foreach @passwords ;