t/steps/init/defaults-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # init/defaults-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 49;
   9 use Carp;
  10 use Cwd;
  11 use File::Copy;
  12 use File::Temp qw| tempdir |;
  13 use lib qw( lib );
  14 use_ok('config::init::defaults');
  15 use Parrot::Configure;
  16 use Parrot::Configure::Step;
  17 use Parrot::Configure::Options qw( process_options );
  18 use base qw(Parrot::Configure::Step);
  19 use Parrot::Configure::Test qw(
  20     test_step_constructor_and_description
  21 );
  22
  23 ########## no debugging; profile; m 32 ##########
  24
  25 my $pkg  = q{init::defaults};
  26 my ($args, $step_list_ref) = process_options(
  27     {
  28         argv => [ q{--debugging=0}, q{--profile}, q{--m=32} ],
  29         mode => q{configure},
  30     }
  31 );
  32
  33 my $conf = Parrot::Configure->new;
  34 $conf->add_steps($pkg);
  35
  36 my $serialized = $conf->pcfreeze();
  37
  38 $conf->options->set( %{$args} );
  39 my $step = test_step_constructor_and_description($conf);
  40 my $ret = $step->runstep($conf);
  41 ok( defined $ret, "runstep() returned defined value" );
  42
  43 $conf->replenish($serialized);
  44
  45 ########## mock absence of 'DEVELOPING' ##########
  46
  47 my $cwd = cwd();
  48 {
  49     my $tdir = tempdir( CLEANUP => 1 );
  50     ok( chdir $tdir, "Changed to temporary directory for testing" );
  51     ok( copy( "$cwd/VERSION", "$tdir/VERSION" ),
  52         "Able to copy VERSION for testing" );
  53
  54     my $pkg  = q{init::defaults};
  55     my ($args, $step_list_ref) = process_options(
  56         {
  57             argv => [],
  58             mode => q{configure},
  59         }
  60     );
  61     $conf->options->set( %{$args} );
  62     my $step = test_step_constructor_and_description($conf);
  63
  64     my $ret = $step->runstep($conf);
  65     ok( defined $ret, "runstep() returned defined value" );
  66
  67     unlink "$tdir/VERSION"
  68         or croak "Unable to unlink file from tempdir after testing";
  69     ok( chdir $cwd, "Able to change back to directory after testing" );
  70 }
  71
  72 $conf->replenish($serialized);
  73
  74 ########## m 32 ##########
  75
  76 ($args, $step_list_ref) = process_options(
  77     {
  78         argv => [ q{--m=32} ],
  79         mode => q{configure},
  80     }
  81 );
  82
  83 $conf->options->set( %{$args} );
  84 $step = test_step_constructor_and_description($conf);
  85
  86 $conf->data->set( archname => 'x86_64' );
  87 $conf->data->set( cc => 'cc' );
  88 $conf->data->set( link => 'cc' );
  89 $conf->data->set( ld => 'env cc' );
  90 $conf->data->set( ld_load_flags => '-bundle -L/usr/local/lib64' );
  91 $conf->data->set( ld_share_flags => '-bundle -L/usr/local/lib64' );
  92 $conf->data->set( ldflags => '-bundle -L/usr/local/lib64' );
  93 $conf->data->set( linkflags => '-bundle -L/usr/local/lib64' );
  94 ok(init::defaults::_64_bit_adjustments($conf),
  95     "_64_bit_adjustments() returned true");
  96 is($conf->data->get( 'archname' ), 'i386', "Got expected value for 'archname'");
  97 is($conf->data->get( 'cc' ), 'cc -m32', "Got expected value for 'cc'");
  98 is($conf->data->get( 'link' ), 'cc -m32', "Got expected value for 'link'");
  99 is($conf->data->get( 'ld' ), 'env cc -m32', "Got expected value for 'ld'");
 100 is($conf->data->get( 'ld_load_flags' ), '-bundle -L/usr/local/lib',
 101     "Got expected value for 'ld_load_flags'");
 102 is($conf->data->get( 'ld_share_flags' ), '-bundle -L/usr/local/lib',
 103     "Got expected value for 'ld_share_flags");
 104 is($conf->data->get( 'ldflags' ), '-bundle -L/usr/local/lib',
 105     "Got expected value for 'ldflags'");
 106 is($conf->data->get( 'linkflags' ), '-bundle -L/usr/local/lib',
 107     "Got expected value for 'linkflags'");
 108
 109 $conf->replenish($serialized);
 110
 111 ########## regular ##########
 112
 113 ($args, $step_list_ref) = process_options(
 114     {
 115         argv => [ ],
 116         mode => q{configure},
 117     }
 118 );
 119
 120 $conf->options->set( %{$args} );
 121 $step = test_step_constructor_and_description($conf);
 122
 123 $conf->data->set( archname => 'x86_64' );
 124 $conf->data->set( cc => 'cc' );
 125 $conf->data->set( link => 'cc' );
 126 $conf->data->set( ld => 'env cc' );
 127 $conf->data->set( ld_load_flags => '-bundle -L/usr/local/lib64' );
 128 $conf->data->set( ld_share_flags => '-bundle -L/usr/local/lib64' );
 129 $conf->data->set( ldflags => '-bundle -L/usr/local/lib64' );
 130 $conf->data->set( linkflags => '-bundle -L/usr/local/lib64' );
 131 ok(init::defaults::_64_bit_adjustments($conf),
 132     "_64_bit_adjustments() returned true");
 133 is($conf->data->get( 'archname' ), 'x86_64', "Got expected value for 'archname'");
 134 is($conf->data->get( 'cc' ), 'cc', "Got expected value for 'cc'");
 135 is($conf->data->get( 'link' ), 'cc', "Got expected value for 'link'");
 136 is($conf->data->get( 'ld' ), 'env cc', "Got expected value for 'ld'");
 137 is($conf->data->get( 'ld_load_flags' ), '-bundle -L/usr/local/lib64',
 138     "Got expected value for 'ld_load_flags'");
 139 is($conf->data->get( 'ld_share_flags' ), '-bundle -L/usr/local/lib64',
 140     "Got expected value for 'ld_share_flags");
 141 is($conf->data->get( 'ldflags' ), '-bundle -L/usr/local/lib64',
 142     "Got expected value for 'ldflags'");
 143 is($conf->data->get( 'linkflags' ), '-bundle -L/usr/local/lib64',
 144     "Got expected value for 'linkflags'");
 145
 146 $conf->replenish($serialized);
 147
 148 ##### with extra-nci-thunks #####
 149 ($args, $step_list_ref) = process_options(
 150     {
 151         argv => [ ],
 152         mode => q{configure},
 153     }
 154 );
 155
 156 $conf->options->set( %{$args} );
 157 $step = test_step_constructor_and_description($conf);
 158 $ret = $step->runstep($conf);
 159 ok( defined $ret, "runstep() returned defined value" );
 160 ok($conf->data->get( 'has_extra_nci_thunks' ),
 161     "Got expected value for has_extra_nci_thunks" );
 162 ok($conf->data->get( 'HAS_EXTRA_NCI_THUNKS' ),
 163     "Got expected value for HAS_EXTRA_NCI_THUNKS" );
 164
 165 $conf->replenish($serialized);
 166
 167 ##### without extra-nci-thunks #####
 168 ($args, $step_list_ref) = process_options(
 169     {
 170         argv => [ q{--without-extra-nci-thunks} ],
 171         mode => q{configure},
 172     }
 173 );
 174
 175 $conf->options->set( %{$args} );
 176 $step = test_step_constructor_and_description($conf);
 177 $ret = $step->runstep($conf);
 178 ok( defined $ret, "runstep() returned defined value" );
 179 ok(! $conf->data->get( 'has_extra_nci_thunks' ),
 180     "Got expected value for has_extra_nci_thunks" );
 181 ok(! $conf->data->get( 'HAS_EXTRA_NCI_THUNKS' ),
 182     "Got expected value for HAS_EXTRA_NCI_THUNKS" );
 183
 184 pass("Completed all tests in $0");
 185
 186 ################### DOCUMENTATION ###################
 187
 188 =head1 NAME
 189
 190 init/defaults-01.t - test init::defaults
 191
 192 =head1 SYNOPSIS
 193
 194     % prove t/steps/init/defaults-01.t
 195
 196 =head1 DESCRIPTION
 197
 198 The files in this directory test functionality used by F<Configure.pl>.
 199
 200 The tests in this file test init::defaults.
 201
 202 =head1 AUTHOR
 203
 204 James E Keenan
 205
 206 =head1 SEE ALSO
 207
 208 config::init::defaults, F<Configure.pl>.
 209
 210 =cut
 211
 212 # Local Variables:
 213 #   mode: cperl
 214 #   cperl-indent-level: 4
 215 #   fill-column: 100
 216 # End:
 217 # vim: expandtab shiftwidth=4: