From 797ff1a045f4cdd0fe15e411106810e7d1896691 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 12 Feb 2014 17:03:21 -0700 Subject: [PATCH] ext/POSIX/t/posix.t: White-space only Indent into a newly formed block --- ext/POSIX/t/posix.t | 62 ++++++++++++++++++++++++++--------------------------- 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t index 723a2c3..c2e4abe 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 }; -- 2.7.4