From c4222fa510921d54b23cd9172a774f7b826b7be0 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Wed, 10 Dec 2014 17:58:07 +0100 Subject: Removed option -T that failed with make testdb --- t/01-Locales.t | 1 - t/02-JournalCtl.t | 1 - t/02-Users.t | 8 ++++---- t/03-Shared_GUI.t | 1 - t/04-Shared_TimeZone.t | 1 - 5 files changed, 4 insertions(+), 8 deletions(-) (limited to 't') diff --git a/t/01-Locales.t b/t/01-Locales.t index 59d3455..e2016d0 100644 --- a/t/01-Locales.t +++ b/t/01-Locales.t @@ -1,4 +1,3 @@ -#!perl -T use 5.006; use strict; use warnings FATAL => 'all'; diff --git a/t/02-JournalCtl.t b/t/02-JournalCtl.t index f5796a6..4826ad4 100644 --- a/t/02-JournalCtl.t +++ b/t/02-JournalCtl.t @@ -1,4 +1,3 @@ -#!perl -T use 5.006; use strict; use warnings FATAL => 'all'; diff --git a/t/02-Users.t b/t/02-Users.t index 4837319..0822e0b 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; diff --git a/t/03-Shared_GUI.t b/t/03-Shared_GUI.t index 57a24be..c2cef88 100644 --- a/t/03-Shared_GUI.t +++ b/t/03-Shared_GUI.t @@ -1,4 +1,3 @@ -#!perl -T use 5.006; use strict; use warnings FATAL => 'all'; diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t index 1a8782b..26f9bfc 100644 --- a/t/04-Shared_TimeZone.t +++ b/t/04-Shared_TimeZone.t @@ -1,4 +1,3 @@ -#!perl -T use 5.006; use strict; use warnings FATAL => 'all'; -- cgit v1.2.1