Author: jhoblitt
Date: Tue Dec 27 18:25:33 2005
New Revision: 10715
Modified:
trunk/t/configure/step.t
Log:
skip tests that require File::Temp objects if File::Temp can't ->new()
Modified: trunk/t/configure/step.t
==============================================================================
--- trunk/t/configure/step.t (original)
+++ trunk/t/configure/step.t Tue Dec 27 18:25:33 2005
@@ -46,6 +46,10 @@ is(integrate(1, 2), 2, "integrate(1, 1)"
# file_checksum(), not exported
+SKIP: {
+ skip "File::Temp doesn't support ->new()", 12
+ unless File::Temp->can('new');
+
{
my $tmpfile = File::Temp->new(UNLINK => 1);
print $tmpfile "foo" x 1000;
@@ -121,6 +125,8 @@ is(integrate(1, 2), 2, "integrate(1, 1)"
"check_progs() returns the proper program when passed an array ref")
}
+} # SKIP
+
{
my $cmd = 'someboguscommand';
ok(!check_progs([$cmd]),
