1 files changed, 30 insertions, 0 deletions
diff --git a/t/06-rpmdragora.t b/t/06-rpmdragora.t
new file mode 100644
index 0000000..e59533d
--- /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;