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 | 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 |