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