[svn:parrot] r42582 - trunk/t/steps/gen

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Thu Nov 19 03:56:09 2009
New Revision: 42582
URL: https://trac.parrot.org/parrot/changeset/42582

Log:
Write test to simulate case of no OpenGL available.

Modified:
   trunk/t/steps/gen/opengl-01.t

Modified: trunk/t/steps/gen/opengl-01.t
==============================================================================
--- trunk/t/steps/gen/opengl-01.t	Thu Nov 19 03:15:44 2009	(r42581)
+++ trunk/t/steps/gen/opengl-01.t	Thu Nov 19 03:56:09 2009	(r42582)
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  5;
+use Test::More tests =>  7;
 use Carp;
 use lib qw( lib );
 use_ok('config::gen::opengl');
@@ -32,6 +32,12 @@
 $conf->options->set( %{$args} );
 my $step = test_step_constructor_and_description($conf);
 
+##### mock no OpenGL #####
+$conf->data->set( has_opengl => 0 );
+my $result = $step->runstep($conf);
+ok($result, "runstep() returned true value");
+is($step->result(), q{skipped}, "Got expected result when no 'has_opengl'" );
+
 pass("Completed all tests in $0");
 
 ################### DOCUMENTATION ###################