aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2015-02-23 10:00:30 +0100
committerAngelo Naselli <anaselli@linux.it>2015-02-23 10:00:30 +0100
commit0642af21a73f5128106b456195ab128bcb4619b6 (patch)
tree3ab4ec9bb66ec56b99edf8712f9e332384827619 /t
parent3a2bd5de0400162feea41b8ea016cca00a2a6288 (diff)
downloadmanatools-0642af21a73f5128106b456195ab128bcb4619b6.tar
manatools-0642af21a73f5128106b456195ab128bcb4619b6.tar.gz
manatools-0642af21a73f5128106b456195ab128bcb4619b6.tar.bz2
manatools-0642af21a73f5128106b456195ab128bcb4619b6.tar.xz
manatools-0642af21a73f5128106b456195ab128bcb4619b6.zip
fixed confirmimg dialog size by adding min_size param to interactive_msg
added a test case for interactive_msg
Diffstat (limited to 't')
-rw-r--r--t/06-rpmdragora.t30
1 files changed, 30 insertions, 0 deletions
diff --git a/t/06-rpmdragora.t b/t/06-rpmdragora.t
new file mode 100644
index 00000000..e59533df
--- /dev/null
+++ b/t/06-rpmdragora.t
@@ -0,0 +1,30 @@
+use 5.006;
+use strict;
+use warnings FATAL => 'all';
+use Test::More;
+
+BEGIN {
+ use_ok( 'AdminPanel::rpmdragora' ) || print "AdminPanel::rpmdragora failed!\n";
+}
+
+
+SKIP: {
+ #remember to skip the righ number of tests
+ skip "To enable dialog tests set TEST_GUI", 1, unless $ENV{TEST_GUI};
+
+ ok( interactive_msg( "Interactive msg title",
+ join(
+ "\n\n",
+ "text line 1",
+ "text line 2",
+ "text line 3",
+ "set yesno => 1 to have a yesno dialog otherwhise just ok button is shown",
+ "press ok to continue"),
+ scroll => 1,
+ ),
+ 'interactive_msg',
+ );
+}
+
+
+done_testing;