[Module-build-checkins] Module-Build/t xs.t,1.16,1.17
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-03-24 01:17:24
|
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'); |