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