diff options
| author | Angelo Naselli <anaselli@linux.it> | 2015-03-16 18:16:50 +0100 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2015-03-16 18:16:50 +0100 |
| commit | fc9772f1f03684e8dab50ff77d2c46c5e0309c7b (patch) | |
| tree | 375b76cf80e5d816eb48a4badf3bb949199ef220 /t/03-Shared_GUI.t | |
| parent | 825922057a21a9b09c60edf4b44535d7fd49926d (diff) | |
| download | manatools-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/03-Shared_GUI.t')
| -rw-r--r-- | t/03-Shared_GUI.t | 16 |
1 files changed, 8 insertions, 8 deletions
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>", |