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
|
use Test::More tests => 28;
use Dpkg::IPC;
my $pwd = `pwd`;
chdir "t/additional";
# Configure step
spawn(
exec => [ 'dh_auto_configure', '--buildsystem=nodejs' ],
wait_child => 1
);
ok( !-l 'node_modules/comp-one', 'comp-one/nolink' );
ok( -l 'node_modules/comp_two', 'Main link' );
ok( readlink('node_modules/comp_two') eq '../packages/comp-two', ' good link' );
ok( -l 'node_modules/comp-three', 'Main link' );
ok( -l 'packages/comp-three/node_modules/comp_two', 'component_links' );
ok(
readlink('packages/comp-three/node_modules/comp_two') eq
'../../../packages/comp-two',
' good link'
);
# Build step
spawn( exec => [ 'dh_auto_build', '--buildsystem=nodejs' ], wait_child => 1 );
ok( -e 'comp-one/a', 'build creates comp-one/a' );
unlink 'comp-one/a';
# Test step
spawn( exec => [ 'dh_auto_test', '--buildsystem=nodejs' ], wait_child => 1 );
ok( -e 'foo', 'File "foo" created' ) or diag `ls -l`;
unlink('foo');
# Install step
spawn(
exec => [ 'dh_auto_install', '--buildsystem=nodejs' ],
wait_child => 1
);
unlink('comp-one/bar');
foreach (
qw(
debian/foo/usr/share/nodejs/foo/package.json
debian/foo/usr/share/nodejs/foo/index.js
debian/foo/usr/share/nodejs/comp-one/package.json
debian/foo/usr/share/nodejs/comp-one/index.js
debian/foo/usr/share/nodejs/comp_two/package.json
debian/foo/usr/share/nodejs/comp_two/index.js
debian/foo/usr/share/nodejs/comp-three/index.js
debian/foo/usr/share/nodejs/comp-three/package.json
debian/foo/usr/share/nodejs/comp-three/test.js
)
)
{
ok( -f $_, "$_ installed" );
}
foreach (
qw(
debian/foo/usr/share/nodejs/comp-one/test.js
debian/foo/usr/share/nodejs/comp_two/tests.js
)
)
{
ok( !-f $_, "$_ not installed" );
}
if ( ok( -f 'debian/foo.substvars', 'Substvars file exists' ) ) {
open my $f, '<', 'debian/foo.substvars';
my ( $provides, $nodeVersion );
while (<$f>) {
if (/^nodejs:Provides=(.*)$/) {
$provides = $1;
}
elsif (/^nodejs:Version=(.*)$/) {
$nodeVersion = $1;
}
}
close $f;
ok( $provides, 'Found ${nodejs:Provides}' );
ok( $nodeVersion, "Found \${nodejs:Version}: $nodeVersion" );
ok( $nodeVersion =~ /^\d/, '${nodejs:Version} starts with a digit' );
my %h = map { /^(\S+)\s*\(=\s*(\S+)\s*\)$/; ( $1 => $2 ) } split /\s*,\s*/,
$provides;
my %ref = (
'foo' => '0.1',
'comp-one' => '0.1.1',
'comp-two' => '0.2',
'comp-three' => '0.3.3',
);
foreach my $mod ( sort keys %ref ) {
ok(
delete( $h{"node-$mod"} ) eq $ref{$mod},
"Found node-$mod (= $ref{$mod})"
);
}
ok( !%h, 'No other values found' );
}
spawn( exec => [ 'dh_auto_clean', '--buildsystem=nodejs' ], wait_child => 1 );
spawn( exec => ['dh_clean'], wait_child => 1 );
chdir $pwd;
|
