t/steps/auto/frames-01.t

   1 #! perl
   2 # Copyright (C) 2009, Parrot Foundation.
   3 # $Id$
   4 # auto/frames-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 22;
   9 use lib qw( lib t/configure/testlib );
  10 use_ok('config::auto::frames');
  11 use Parrot::Configure::Options qw( process_options );
  12 use Parrot::Configure::Step::Test;
  13 use Parrot::Configure::Test qw(
  14     test_step_constructor_and_description
  15 );
  16
  17
  18 my ($args, $step_list_ref) = process_options( {
  19     argv => [ ],
  20     mode => q{configure},
  21 } );
  22
  23 my $conf = Parrot::Configure::Step::Test->new;
  24 $conf->include_config_results( $args );
  25
  26 my $serialized = $conf->pcfreeze();
  27
  28 my $pkg = q{auto::frames};
  29 $conf->add_steps($pkg);
  30 $conf->options->set( %{$args} );
  31 my $step = test_step_constructor_and_description($conf);
  32
  33 # To avoid a warning about an unitialized value, we will set nvsize to 8,
  34 # cpuarch to i386 and osname to linux.
  35 # This is normally done during earlier configuration steps.
  36 $conf->data->set( nvsize => 8 );
  37 $conf->data->set( cpuarch => 'i386' );
  38 $conf->data->set( osname => 'linux' );
  39
  40 my $ret = $step->runstep($conf);
  41 ok( $ret, "runstep() returned true value" );
  42 ok( defined ( $step->result() ),
  43     "Got defined result" );
  44 TODO: {
  45     local $TODO =
  46         'build frames temporarily disabled at pcc_reapply merge: TT #1132';
  47     is( $step->result(), 'yes', "Result is 'yes', as expected" );
  48 }
  49 $conf->cc_clean();
  50 $step->set_result( undef );
  51
  52 $conf->replenish($serialized);
  53
  54 ###### _call_frames_buildable() #####
  55
  56 my $can_build_call_frames;
  57
  58 $conf->options->set( buildframes => 1 );
  59 $can_build_call_frames = auto::frames::_call_frames_buildable($conf);
  60 ok( $can_build_call_frames,
  61     "_call_frames_buildable() returned true value, as expected" );
  62
  63 $conf->options->set( buildframes => 0 );
  64 $can_build_call_frames = auto::frames::_call_frames_buildable($conf);
  65 ok( ! $can_build_call_frames,
  66     "_call_frames_buildable() returned false value, as expected" );
  67
  68 $conf->options->set( buildframes => undef );
  69 $conf->data->set( osname =>  'linux' );
  70 $conf->data->set( cpuarch =>  'i386' );
  71 $conf->data->set( nvsize =>  8 );
  72 $can_build_call_frames = auto::frames::_call_frames_buildable($conf);
  73 TODO: {
  74     local $TODO =
  75         'build frames temporarily disabled at pcc_reapply merge: TT #1132';
  76     ok( $can_build_call_frames,
  77         "_call_frames_buildable() returned true value, as expected (i386/non darwin/8)"
  78     );
  79 }
  80
  81 $conf->data->set( osname =>  'darwin' );
  82 $conf->data->set( cpuarch =>  'i386' );
  83 $conf->data->set( nvsize =>  8 );
  84 $can_build_call_frames = auto::frames::_call_frames_buildable($conf);
  85 ok( ! $can_build_call_frames,
  86     "_call_frames_buildable() returned false value, as expected (i386/darwin/8)" );
  87
  88 $conf->data->set( osname =>  'linux' );
  89 $conf->data->set( cpuarch =>  'ppc' );
  90 $conf->data->set( nvsize =>  8 );
  91 $can_build_call_frames = auto::frames::_call_frames_buildable($conf);
  92 ok( ! $can_build_call_frames,
  93     "_call_frames_buildable() returned false value, as expected (ppc/linux/8)" );
  94
  95 $conf->data->set( osname =>  'linux' );
  96 $conf->data->set( cpuarch =>  'i386' );
  97 $conf->data->set( nvsize =>  4 );
  98 $can_build_call_frames = auto::frames::_call_frames_buildable($conf);
  99 ok( ! $can_build_call_frames,
 100     "_call_frames_buildable() returned false value, as expected (i386/linux/4)" );
 101
 102 ##### _handle_call_frames_buildable() #####
 103
 104 $conf->data->set( nvsize => 8 );
 105 $conf->data->set( cpuarch => 'i386' );
 106 $conf->data->set( osname => 'linux' );
 107
 108 my $rv;
 109
 110 $can_build_call_frames = 0;
 111 $rv = $step->_handle_can_build_call_frames( $conf, $can_build_call_frames );
 112 ok( $rv, "_handle_can_build_call_frames() returned true value" );
 113 ok( ! $conf->data->get( 'cc_build_call_frames'),
 114     "cc_build_call_frames not set to true, as expected" );
 115 ok( ! defined( $conf->data->get( 'has_exec_protect' ) ),
 116     "has_exec_protect undefined, as expected" );
 117 is( $step->result(), 'no', "Result is 'no', as expected" );
 118
 119 $conf->data->set( 'cc_build_call_frames' => undef );
 120 $conf->data->set( 'has_exec_protect' => undef );
 121
 122 $can_build_call_frames = 1;
 123 my $realos = $conf->data->get( 'osname' );
 124 $conf->data->set( 'osname' => 'foobar' );
 125 $rv = $step->_handle_can_build_call_frames( $conf, $can_build_call_frames );
 126 ok( $rv, "_handle_can_build_call_frames() returned true value" );
 127 is( $conf->data->get( 'cc_build_call_frames'), '-DCAN_BUILD_CALL_FRAMES',
 128     "cc_build_call_frames set to expected value" );
 129 is( $conf->data->get( 'has_exec_protect' ), 0,
 130     "has_exec_protect is 0, as expected" );
 131 is( $step->result(), 'yes', "Result is 'yes', as expected" );
 132
 133 $conf->data->set( 'cc_build_call_frames' => undef );
 134 $conf->data->set( 'has_exec_protect' => undef );
 135 $conf->data->set( 'osname' => $realos );
 136
 137 pass("Completed all tests in $0");
 138
 139 ################### DOCUMENTATION ###################
 140
 141 =head1 NAME
 142
 143 auto/frames-01.t - test auto::frames
 144
 145 =head1 SYNOPSIS
 146
 147     % prove t/steps/auto/frames-01.t
 148
 149 =head1 DESCRIPTION
 150
 151 The files in this directory test functionality used by F<Configure.pl>.
 152
 153 The tests in this file test auto::frames.
 154
 155 =head1 AUTHOR
 156
 157 Daniel Arbelo Arrocha
 158
 159 =head1 SEE ALSO
 160
 161 config::auto::frames, F<Configure.pl>.
 162
 163 =cut
 164
 165 # Local Variables:
 166 #   mode: cperl
 167 #   cperl-indent-level: 4
 168 #   fill-column: 100
 169 # End:
 170 # vim: expandtab shiftwidth=4: