aboutsummaryrefslogtreecommitdiffstats
path: root/t/05-rpmnew.t
diff options
context:
space:
mode:
Diffstat (limited to 't/05-rpmnew.t')
-rw-r--r--t/05-rpmnew.t24
1 files changed, 10 insertions, 14 deletions
diff --git a/t/05-rpmnew.t b/t/05-rpmnew.t
index cc1021f6..ce561397 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;