[svn:parrot] r42578 - trunk/t/steps/auto

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Thu Nov 19 02:48:42 2009
New Revision: 42578
URL: https://trac.parrot.org/parrot/changeset/42578

Log:
Add test for previously untested branch in internal sub _list_extra_headers().

Modified:
   trunk/t/steps/auto/headers-01.t

Modified: trunk/t/steps/auto/headers-01.t
==============================================================================
--- trunk/t/steps/auto/headers-01.t	Thu Nov 19 02:48:00 2009	(r42577)
+++ trunk/t/steps/auto/headers-01.t	Thu Nov 19 02:48:42 2009	(r42578)
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  19;
+use Test::More tests =>  20;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::auto::headers');
@@ -82,11 +82,20 @@
 ok(! $conf->data->get('i_niin'), "Mapping made correctly");
 
 {
-    $conf->data->set( OSNAME_provisional => "msys" );
+    my $os = 'msys';
+    $conf->data->set( OSNAME_provisional => $os );
     my %extra_headers =
         map {$_, 1} auto::headers::_list_extra_headers($conf);
-    ok($extra_headers{'sysmman.h'}, "Special header set for msys");
-    ok($extra_headers{'netdb.h'}, "Special header set for msys");
+    ok($extra_headers{'sysmman.h'}, "Special header set for $os");
+    ok($extra_headers{'netdb.h'}, "Special header set for $os");
+}
+
+{
+    my $os = 'MSWin32';
+    $conf->data->set( OSNAME_provisional => $os );
+    my %extra_headers =
+        map {$_, 1} auto::headers::_list_extra_headers($conf);
+    ok($extra_headers{'sal.h'}, "Special header set for $os");
 }
 
 pass("Completed all tests in $0");