perl/t/version/sed.t

   1 #!/usr/bin/env perl
   2 # <major>.<minor>[.<subminor>][pl<patchlevel>]]<tail>
   3 use strict;
   4 use warnings;
   5 use lib qw't perl/t ..';
   6 use version::input;
   7
   8 our %test = version::input::load(
   9   filter =>[qw'version major minor subminor patchlevel id xid mangled'],
  10   map => {
  11     snapshot => sub{$_[1]||0}
  12   }
  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  => 'id',
  25   version_xid => 'xid',
  26   ver         => 'version'
  27 );
  28
  29 for my $test ( sort keys %test ){
  30   my $expected = $test{$test};
  31   my $returned = `echo $test | perl version.pl sed`;
  32
  33   my %got;
  34   while( $returned =~ m{
  35     \G\s*
  36     s/\@\@NASM_(\w+)\@\@/(.+?)/g\s*
  37     }xgcs
  38   ){
  39     $got{lc $1} = $2;
  40   }
  41
  42   for my $key ( keys %map ){
  43     if( defined $got{$key} ){
  44       my $value = $map{$key};
  45       $got{$value} = $got{$key} if defined $value;
  46       delete $got{$key};
  47     }
  48   }
  49
  50   is_deeply(\%got,$expected,$test);
  51 }
  52 __END__
  53 s/@@NASM_MAJOR@@/2/g
  54 s/@@NASM_MINOR@@/5/g
  55 s/@@NASM_SUBMINOR@@/99/g
  56 s/@@NASM_PATCHLEVEL@@/98/g
  57 s/@@NASM_SNAPSHOT@@/0/g
  58 s/@@NASM_VERSION_ID@@/33907554/g
  59 s/@@NASM_VERSION_XID@@/0x02056362/g
  60 s/@@NASM_VER@@/2.06rc8/g
  61 s/@@NASM_MANGLED_VER@@/2.05.99.98/g