From fc9772f1f03684e8dab50ff77d2c46c5e0309c7b Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Mon, 16 Mar 2015 18:16:50 +0100 Subject: Moved to namespace to ManaTools --- t/00-load.t | 6 +++--- t/01-Locales.t | 4 ++-- t/02-JournalCtl.t | 4 ++-- t/02-Users.t | 4 ++-- t/03-Shared_GUI.t | 16 ++++++++-------- t/04-Shared_TimeZone.t | 4 ++-- t/05-rpmnew.t | 4 ++-- t/06-rpmdragora.t | 2 +- t/boilerplate.t | 2 +- 9 files changed, 23 insertions(+), 23 deletions(-) (limited to 't') diff --git a/t/00-load.t b/t/00-load.t index 7b6ca13..4f28029 100644 --- a/t/00-load.t +++ b/t/00-load.t @@ -7,8 +7,8 @@ use Test::More; plan tests => 2; BEGIN { - use_ok( 'AdminPanel::Shared' ) || print "AdminPanel::Shared failed\n"; - use_ok( 'AdminPanel::SettingsReader' ) || print "AdminPanel::SettingsReader failed\n"; + use_ok( 'ManaTools::Shared' ) || print "ManaTools::Shared failed\n"; + use_ok( 'ManaTools::SettingsReader' ) || print "ManaTools::SettingsReader failed\n"; } -diag( "Testing AdminPanel::Shared $AdminPanel::Shared::VERSION, Perl $], $^X" ); +diag( "Testing ManaTools::Shared $ManaTools::Shared::VERSION, Perl $], $^X" ); diff --git a/t/01-Locales.t b/t/01-Locales.t index e2016d0..5fef81e 100644 --- a/t/01-Locales.t +++ b/t/01-Locales.t @@ -4,10 +4,10 @@ use warnings FATAL => 'all'; use Test::More; BEGIN { - use_ok( 'AdminPanel::Shared::Locales' ) || print "Locales failed!\n"; + use_ok( 'ManaTools::Shared::Locales' ) || print "Locales failed!\n"; } -ok( my $o = AdminPanel::Shared::Locales->new({domain_name => 'test_AdminPanel_Shared_Locales'}), 'create'); +ok( my $o = ManaTools::Shared::Locales->new({domain_name => 'test_ManaTools_Shared_Locales'}), 'create'); is( $o->N_("test"), 'test', 'N' ); done_testing; diff --git a/t/02-JournalCtl.t b/t/02-JournalCtl.t index 4826ad4..3eb5212 100644 --- a/t/02-JournalCtl.t +++ b/t/02-JournalCtl.t @@ -4,10 +4,10 @@ use warnings FATAL => 'all'; use Test::More; BEGIN { - use_ok( 'AdminPanel::Shared::JournalCtl' ) || print "JournalCtl failed!\n"; + use_ok( 'ManaTools::Shared::JournalCtl' ) || print "JournalCtl failed!\n"; } - ok( my $o = AdminPanel::Shared::JournalCtl->new(this_boot=>1,), 'create'); + ok( my $o = ManaTools::Shared::JournalCtl->new(this_boot=>1,), 'create'); ok( my $c = $o->getLog(), 'gets_log' ); done_testing; diff --git a/t/02-Users.t b/t/02-Users.t index 0822e0b..1feb6ad 100644 --- a/t/02-Users.t +++ b/t/02-Users.t @@ -4,10 +4,10 @@ use warnings FATAL => 'all'; use Test::More; BEGIN { - use_ok( 'AdminPanel::Shared::Users' ) || print "Users failed!\n"; + use_ok( 'ManaTools::Shared::Users' ) || print "Users failed!\n"; } - ok( my $o = AdminPanel::Shared::Users->new({user_face_dir => '/tmp'}), 'create'); + ok( my $o = ManaTools::Shared::Users->new({user_face_dir => '/tmp'}), 'create'); ok( my $facedir = $o->facedir(), 'facedir' ); diag "facedir got: < " . $facedir . " >"; ok( my $userfacedir = $o->userfacedir(), 'userfacedir' ); diff --git a/t/03-Shared_GUI.t b/t/03-Shared_GUI.t index 1bda166..74c6ec4 100644 --- a/t/03-Shared_GUI.t +++ b/t/03-Shared_GUI.t @@ -4,13 +4,13 @@ use warnings FATAL => 'all'; use Test::More; BEGIN { - use_ok( 'AdminPanel::Shared::GUI' ) || print "AdminPanel::Shared::GUI failed!\n"; - use_ok( 'AdminPanel::Shared' ) || print "AdminPanel::Shared failed!\n"; + use_ok( 'ManaTools::Shared::GUI' ) || print "ManaTools::Shared::GUI failed!\n"; + use_ok( 'ManaTools::Shared' ) || print "ManaTools::Shared failed!\n"; } - is (AdminPanel::Shared::distName(), 'adminpanel', 'distname'); + is (ManaTools::Shared::distName(), 'manatools', 'distname'); - ok( my $gui = AdminPanel::Shared::GUI->new(), 'create'); + ok( my $gui = ManaTools::Shared::GUI->new(), 'create'); SKIP: { #remember to skip the right number of tests @@ -40,7 +40,7 @@ SKIP: { diag "ask_fromList got: < " . ($item ? $item : "none") . " >"; ok( my $mul_selection = $gui->ask_multiple_fromList({ - title => "Choose from list", + title => "Choose from list", header => "What do you have selected?", list => [ map { @@ -57,7 +57,7 @@ SKIP: { )], }), 'ask_multiple_fromList'); diag "ask_multiple_fromList got: < " . join(' - ', @${mul_selection}) . " >"; - + ok(my $selection = $gui->select_fromList({ title => "Select from list", header => { @@ -82,14 +82,14 @@ SKIP: { diag "ask_fromTreeList got: < " . ($item ? $item : "none") . " >"; ok($gui->AboutDialog({ name => "Shared::GUI TABBED", - version => $AdminPanel::Shared::VERSION, + version => $ManaTools::Shared::VERSION, credits => "Copyright (C) 2014 Angelo Naselli", license => 'GPLv2', authors => "Angelo Naselli \nMatteo Pasotti ", }), 'AboutDialog'); ok($gui->AboutDialog({ name => "Shared::GUI CLASSIC", - version => $AdminPanel::Shared::VERSION, + version => $ManaTools::Shared::VERSION, credits => "Copyright (C) 2014 Angelo Naselli", license => 'GPLv2', authors => "Angelo Naselli \nMatteo Pasotti ", diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t index f11bb2c..0bd007d 100644 --- a/t/04-Shared_TimeZone.t +++ b/t/04-Shared_TimeZone.t @@ -6,10 +6,10 @@ use Data::Dumper; use Time::Piece; BEGIN { - use_ok( 'AdminPanel::Shared::TimeZone' ) || print "AdminPanel::Shared::TimeZone failed!\n"; + use_ok( 'ManaTools::Shared::TimeZone' ) || print "ManaTools::Shared::TimeZone failed!\n"; } - ok( my $tz = AdminPanel::Shared::TimeZone->new(), 'create'); + ok( my $tz = ManaTools::Shared::TimeZone->new(), 'create'); is( $tz->get_timezone_prefix(), '/usr/share/zoneinfo', 'get_timezone_prefix' ); ok (my @l = $tz->getTimeZones(), 'getTimeZones'); ok (my $h = $tz->readConfiguration(), 'readConfiguration'); diff --git a/t/05-rpmnew.t b/t/05-rpmnew.t index ce56139..d0d1673 100644 --- a/t/05-rpmnew.t +++ b/t/05-rpmnew.t @@ -4,7 +4,7 @@ use warnings FATAL => 'all'; use Test::More; BEGIN { - use_ok( 'AdminPanel::Rpmdragora::rpmnew' ) || print "AdminPanel::Rpmdragora::rpmnew failed!\n"; + use_ok( 'ManaTools::Rpmdragora::rpmnew' ) || print "ManaTools::Rpmdragora::rpmnew failed!\n"; } @@ -21,7 +21,7 @@ SKIP: { print MYFILE "value1 = 1\n"; close (MYFILE); - is( AdminPanel::Rpmdragora::rpmnew::rpmnew_dialog("Test rpmnew dialog", ( + is( ManaTools::Rpmdragora::rpmnew::rpmnew_dialog("Test rpmnew dialog", ( test_package => ["/tmp/_rpmnew_test", "/tmp/rpmnew_test"], test_package2 => ["/tmp/tp2"], )), 0, 'rpmnew'); diff --git a/t/06-rpmdragora.t b/t/06-rpmdragora.t index 1be69c5..49ff7c5 100644 --- a/t/06-rpmdragora.t +++ b/t/06-rpmdragora.t @@ -4,7 +4,7 @@ use warnings FATAL => 'all'; use Test::More; BEGIN { - use_ok( 'AdminPanel::rpmdragora' ) || print "AdminPanel::rpmdragora failed!\n"; + use_ok( 'ManaTools::rpmdragora' ) || print "ManaTools::rpmdragora failed!\n"; } diff --git a/t/boilerplate.t b/t/boilerplate.t index 9d8d3fa..b789aa6 100644 --- a/t/boilerplate.t +++ b/t/boilerplate.t @@ -50,7 +50,7 @@ TODO: { "placeholder date/time" => qr(Date/time) ); - module_boilerplate_ok('lib/AdminPanel/Shared.pm'); + module_boilerplate_ok('lib/ManaTools/Shared.pm'); } -- cgit v1.2.1