aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2015-03-16 18:16:50 +0100
committerAngelo Naselli <anaselli@linux.it>2015-03-16 18:16:50 +0100
commitfc9772f1f03684e8dab50ff77d2c46c5e0309c7b (patch)
tree375b76cf80e5d816eb48a4badf3bb949199ef220 /t
parent825922057a21a9b09c60edf4b44535d7fd49926d (diff)
downloadmanatools-fc9772f1f03684e8dab50ff77d2c46c5e0309c7b.tar
manatools-fc9772f1f03684e8dab50ff77d2c46c5e0309c7b.tar.gz
manatools-fc9772f1f03684e8dab50ff77d2c46c5e0309c7b.tar.bz2
manatools-fc9772f1f03684e8dab50ff77d2c46c5e0309c7b.tar.xz
manatools-fc9772f1f03684e8dab50ff77d2c46c5e0309c7b.zip
Moved to namespace to ManaTools
Diffstat (limited to 't')
-rw-r--r--t/00-load.t6
-rw-r--r--t/01-Locales.t4
-rw-r--r--t/02-JournalCtl.t4
-rw-r--r--t/02-Users.t4
-rw-r--r--t/03-Shared_GUI.t16
-rw-r--r--t/04-Shared_TimeZone.t4
-rw-r--r--t/05-rpmnew.t4
-rw-r--r--t/06-rpmdragora.t2
-rw-r--r--t/boilerplate.t2
9 files changed, 23 insertions, 23 deletions
diff --git a/t/00-load.t b/t/00-load.t
index 7b6ca138..4f28029b 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 e2016d02..5fef81e2 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 4826ad48..3eb52122 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 0822e0bd..1feb6ad7 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 1bda166d..74c6ec42 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 <anaselli\@linux.it>\nMatteo Pasotti <matteo.pasotti\@gmail.com>",
}), '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 <anaselli\@linux.it>\nMatteo Pasotti <matteo.pasotti\@gmail.com>",
diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t
index f11bb2c6..0bd007d6 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 ce561397..d0d16735 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 1be69c5e..49ff7c5b 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 9d8d3fae..b789aa64 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');
}