diff options
Diffstat (limited to 't/05-rpmnew.t')
| -rw-r--r-- | t/05-rpmnew.t | 24 |
1 files changed, 10 insertions, 14 deletions
diff --git a/t/05-rpmnew.t b/t/05-rpmnew.t index cc1021f..ce56139 100644 --- a/t/05-rpmnew.t +++ b/t/05-rpmnew.t @@ -7,30 +7,26 @@ BEGIN { use_ok( 'AdminPanel::Rpmdragora::rpmnew' ) || print "AdminPanel::Rpmdragora::rpmnew failed!\n"; } - diag "\n\nNext tests will create some gui dialogs"; - diag "Perform tests (y/n) [n] ?"; - my $a = <>; chomp $a; $a = "n" unless $a; +SKIP: { + #remember to skip the righ number of tests + skip "To enable dialog tests set TEST_GUI", 1, unless $ENV{TEST_GUI}; - SKIP: { - #remember to skip the righ number of tests - skip "You didn't say yes...", 1, unless ( $a eq "y" ); - - open (MYFILE, '>/tmp/_rpmnew_test'); + open (MYFILE, '>/tmp/_rpmnew_test'); print MYFILE "value = 1\n"; print MYFILE "value1 = 2\n"; close (MYFILE); - open (MYFILE, '>/tmp/_rpmnew_test.rpmnew'); + open (MYFILE, '>/tmp/_rpmnew_test.rpmnew'); print MYFILE "value = 2\n"; print MYFILE "value1 = 1\n"; close (MYFILE); - is( AdminPanel::Rpmdragora::rpmnew::rpmnew_dialog("Test rpmnew dialog", ( - test_package => ["/tmp/_rpmnew_test", "/tmp/rpmnew_test"], - test_package2 => ["/tmp/tp2"], - )), 0, 'rpmnew'); + is( AdminPanel::Rpmdragora::rpmnew::rpmnew_dialog("Test rpmnew dialog", ( + test_package => ["/tmp/_rpmnew_test", "/tmp/rpmnew_test"], + test_package2 => ["/tmp/tp2"], + )), 0, 'rpmnew'); - } +} done_testing; |