[svn:parrot] r41795 - branches/detect_llvm/t/steps/auto

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Sat Oct 10 15:25:53 2009
New Revision: 41795
URL: https://trac.parrot.org/parrot/changeset/41795

Log:
Test previously unexercised branches.

Modified:
   branches/detect_llvm/t/steps/auto/llvm-01.t

Modified: branches/detect_llvm/t/steps/auto/llvm-01.t
==============================================================================
--- branches/detect_llvm/t/steps/auto/llvm-01.t	Sat Oct 10 14:14:53 2009	(r41794)
+++ branches/detect_llvm/t/steps/auto/llvm-01.t	Sat Oct 10 15:25:53 2009	(r41795)
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 use File::Temp qw( tempdir );
-use Test::More tests =>  65;
+use Test::More tests =>  69;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
@@ -236,6 +236,23 @@
 );
 
 ##### 4 methods #####
+$verbose = 0;
+
+$step->set_result( undef );
+$step->_handle_failure_to_compile_into_bitcode( $conf, $verbose );
+is( $step->result(), 'no', "Got expected result" );
+
+$step->set_result( undef );
+$step->_handle_failure_to_execute_bitcode( $conf, $verbose );
+is( $step->result(), 'no', "Got expected result" );
+
+$step->set_result( undef );
+$step->_handle_failure_to_compile_to_assembly( $conf, $verbose );
+is( $step->result(), 'no', "Got expected result" );
+
+$step->set_result( undef );
+$step->_handle_failure_to_assemble_assembly( $conf, $verbose );
+is( $step->result(), 'no', "Got expected result" );
 
 $verbose = 1;
 capture(