1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More;
7use English qw(-no_match_vars);
8
9use FusionInventory::Agent;
10
11plan(skip_all => 'Author test, set $ENV{TEST_AUTHOR} to a true value to run')
12    if !$ENV{TEST_AUTHOR};
13
14plan tests => 1;
15
16open (my $handle, '<', 'Changes') or die "unable to open Change file: $ERRNO";
17
18# skip the 2 first lines;
19<$handle>;
20<$handle>;
21
22# read third line
23my $line = <$handle>;
24close $handle;
25like(
26    $line,
27    qr/$FusionInventory::Agent::VERSION \w{3}, \d{1,2} \w{3} \d{4}$/,
28    'changelog entry matches expected format'
29);
30