blob: fe76e8dc09b82775a87214e9e8bb507a95cda512 (
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
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!/usr/bin/perl
use strict;
use Test::More tests => 1;
use autodie;
use File::Basename qw(dirname);
use lib dirname(dirname(__FILE__));
use Test::DH;
use File::Path qw(remove_tree make_path);
use Debian::Debhelper::Dh_Lib qw(!dirname);
our @TEST_DH_EXTRA_TEMPLATE_FILES = (qw(
debian/changelog
debian/control
));
my $SCHEMAS = 'usr/share/glib-2.0/schemas';
sub touch {
my $path = shift;
open(my $fh, '>>', $path);
close $fh;
}
sub slurp {
my $path = shift;
local $/ = undef;
open(my $fh, '<', $path);
my $contents = <$fh>;
close $fh;
return $contents;
}
each_compat_subtest {
make_path("debian/has-settings/$SCHEMAS");
touch("debian/has-settings/$SCHEMAS/com.example.HasSettings.xml");
make_path("debian/has-unimportant-settings/$SCHEMAS");
touch("debian/no-settings.substvars");
ok(run_dh_tool('dh_installgsettings', '-phas-settings'), 'run for has-settings');
ok(run_dh_tool('dh_installgsettings', '-pno-settings'), 'run for no-settings');
remove_tree(qw(debian/has-settings debian/has-unimportant-settings));
like(slurp('debian/has-settings.substvars'),
qr{^misc:Depends=dconf-gsettings-backend \| gsettings-backend$}m,
'has-settings should depend on a backend');
unlike(slurp('debian/no-settings.substvars'),
qr{^misc:Depends=dconf-gsettings-backend \| gsettings-backend$}m,
'no-settings should not depend on a backend');
};
|
