[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