From c4ffb4768cdce6d4a884c73f443818a9bbf6da27 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Sat, 6 Sep 2014 22:24:17 +0200 Subject: added distName to be used in File::ShareDir::dist_file --- t/03-Shared_GUI.t | 2 ++ 1 file changed, 2 insertions(+) (limited to 't') diff --git a/t/03-Shared_GUI.t b/t/03-Shared_GUI.t index f4ac300..57a24be 100644 --- a/t/03-Shared_GUI.t +++ b/t/03-Shared_GUI.t @@ -9,6 +9,8 @@ BEGIN { use_ok( 'AdminPanel::Shared' ) || print "AdminPanel::Shared failed!\n"; } + is (AdminPanel::Shared::distName(), 'adminpanel', 'distname'); + ok( my $gui = AdminPanel::Shared::GUI->new(), 'create'); diag "\n\nNext tests will create some gui dialogs"; -- cgit v1.2.1