"check its redef message");
{
-no warnings 'deprecated';
-# Simplistic tests for the isXXX() functions (bug #16799)
-ok( POSIX::isalnum('1'), 'isalnum' );
-ok(!POSIX::isalnum('*'), 'isalnum' );
-ok( POSIX::isalpha('f'), 'isalpha' );
-ok(!POSIX::isalpha('7'), 'isalpha' );
-ok( POSIX::iscntrl("\cA"),'iscntrl' );
-ok(!POSIX::iscntrl("A"), 'iscntrl' );
-ok( POSIX::isdigit('1'), 'isdigit' );
-ok(!POSIX::isdigit('z'), 'isdigit' );
-ok( POSIX::isgraph('@'), 'isgraph' );
-ok(!POSIX::isgraph(' '), 'isgraph' );
-ok( POSIX::islower('l'), 'islower' );
-ok(!POSIX::islower('L'), 'islower' );
-ok( POSIX::isupper('U'), 'isupper' );
-ok(!POSIX::isupper('u'), 'isupper' );
-ok( POSIX::isprint('$'), 'isprint' );
-ok(!POSIX::isprint("\n"), 'isprint' );
-ok( POSIX::ispunct('%'), 'ispunct' );
-ok(!POSIX::ispunct('u'), 'ispunct' );
-ok( POSIX::isspace("\t"), 'isspace' );
-ok(!POSIX::isspace('_'), 'isspace' );
-ok( POSIX::isxdigit('f'), 'isxdigit' );
-ok(!POSIX::isxdigit('g'), 'isxdigit' );
-# metaphysical question : what should be returned for an empty string ?
-# 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 []' );
+ no warnings 'deprecated';
+ # Simplistic tests for the isXXX() functions (bug #16799)
+ ok( POSIX::isalnum('1'), 'isalnum' );
+ ok(!POSIX::isalnum('*'), 'isalnum' );
+ ok( POSIX::isalpha('f'), 'isalpha' );
+ ok(!POSIX::isalpha('7'), 'isalpha' );
+ ok( POSIX::iscntrl("\cA"),'iscntrl' );
+ ok(!POSIX::iscntrl("A"), 'iscntrl' );
+ ok( POSIX::isdigit('1'), 'isdigit' );
+ ok(!POSIX::isdigit('z'), 'isdigit' );
+ ok( POSIX::isgraph('@'), 'isgraph' );
+ ok(!POSIX::isgraph(' '), 'isgraph' );
+ ok( POSIX::islower('l'), 'islower' );
+ ok(!POSIX::islower('L'), 'islower' );
+ ok( POSIX::isupper('U'), 'isupper' );
+ ok(!POSIX::isupper('u'), 'isupper' );
+ ok( POSIX::isprint('$'), 'isprint' );
+ ok(!POSIX::isprint("\n"), 'isprint' );
+ ok( POSIX::ispunct('%'), 'ispunct' );
+ ok(!POSIX::ispunct('u'), 'ispunct' );
+ ok( POSIX::isspace("\t"), 'isspace' );
+ ok(!POSIX::isspace('_'), 'isspace' );
+ ok( POSIX::isxdigit('f'), 'isxdigit' );
+ ok(!POSIX::isxdigit('g'), 'isxdigit' );
+ # metaphysical question : what should be returned for an empty string ?
+ # 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 []' );
}
eval { use strict; POSIX->import("S_ISBLK"); my $x = S_ISBLK };