From 0642af21a73f5128106b456195ab128bcb4619b6 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Mon, 23 Feb 2015 10:00:30 +0100 Subject: fixed confirmimg dialog size by adding min_size param to interactive_msg added a test case for interactive_msg --- t/06-rpmdragora.t | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 t/06-rpmdragora.t (limited to 't/06-rpmdragora.t') 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; -- cgit v1.2.1