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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
=head1 NAME
40-testplanner.t - basic test for testplanner.pl
=cut
use English qw(-no_match_vars);
use File::Spec::Functions;
use File::Temp;
use File::chdir;
use FindBin;
use Readonly;
use ReleaseAction qw(on_release);
use Test::More;
use Text::Diff;
use lib "$FindBin::Bin/../../lib/perl5";
use QtQA::Test::More qw(find_qmake);
Readonly my $TESTPLANNER => catfile( $FindBin::Bin, qw(.. testplanner.pl) );
Readonly my $TESTDATA_DIR => catfile( $FindBin::Bin, qw(data test-projects) );
Readonly my $QMAKE => find_qmake( );
sub test_testplanner_on_testdata
{
my $testplan = File::Temp->new(
TEMPLATE => 'qtqa-testplan-XXXXXX',
TMPDIR => 1,
);
$testplan = "$testplan";
my $cleanup = on_release { unlink $testplan };
# Put some garbage in environment variables relating to "make check", to ensure
# that this does _not_ affect the behavior
local $ENV{ TESTRUNNER } = 'some testrunner';
local $ENV{ TESTARGS } = 'some testargs';
my @cmd = (
$EXECUTABLE_NAME,
$TESTPLANNER,
'--input',
$TESTDATA_DIR,
'--output',
"$testplan",
);
if ($OSNAME =~ m{win32}i) {
if (!system( 'where', "/Q", "nmake" )) {
push @cmd, (
'--make',
'nmake',
);
} elsif (!system( 'where', "/Q", "mingw32-make" )) {
push @cmd, (
'--make',
'mingw32-make',
);
} # else - use default
} # else - use default
my $status = system( @cmd );
is( $status, 0, 'testplanner exit code OK' );
# Note we must open a new fh to the testplan file, since the testplanner
# script overwrote it.
my @lines;
my $fh = IO::File->new( "$testplan", '<' ) || die "open $testplan for read: $!";
# We need to replace the testdata dir with a %TESTDATA_DIR% macro, to avoid having
# untestable full paths in the testdata.
# We allow both unix style and platform native style paths.
my $canon_testdata_dir = canonpath $TESTDATA_DIR;
# Paths will be quoted with qq in the testplan, so \ becomes \\
$canon_testdata_dir =~ s{\\}{\\\\}g;
while (my $line = <$fh>) {
$line =~ s{\Q$TESTDATA_DIR\E}{%TESTDATA_DIR%}g;
$line =~ s{\Q$canon_testdata_dir\E}{%TESTDATA_DIR%}g;
push @lines, $line;
}
# The order of output from testplanner is undefined.
# We sort the lines for a stable comparison.
@lines = sort @lines;
my $expected = "$TESTDATA_DIR/expected_testplan";
if ($OSNAME =~ m{win32}i) {
$expected .= '_win32';
}
$expected .= '.txt';
my $diff = diff( \@lines, $expected );
ok( !$diff, 'testplanner output as expected' )
|| diag( "diff between actual and expected:\n$diff" );
return;
}
sub run
{
if (!$QMAKE) {
plan skip_all => 'no qmake available for testing';
}
# qmake the testdata before doing anything else.
{
local $CWD = $TESTDATA_DIR;
my $status = system( $QMAKE );
is( $status, 0, 'qmake ran OK' );
}
test_testplanner_on_testdata;
done_testing;
return;
}
run if (!caller);
1;
|
