t/06-rpmdragora.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;

BEGIN {
    use_ok( 'ManaTools::rpmdragora' ) || print "ManaTools::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,
                     min_size => {lines => 18,}
        ),
        'interactive_msg',
    );
}


done_testing;