2 # <major>.<minor>[.<subminor>][pl<patchlevel>]]<tail>
5 use lib qw
't perl/t ..';
8 our %test = version
::input
::load
(
9 filter
=>[qw
'version major minor subminor patchlevel']
14 eval "use Test::More 'tests' => ".(scalar keys %test);
24 subminor_ver
=> 'subminor',
25 patchlevel_ver
=> 'patchlevel'
28 for my $test ( sort keys %test ){
29 my $expected = $test{$test};
30 my $returned = `echo $test | perl version.pl make`;
33 while( $returned =~ m
{
41 for my $key ( keys %map ){
42 if( defined $got{$key} ){
43 my $value = $map{$key};
44 $got{$value} = $got{$key} if defined $value;
49 is_deeply
(\
%got,$expected,$test);
56 NASM_PATCHLEVEL_VER
=98