From cb2cf96a6a5e16af940a5b420fea6a760aff568c Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Mon, 1 Dec 2014 22:34:58 +0100 Subject: Added rpmnew management --- t/05-rpmnew.t | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 t/05-rpmnew.t (limited to 't') diff --git a/t/05-rpmnew.t b/t/05-rpmnew.t new file mode 100644 index 00000000..cc1021f6 --- /dev/null +++ b/t/05-rpmnew.t @@ -0,0 +1,36 @@ +use 5.006; +use strict; +use warnings FATAL => 'all'; +use Test::More; + +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 "You didn't say yes...", 1, unless ( $a eq "y" ); + + open (MYFILE, '>/tmp/_rpmnew_test'); + print MYFILE "value = 1\n"; + print MYFILE "value1 = 2\n"; + close (MYFILE); + 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'); + + } + + +done_testing; -- cgit v1.2.1