[Module-build-checkins] Module-Build/t xs.t,1.16,1.17

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26087/t

Modified Files:
	xs.t 
Log Message:
Test for have_c_compiler in addition to feature('C_support') since the feature can be enabled when the compiler is no longer present or can't be found in the PATH.

Index: xs.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- xs.t	7 Jan 2005 10:15:54 -0000	1.16
+++ xs.t	24 Mar 2005 01:16:59 -0000	1.17
@@ -6,7 +6,16 @@
 use Module::Build;
 use File::Spec;
 
-print("1..0 # Skipped: C_support not enabled\n"), exit(0) unless Module::Build->current->feature('C_support');
+{ local $SIG{__WARN__} = sub {};
+  if (      !Module::Build->current->feature('C_support') ) {
+    print("1..0 # Skipped: C_support not enabled\n");
+    exit(0);
+  } elsif ( !Module::Build->current->have_c_compiler ) {
+    print("1..0 # Skipped: C_support enabled, but no compiler found\n");
+    exit(0);
+  }
+}
+
 plan tests => 12;
 
 my $common_pl = File::Spec->catfile('t', 'common.pl');