File Coverage

File:t/version.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1#!/usr/bin/perl -wl
2
3
1
1
1
4802
46207
70
use Test::More tests => 1;
4
1
1
1
2747
39903
201
use File::Slurp;
5
1
1
1
15
5
197
use File::Basename;
6
1
1
1
1
1
1
68
9
88
11
5
517334
use 5.010;
7
8
1
180
my $basedir = dirname($0).'/..';
9
10
1
10512
my $debian_changelog_version = `head -1 $basedir/debian/changelog | awk -F'[ ()]+' '{print \$2}'`;
11
1
26
chomp($debian_changelog_version);
12
1
8522
my $script_version = `egrep '^our .VERSION' $basedir/bin/unburden-home-dir`;
13
1
647
eval($script_version);
14
15
1
111
is( $debian_changelog_version, $VERSION,
16    'Version numbers in debian/changelog and bin/unburden-home-dir are the same' );
17