blob: cc1021f68f7aa77e7d0089f8b3255a3684778a4d (
plain)
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
32
33
34
35
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;
|
