perl/t/version/nsis.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'major minor subminor patchlevel'],
  10   map    =>{
  11     version => sub{'"'.$_[1].'"'}
  12   }
  13 );
  14
  15 use Test::More;
  16 plan( tests => scalar keys %test );
  17
  18
  19 my %map = (
  20   major_ver      => 'major',
  21   minor_ver      => 'minor',
  22   subminor_ver   => 'subminor',
  23   patchlevel_ver => 'patchlevel'
  24 );
  25
  26 for my $test ( sort keys %test ){
  27   my $expected = $test{$test};
  28   my $returned = `echo $test | perl version.pl nsis`;
  29
  30   my %got;
  31   while( $returned =~ m{
  32     \G\s*
  33     !define \s+ (\w+) \s+ (.*?)\n
  34     }xgcs
  35   ){
  36     $got{lc $1} = $2;
  37   }
  38
  39   for my $key ( keys %map ){
  40     if( defined $got{$key} ){
  41       my $value = $map{$key};
  42       $got{$value} = $got{$key} if defined $value;
  43       delete $got{$key};
  44     }
  45   }
  46
  47   is_deeply(\%got,$expected,$test);
  48 }
  49 __END__
  50 !define VERSION "2.06rc10"
  51 !define MAJOR_VER 2
  52 !define MINOR_VER 5
  53 !define SUBMINOR_VER 99
  54 !define PATCHLEVEL_VER 100