diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-02-12 17:03:21 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-02-15 16:22:44 -0700 |
| commit | 797ff1a045f4cdd0fe15e411106810e7d1896691 (patch) | |
| tree | 273b323f6655a072c5d9efe5cb3c09f222a0729a /ext | |
| parent | 2da736a23e7189ff341f094e8b28d1a903b3aa8d (diff) | |
| download | perl-797ff1a045f4cdd0fe15e411106810e7d1896691.tar.gz | |
ext/POSIX/t/posix.t: White-space only
Indent into a newly formed block
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/t/posix.t | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t index 723a2c333e..c2e4abe736 100644 --- a/ext/POSIX/t/posix.t +++ b/ext/POSIX/t/posix.t @@ -291,37 +291,37 @@ like ($@, qr/^Use method IO::Handle::gets\(\) instead/, "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 }; |