Re: [perl #24554] Segfault in POSIX module

[p5sagit/p5-mst-13.2.git] / ext / POSIX / t / posix.t

diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t
index 912b3d8..58b3a48 100644 (file)
--- a/ext/POSIX/t/posix.t
+++ b/ext/POSIX/t/posix.t
@@ -11,7 +11,7 @@ BEGIN {
 }
 
 require "./test.pl";
-plan(tests => 63);
+plan(tests => 65);
 
 use POSIX qw(fcntl_h signal_h limits_h _exit getcwd open read strftime write
             errno);
@@ -263,6 +263,9 @@ ok(!POSIX::isxdigit('g'), 'isxdigit' );
 # anyway this shouldn't segfault (bug #24554)
 ok( POSIX::isalnum(''),   'isalnum empty string' );
 ok( POSIX::isalnum(undef),'isalnum undef' );
+# those functions should stringify their arguments
+ok(!POSIX::isalpha([]),   'isalpha []' );
+ok( POSIX::isprint([]),   'isprint []' );
  
 # Check that output is not flushed by _exit. This test should be last
 # in the file, and is not counted in the total number of tests.