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