perl/t/version/sed.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use lib qw't perl/t ..';
   6 use version::input;
   7
   8 our %test = 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 plan( tests => scalar keys %test );
  18
  19
  20 my %map = (
  21   mangled_ver => 'mangled',
  22   version_id  => 'id',
  23   version_xid => 'xid',
  24   ver         => 'version'
  25 );
  26
  27 for my $test ( sort keys %test ){
  28   my $expected = $test{$test};
  29   my $returned = `echo $test | perl version.pl sed`;
  30
  31   my %got;
  32   while( $returned =~ m{
  33     \G\s*
  34     s/\@\@NASM_(\w+)\@\@/(.+?)/g\s*
  35     }xgcs
  36   ){
  37     $got{lc $1} = $2;
  38   }
  39
  40   for my $key ( keys %map ){
  41     if( defined $got{$key} ){
  42       my $value = $map{$key};
  43       $got{$value} = $got{$key} if defined $value;
  44       delete $got{$key};
  45     }
  46   }
  47
  48   is_deeply(\%got,$expected,$test);
  49 }
  50 __END__
  51 s/@@NASM_MAJOR@@/2/g
  52 s/@@NASM_MINOR@@/5/g
  53 s/@@NASM_SUBMINOR@@/99/g
  54 s/@@NASM_PATCHLEVEL@@/100/g
  55 s/@@NASM_SNAPSHOT@@/0/g
  56 s/@@NASM_VERSION_ID@@/33907556/g
  57 s/@@NASM_VERSION_XID@@/0x02056364/g
  58 s/@@NASM_VER@@/2.06rc10/g
  59 s/@@NASM_MANGLED_VER@@/2.05.99.100/g