diff options
| author | Angelo Naselli <anaselli@linux.it> | 2014-12-10 17:58:07 +0100 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2014-12-10 17:58:07 +0100 |
| commit | c4222fa510921d54b23cd9172a774f7b826b7be0 (patch) | |
| tree | 85875f0683eef217d9fd326ece1903cb834f95c8 /t/02-Users.t | |
| parent | acad65d5a30ee80d9d7d402fdd93d384923d9392 (diff) | |
| download | manatools-c4222fa510921d54b23cd9172a774f7b826b7be0.tar manatools-c4222fa510921d54b23cd9172a774f7b826b7be0.tar.gz manatools-c4222fa510921d54b23cd9172a774f7b826b7be0.tar.bz2 manatools-c4222fa510921d54b23cd9172a774f7b826b7be0.tar.xz manatools-c4222fa510921d54b23cd9172a774f7b826b7be0.zip | |
Removed option -T that failed with make testdb
Diffstat (limited to 't/02-Users.t')
| -rw-r--r-- | t/02-Users.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/02-Users.t b/t/02-Users.t index 48373194..0822e0bd 100644 --- a/t/02-Users.t +++ b/t/02-Users.t @@ -1,4 +1,3 @@ -#!perl -T use 5.006; use strict; use warnings FATAL => 'all'; @@ -18,7 +17,7 @@ BEGIN { ok( my $facenames = $o->facenames(), 'facenames' ); diag "facenames got: < " . scalar(@$facenames) . " elements >"; ok( $o->addKdmIcon('username', $facenames->[0]), 'addKdmIcon' ); - + ok( my ($val, $str) = $o->valid_username('username'), 'valid_username' ); diag "valid_username(username) got: < " . $str . " >"; ok(($val, $str) = $o->valid_username('3D-user'), 'not_valid_username'); @@ -30,7 +29,8 @@ BEGIN { ok( my $face = $o->GetFaceIcon('username', 1), 'GetFaceIcon' ); diag "GetFaceIcon after '" . $facenames->[0] . "' got: < ". $face ." >"; ok( $o->strongPassword('S0meWh3r3'), 'strongPassword' ); - + ok( $o->removeKdmIcon('username'), 'removeKdmIcon' ); - + + done_testing; |