t/steps/auto_sizes-01.t

   1 #! perl
   2 # Copyright (C) 2007, The Perl Foundation.
   3 # $Id$
   4 # auto_sizes-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 50;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::init::defaults');
  12 use_ok('config::auto::sizes');
  13 use Parrot::Configure;
  14 use Parrot::Configure::Options qw( process_options );
  15 use Parrot::Configure::Test qw(
  16     test_step_thru_runstep
  17     rerun_defaults_for_testing
  18     test_step_constructor_and_description
  19 );
  20 use IO::CaptureOutput qw | capture |;
  21
  22 ########## --miniparrot ##########
  23
  24 my ($args, $step_list_ref) = process_options(
  25     {
  26         argv => [ q{--miniparrot} ],
  27         mode => q{configure},
  28     }
  29 );
  30
  31 my $conf = Parrot::Configure->new;
  32
  33 my $serialized = $conf->pcfreeze();
  34
  35 test_step_thru_runstep( $conf, q{init::defaults}, $args );
  36
  37 my $pkg = q{auto::sizes};
  38
  39 $conf->add_steps($pkg);
  40 $conf->options->set( %{$args} );
  41 my $step = test_step_constructor_and_description($conf);
  42
  43 my $ret = $step->runstep($conf);
  44 ok( $ret, "runstep() returned true value" );
  45 is($step->result(), q{using miniparrot defaults}, "Expected result was set");
  46
  47 $conf->replenish($serialized);
  48
  49 ########## _handle_intval_ptrsize_discrepancy() ##########
  50
  51 ($args, $step_list_ref) = process_options(
  52     {
  53         argv => [ ],
  54         mode => q{configure},
  55     }
  56 );
  57
  58 rerun_defaults_for_testing($conf, $args );
  59
  60 $pkg = q{auto::sizes};
  61
  62 $conf->add_steps($pkg);
  63 $conf->options->set( %{$args} );
  64 $step = test_step_constructor_and_description($conf);
  65 {
  66     my $stdout;
  67     my %results = (
  68         ptrsize         => 1,
  69         intvalsize      => 1,
  70     );
  71     capture(
  72         sub { auto::sizes::_handle_intval_ptrsize_discrepancy(\%results); },
  73         \$stdout,
  74     );
  75     ok(! $stdout, "As expected, no warning needed");
  76 }
  77
  78 {
  79     my $stdout;
  80     my %results = (
  81         ptrsize         => 1,
  82         intvalsize      => 2,
  83     );
  84     capture(
  85         sub { auto::sizes::_handle_intval_ptrsize_discrepancy(\%results); },
  86         \$stdout,
  87     );
  88     like($stdout, qr/I see your chosen INTVAL/s,
  89         "Got expected warning about discrepancy"
  90     );
  91 }
  92
  93 ########## _set_int2() ##########
  94
  95 {
  96     my $stdout;
  97     my %results = ( shortsize   => 2 );
  98     capture(
  99         sub { auto::sizes::_set_int2($conf, \%results); },
 100         \$stdout,
 101     );
 102     is($conf->data->get( 'int2_t' ), q{short},
 103         "Got expected value for int2_t");
 104     ok(! $stdout, "As expected, no warning needed");
 105 }
 106
 107 {
 108     my $stdout;
 109     my %results = ( shortsize   => 4 );
 110     capture(
 111         sub { auto::sizes::_set_int2($conf, \%results); },
 112         \$stdout,
 113     );
 114     is($conf->data->get( 'int2_t' ), q{int},
 115         "Got expected value for int2_t");
 116     like($stdout, qr/conversion ops might fail/s,
 117         "Got expected warning");
 118 }
 119
 120 ########## _set_int4() ##########
 121
 122 {
 123     my $stdout;
 124     my %results = ( shortsize   => 4 );
 125     capture(
 126         sub { auto::sizes::_set_int4($conf, \%results); },
 127         \$stdout,
 128     );
 129     is($conf->data->get( 'int4_t' ), q{short},
 130         "Got expected value for int4_t");
 131     ok(! $stdout, "As expected, no warning needed");
 132 }
 133
 134 {
 135     my $stdout;
 136     my %results = ( intsize   => 4 );
 137     capture(
 138         sub { auto::sizes::_set_int4($conf, \%results); },
 139         \$stdout,
 140     );
 141     is($conf->data->get( 'int4_t' ), q{int},
 142         "Got expected value for int4_t");
 143     ok(! $stdout, "As expected, no warning needed");
 144 }
 145
 146 {
 147     my $stdout;
 148     my %results = ( longsize   => 4 );
 149     capture(
 150         sub { auto::sizes::_set_int4($conf, \%results); },
 151         \$stdout,
 152     );
 153     is($conf->data->get( 'int4_t' ), q{long},
 154         "Got expected value for int4_t");
 155     ok(! $stdout, "As expected, no warning needed");
 156 }
 157
 158 {
 159     my $stdout;
 160     my %results = ( );
 161     capture(
 162         sub { auto::sizes::_set_int4($conf, \%results); },
 163         \$stdout,
 164     );
 165     is($conf->data->get( 'int4_t' ), q{int},
 166         "Got expected value for int4_t");
 167     like($stdout, qr/conversion ops might fail/s,
 168         "Got expected warning");
 169 }
 170
 171 ########## _set_float4() ##########
 172
 173 {
 174     my $stdout;
 175     my %results = ( floatsize => 4 );
 176     capture(
 177         sub { auto::sizes::_set_float4($conf, \%results); },
 178         \$stdout,
 179     );
 180     is($conf->data->get( 'float4_t' ), q{float},
 181         "Got expected value for float4_t");
 182     ok(! $stdout, "As expected, no warning needed");
 183 }
 184
 185 {
 186     my $stdout;
 187     my %results = ( floatsize => 8 );
 188     capture(
 189         sub { auto::sizes::_set_float4($conf, \%results); },
 190         \$stdout,
 191     );
 192     is($conf->data->get( 'float4_t' ), q{double},
 193         "Got expected value for float4_t");
 194     like($stdout, qr/conversion ops might fail/s,
 195         "Got expected warning");
 196 }
 197
 198 ########## _set_float8() ##########
 199
 200 {
 201     my $stdout;
 202     my %results = ( doublesize => 8 );
 203     capture(
 204         sub { auto::sizes::_set_float8($conf, \%results); },
 205         \$stdout,
 206     );
 207     is($conf->data->get( 'float8_t' ), q{double},
 208         "Got expected value for float8_t");
 209     ok(! $stdout, "As expected, no warning needed");
 210 }
 211
 212 {
 213     my $stdout;
 214     my %results = ( );
 215     capture(
 216         sub { auto::sizes::_set_float8($conf, \%results); },
 217         \$stdout,
 218     );
 219     is($conf->data->get( 'float8_t' ), q{double},
 220         "Got expected value for float8_t");
 221     like($stdout, qr/conversion ops might fail/s,
 222         "Got expected warning");
 223 }
 224
 225 ########## _handle_hugeintvalsize() ##########
 226
 227 my (%hugeintval, $intval, $intvalsize);
 228
 229 $conf->data->set( intval => undef );
 230 $conf->data->set( intvalsize => undef );
 231 $hugeintval{hugeintvalsize} = undef;
 232 $intval = q{integer};
 233 $intvalsize = 4;
 234 auto::sizes::_handle_hugeintvalsize(
 235     $conf,
 236     {
 237         hugeintval      => \%hugeintval,
 238         intval          => $intval,
 239         intvalsize      => $intvalsize,
 240     },
 241 );
 242 is( $conf->data->get( 'hugeintval' ), $intval,
 243     "Got expected value for hugeintval");
 244 is( $conf->data->get( 'hugeintvalsize' ), $intvalsize,
 245     "Got expected value for hugeintvalsize");
 246 $conf->data->set( hugeintval => undef );
 247 $conf->data->set( hugeintvalsize => undef );
 248
 249 $conf->data->set( intval => undef );
 250 $conf->data->set( intvalsize => undef );
 251 $hugeintval{hugeintvalsize} = 4;
 252 $intval = q{integer};
 253 $intvalsize = 4;
 254 auto::sizes::_handle_hugeintvalsize(
 255     $conf,
 256     {
 257         hugeintval      => \%hugeintval,
 258         intval          => $intval,
 259         intvalsize      => $intvalsize,
 260     },
 261 );
 262 is( $conf->data->get( 'hugeintval' ), $intval,
 263     "Got expected value for hugeintval");
 264 is( $conf->data->get( 'hugeintvalsize' ), $intvalsize,
 265     "Got expected value for hugeintvalsize");
 266 $conf->data->set( hugeintval => undef );
 267 $conf->data->set( hugeintvalsize => undef );
 268
 269 $conf->data->set( intval => undef );
 270 $conf->data->set( intvalsize => undef );
 271 $hugeintval{hugeintvalsize} = 8;
 272 $intval = q{integer};
 273 $intvalsize = 4;
 274 auto::sizes::_handle_hugeintvalsize(
 275     $conf,
 276     {
 277         hugeintval      => \%hugeintval,
 278         intval          => $intval,
 279         intvalsize      => $intvalsize,
 280     },
 281 );
 282 ok( ! defined $conf->data->get( 'hugeintval' ),
 283     "Got expected value for hugeintval");
 284 ok( ! defined $conf->data->get( 'hugeintvalsize' ),
 285     "Got expected value for hugeintvalsize");
 286 $conf->data->set( hugeintval => undef );
 287 $conf->data->set( hugeintvalsize => undef );
 288
 289 $conf->data->set( intval => undef );
 290 $conf->data->set( intvalsize => undef );
 291
 292 ########## _set_hugefloatval() ##########
 293
 294 my $size = 12;
 295 auto::sizes::_set_hugefloatval( $conf, $size );
 296 is( $conf->data->get( 'hugefloatval' ), 'long double',
 297     "Got expected type for hugefloatval");
 298 is( $conf->data->get( 'hugefloatvalsize' ), $size,
 299     "Got expected size for hugefloatvalsize");
 300
 301 auto::sizes::_set_hugefloatval( $conf, 0 );
 302 is( $conf->data->get( 'hugefloatval' ), 'double',
 303     "Got expected type for hugefloatval");
 304 is( $conf->data->get( 'hugefloatvalsize' ), $conf->data->get('doublesize'),
 305     "Got expected size for hugefloatvalsize");
 306
 307 pass("Completed all tests in $0");
 308
 309 ################### DOCUMENTATION ###################
 310
 311 =head1 NAME
 312
 313 auto_sizes-01.t - test auto::sizes
 314
 315 =head1 SYNOPSIS
 316
 317     % prove t/steps/auto_sizes-01.t
 318
 319 =head1 DESCRIPTION
 320
 321 The files in this directory test functionality used by F<Configure.pl>.
 322
 323 The tests in this file test auto::sizes.
 324
 325 =head1 AUTHOR
 326
 327 James E Keenan
 328
 329 =head1 SEE ALSO
 330
 331 config::auto::sizes, F<Configure.pl>.
 332
 333 =cut
 334
 335 # Local Variables:
 336 #   mode: cperl
 337 #   cperl-indent-level: 4
 338 #   fill-column: 100
 339 # End:
 340 # vim: expandtab shiftwidth=4: