[svn:parrot] r41406 - trunk/t/steps/auto
jkeenan at svn.parrot.org
jkeenan at svn.parrot.org
Tue Sep 22 12:16:19 UTC 2009
Author: jkeenan
Date: Tue Sep 22 12:16:16 2009
New Revision: 41406
URL: https://trac.parrot.org/parrot/changeset/41406
Log:
Test all branches in internal sub _handle_exec_protect().
Modified:
trunk/t/steps/auto/frames-01.t
Modified: trunk/t/steps/auto/frames-01.t
==============================================================================
--- trunk/t/steps/auto/frames-01.t Tue Sep 22 11:04:44 2009 (r41405)
+++ trunk/t/steps/auto/frames-01.t Tue Sep 22 12:16:16 2009 (r41406)
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 17;
+use Test::More tests => 19;
use lib qw( lib t/configure/testlib );
use_ok('config::init::defaults');
use_ok('config::auto::frames');
@@ -93,6 +93,19 @@
ok( ! $can_build_call_frames,
"_call_frames_buildable() returned false value, as expected (i386/linux/4)" );
+$conf->data->set( has_exec_protect => undef );
+my $exec_protect_test;
+
+$exec_protect_test = 1;
+auto::frames::_handle_exec_protect($conf, $exec_protect_test);
+ok( $conf->data->get( 'has_exec_protect' ),
+ "has_exec_protect set, as expected" );
+
+$exec_protect_test = 0;
+auto::frames::_handle_exec_protect($conf, $exec_protect_test);
+ok( ! $conf->data->get( 'has_exec_protect' ),
+ "has_exec_protect not set, as expected" );
+
################### DOCUMENTATION ###################
=head1 NAME
More information about the parrot-commits
mailing list