File Coverage: t/version.t

# File Coverage

File: | t/version.t
Coverage: | 100.0%

line | stmt | bran | cond | sub | pod | time | code
--- | --- | --- | --- | --- | --- | --- | ---
1 |  |  |  |  |  |  | #!/usr/bin/perl -wl
2 |
3 | 1 1 1 |  |  | 1 |  | 4802 46207 70 | use Test::More tests => 1;
4 | 1 1 1 |  |  | 1 |  | 2747 39903 201 | use File::Slurp;
5 | 1 1 1 |  |  | 1 |  | 15 5 197 | use File::Basename;
6 | 1 1 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 |