t/steps/auto/msvc-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/msvc-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 38;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::auto::msvc');
  12 use Parrot::Configure::Options qw( process_options );
  13 use Parrot::Configure::Step::Test;
  14 use Parrot::Configure::Test qw(
  15     test_step_constructor_and_description
  16 );
  17 use IO::CaptureOutput qw| capture |;
  18
  19 ########## Win32 ##########
  20
  21 my ($args, $step_list_ref) = process_options( {
  22     argv            => [],
  23     mode            => q{configure},
  24 } );
  25
  26 my $conf = Parrot::Configure::Step::Test->new;
  27 $conf->include_config_results( $args );
  28
  29 my $pkg = q{auto::msvc};
  30
  31 $conf->add_steps($pkg);
  32
  33 my $serialized = $conf->pcfreeze();
  34
  35 $conf->options->set(%{$args});
  36 my $step = test_step_constructor_and_description($conf);
  37 SKIP: {
  38     skip 'MSVC is Windows only', 1 unless $^O =~ /Win32/i;
  39     ok($step->runstep($conf), "runstep() returned true value");
  40 }
  41
  42 $conf->replenish($serialized);
  43
  44 ########## _evaluate_msvc() ##########
  45
  46 ($args, $step_list_ref) = process_options( {
  47     argv            => [],
  48     mode            => q{configure},
  49 } );
  50 $conf->options->set(%{$args});
  51 $step = test_step_constructor_and_description($conf);
  52 my $msvcref = { _MSC_VER => 1399 };
  53 ok($step->_evaluate_msvc($conf, $msvcref),
  54     "_evaluate_msvc returned true value");
  55 is($step->result, 'yes, 13.99', "Got expected result");
  56 is($conf->data->get('msvcversion'), '13.99',
  57     "Got expected msvc version string");
  58
  59 $conf->replenish($serialized);
  60
  61 ########## _evaluate_msvc() ##########
  62
  63 ($args, $step_list_ref) = process_options( {
  64     argv            => [],
  65     mode            => q{configure},
  66 } );
  67 $conf->options->set(%{$args});
  68 $step = test_step_constructor_and_description($conf);
  69 $msvcref = { _MSC_VER => 1400 };
  70 ok($step->_evaluate_msvc($conf, $msvcref),
  71     "_evaluate_msvc returned true value");
  72 is($step->result, 'yes, 14.0', "Got expected result");
  73 is($conf->data->get('msvcversion'), '14.0',
  74     "Got expected msvc version string");
  75 like(
  76     $conf->data->get('ccflags'),
  77     qr/\-D_CRT_SECURE_NO_DEPRECATE/,
  78     "ccflags appropriately adjusted given MSVC version"
  79 );
  80
  81 $conf->replenish($serialized);
  82
  83 ########## _handle_not_msvc() ##########
  84
  85 ($args, $step_list_ref) = process_options( {
  86     argv            => [],
  87     mode            => q{configure},
  88 } );
  89 $conf->options->set(%{$args});
  90 $step = test_step_constructor_and_description($conf);
  91
  92 my ($status, $major, $minor, $verbose);
  93
  94 $major = 13;
  95 $minor = 99;
  96 $status = $step->_handle_not_msvc($conf, $major, $minor);
  97 ok(! defined $status, 'sub return value, as expected, not yet set');
  98 ok(! $step->result(), 'result, as expected, not yet set');
  99
 100 $major = 13;
 101 $minor = undef;
 102 $status = $step->_handle_not_msvc($conf, $major, $minor);
 103 ok($status, 'sub return value, as expected, set to true value');
 104 is($step->result(), q{no}, 'Got expected result');
 105 ok(! defined ($conf->data->get( 'msvcversion' )),
 106     'msvcversion is undef, as expected');
 107
 108 $major = undef;
 109 $minor = 99;
 110 $status = $step->_handle_not_msvc($conf, $major, $minor);
 111 ok($status, 'sub return value, as expected, set to true value');
 112 is($step->result(), q{no}, 'Got expected result');
 113 ok(! defined ($conf->data->get( 'msvcversion' )),
 114     'msvcversion is undef, as expected');
 115
 116 $conf->replenish($serialized);
 117
 118 ########## _handle_not_msvc() ##########
 119
 120 ($args, $step_list_ref) = process_options( {
 121     argv            => [ q{--verbose=1} ],
 122     mode            => q{configure},
 123 } );
 124 $conf->options->set(%{$args});
 125 {
 126     my $stdout;
 127     $major = undef;
 128     $minor = undef;
 129     $verbose = 1;
 130     capture(
 131         sub { $status =
 132             $step->_handle_not_msvc($conf, $major, $minor); },
 133         \$stdout,
 134     );
 135     ok($status, 'sub return value, as expected, set to true value');
 136     is($step->result(), q{no}, 'Got expected result');
 137     ok(! defined ($conf->data->get( 'msvcversion' )),
 138         'msvcversion is undef, as expected');
 139     like($stdout, qr/\(no\)/, "Got expected verbose output");
 140     # Prepare for the next test.
 141     $step->set_result(undef);
 142 }
 143
 144 ########## _compose_msvcversion() ##########
 145
 146 my $msvcversion;
 147
 148 $major = 13;
 149 $minor = 99;
 150 $msvcversion = $step->_compose_msvcversion($major, $minor);
 151 is($msvcversion, '13.99', "Got expected MSVC version");
 152 is($step->result(), 'yes, 13.99', "Got expected result");
 153 $step->set_result(undef);
 154
 155 {
 156     my $stdout;
 157     $major = 13;
 158     $minor = 99;
 159     capture(
 160         sub { $msvcversion =
 161             $step->_compose_msvcversion($major, $minor); },
 162         \$stdout,
 163     );
 164     is($msvcversion, '13.99', "Got expected MSVC version");
 165     is($step->result(), 'yes, 13.99', "Got expected result");
 166     $step->set_result(undef);
 167 }
 168
 169 pass("Completed all tests in $0");
 170
 171 ################### DOCUMENTATION ###################
 172
 173 =head1 NAME
 174
 175 auto/msvc-01.t - test auto::msvc
 176
 177 =head1 SYNOPSIS
 178
 179     % prove t/steps/auto/msvc-01.t
 180
 181 =head1 DESCRIPTION
 182
 183 The files in this directory test functionality used by F<Configure.pl>.
 184
 185 The tests in this file test auto::msvc.  Some tests run only if the system is
 186 Win32.
 187
 188 =head1 AUTHOR
 189
 190 James E Keenan
 191
 192 =head1 SEE ALSO
 193
 194 config::auto::msvc, F<Configure.pl>.
 195
 196 =cut
 197
 198 # Local Variables:
 199 #   mode: cperl
 200 #   cperl-indent-level: 4
 201 #   fill-column: 100
 202 # End:
 203 # vim: expandtab shiftwidth=4: