perl/t/version/mac.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use lib qw't perl/t ..';
   5 use version::input;
   6
   7 our %test = version::input::load(
   8   #remove=>[qw'xid rc mangled tail'],
   9   filter => [qw' major minor subminor patchlevel snapshot'],
  10   map=>{
  11     version_id => sub{sprintf('0%08Xh',$_[3]{id})}
  12   },
  13   map =>{
  14     version => sub{'"'.$_[1].'"'}
  15   }
  16 );
  17
  18
  19
  20 use Test::More;
  21 eval "use Test::More 'tests' => ".(scalar keys %test);
  22 die $@ if $@;
  23
  24
  25
  26
  27 my %map = (
  28   ver => 'version'
  29 );
  30
  31 for my $test ( sort keys %test ){
  32   my $expected = $test{$test};
  33   my $returned = `echo $test | perl version.pl mac`;
  34
  35   my %got;
  36   while( $returned =~ m{
  37     \G\s*
  38     %define \s+ __NASM_(\w+?)__\s+(.+?)\n
  39     }xgcms
  40   ){
  41     $got{lc $1} = $2;
  42   }
  43
  44   for my $key ( keys %map ){
  45     if( defined $got{$key} ){
  46       my $value = $map{$key};
  47       $got{$value} = $got{$key} if defined $value;
  48       delete $got{$key};
  49     }
  50   }
  51
  52   is_deeply( \%got, $expected, $test );
  53 }
  54
  55 __END__
  56 %define __NASM_MAJOR__ 2
  57 %define __NASM_MINOR__ 5
  58 %define __NASM_SUBMINOR__ 99
  59 %define __NASM_PATCHLEVEL__ 98
  60 %define __NASM_SNAPSHOT__ 2009
  61 %define __NASM_VERSION_ID__ 002056362h
  62 %define __NASM_VER__ "2.06rc8-2009"