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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use English qw(-no_match_vars);
use FusionInventory::Agent;
plan(skip_all => 'Author test, set $ENV{TEST_AUTHOR} to a true value to run')
if !$ENV{TEST_AUTHOR};
plan tests => 1;
open (my $handle, '<', 'Changes') or die "unable to open Change file: $ERRNO";
# skip the 2 first lines;
<$handle>;
<$handle>;
# read third line
my $line = <$handle>;
close $handle;
like(
$line,
qr/$FusionInventory::Agent::VERSION \w{3}, \d{1,2} \w{3} \d{4}$/,
'changelog entry matches expected format'
);
|
