perl/t/version-h.t

   1 #!/usr/bin/env perl
   2 # <major>.<minor>[.<subminor>][pl<patchlevel>]]<tail>
   3 use strict;
   4 use warnings;
   5 use lib qw'. t';
   6 use version_input;
   7
   8 our %test = version_input::load(
   9   #remove=>[qw'xid rc mangled tail'],
  10   filter => [qw' major minor subminor patchlevel xid snapshot'],
  11   map =>{
  12     version => sub{'"'.$_[1].'"'}
  13   }
  14 );
  15
  16 use Test::More;
  17 eval "use Test::More 'tests' => ".(scalar keys %test);
  18 die $@ if $@;
  19
  20
  21
  22 my %map = (
  23   mangled_ver    => 'mangled',
  24   version_id     => 'xid',
  25   ver            => 'version',
  26   major_ver      => 'major',
  27   minor_ver      => 'minor',
  28   subminor_ver   => 'subminor',
  29   patchlevel_ver => 'patchlevel'
  30 );
  31
  32 for my $test ( sort keys %test ){
  33   my $expected = $test{$test};
  34   my $returned = `echo $test | perl version.pl h`;
  35
  36   my %got;
  37   # skip
  38   $returned =~ m/#define NASM_VERSION_H\n/gc;
  39   while( $returned =~ m{
  40     \G\s*
  41     [#] define \s+ NASM_(\w+)\s+(.+?)\n
  42     }xgcs
  43   ){
  44     $got{lc $1} = $2;
  45   }
  46
  47   for my $key ( keys %map ){
  48     if( defined $got{$key} ){
  49       my $value = $map{$key};
  50       $got{$value} = $got{$key} if defined $value;
  51       delete $got{$key};
  52     }
  53   }
  54
  55   is_deeply(\%got,$expected);
  56 }
  57 __END__
  58 #ifndef NASM_VERSION_H
  59 #define NASM_VERSION_H
  60 #define NASM_MAJOR_VER      2
  61 #define NASM_MINOR_VER      5
  62 #define NASM_SUBMINOR_VER   99
  63 #define NASM_PATCHLEVEL_VER 98
  64 #define NASM_VERSION_ID     0x02056362
  65 #define NASM_VER            "2.06rc8"
  66 #endif /* NASM_VERSION_H */
  67