This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 0915d96)
parts/inc/misc: Shorten sub names
authorKarl Williamson <khw@cpan.org>
Thu, 11 Jul 2019 22:16:42 +0000 (16:16 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:28 +0000 (16:51 -0600)
These all had an unnecessary prefix that was to prevent name space
collisions, but the infrastructure of D:P already took care of that.

(cherry picked from commit d8d82913b626ad2f6c5179d4a95b26fe52048a70)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/misc patch | blob | blame | history
dist/Devel-PPPort/t/misc.t patch | blob | blame | history

diff --git a/dist/Devel-PPPort/parts/inc/misc b/dist/Devel-PPPort/parts/inc/misc
index a6345f4..d8b6ff7 100644 (file)
--- a/dist/Devel-PPPort/parts/inc/misc
+++ b/dist/Devel-PPPort/parts/inc/misc
@@ -818,7 +818,7 @@ check_c_array()
                 mXPUSHi(*(C_ARRAY_END(x)-1)); /* 13 */
 
 bool
-test_isBLANK(ord)
+isBLANK(ord)
     UV ord
     CODE:
         RETVAL = isBLANK(ord);
@@ -826,7 +826,7 @@ test_isBLANK(ord)
         RETVAL
 
 bool
-test_isBLANK_A(ord)
+isBLANK_A(ord)
     UV ord
     CODE:
         RETVAL = isBLANK_A(ord);
@@ -834,7 +834,7 @@ test_isBLANK_A(ord)
         RETVAL
 
 bool
-test_isUPPER(ord)
+isUPPER(ord)
     UV ord
     CODE:
         RETVAL = isUPPER(ord);
@@ -842,7 +842,7 @@ test_isUPPER(ord)
         RETVAL
 
 bool
-test_isUPPER_A(ord)
+isUPPER_A(ord)
     UV ord
     CODE:
         RETVAL = isUPPER_A(ord);
@@ -850,7 +850,7 @@ test_isUPPER_A(ord)
         RETVAL
 
 bool
-test_isLOWER(ord)
+isLOWER(ord)
     UV ord
     CODE:
         RETVAL = isLOWER(ord);
@@ -858,7 +858,7 @@ test_isLOWER(ord)
         RETVAL
 
 bool
-test_isLOWER_A(ord)
+isLOWER_A(ord)
     UV ord
     CODE:
         RETVAL = isLOWER_A(ord);
@@ -866,7 +866,7 @@ test_isLOWER_A(ord)
         RETVAL
 
 bool
-test_isALPHA(ord)
+isALPHA(ord)
     UV ord
     CODE:
         RETVAL = isALPHA(ord);
@@ -874,7 +874,7 @@ test_isALPHA(ord)
         RETVAL
 
 bool
-test_isALPHA_A(ord)
+isALPHA_A(ord)
     UV ord
     CODE:
         RETVAL = isALPHA_A(ord);
@@ -882,7 +882,7 @@ test_isALPHA_A(ord)
         RETVAL
 
 bool
-test_isWORDCHAR(ord)
+isWORDCHAR(ord)
     UV ord
     CODE:
         RETVAL = isWORDCHAR(ord);
@@ -890,7 +890,7 @@ test_isWORDCHAR(ord)
         RETVAL
 
 bool
-test_isWORDCHAR_A(ord)
+isWORDCHAR_A(ord)
     UV ord
     CODE:
         RETVAL = isWORDCHAR_A(ord);
@@ -898,7 +898,7 @@ test_isWORDCHAR_A(ord)
         RETVAL
 
 bool
-test_isALPHANUMERIC(ord)
+isALPHANUMERIC(ord)
     UV ord
     CODE:
         RETVAL = isALPHANUMERIC(ord);
@@ -906,7 +906,7 @@ test_isALPHANUMERIC(ord)
         RETVAL
 
 bool
-test_isALPHANUMERIC_A(ord)
+isALPHANUMERIC_A(ord)
     UV ord
     CODE:
         RETVAL = isALPHANUMERIC_A(ord);
@@ -914,7 +914,7 @@ test_isALPHANUMERIC_A(ord)
         RETVAL
 
 bool
-test_isALNUM(ord)
+isALNUM(ord)
     UV ord
     CODE:
         RETVAL = isALNUM(ord);
@@ -922,7 +922,7 @@ test_isALNUM(ord)
         RETVAL
 
 bool
-test_isALNUM_A(ord)
+isALNUM_A(ord)
     UV ord
     CODE:
         RETVAL = isALNUM_A(ord);
@@ -930,7 +930,7 @@ test_isALNUM_A(ord)
         RETVAL
 
 bool
-test_isDIGIT(ord)
+isDIGIT(ord)
     UV ord
     CODE:
         RETVAL = isDIGIT(ord);
@@ -938,7 +938,7 @@ test_isDIGIT(ord)
         RETVAL
 
 bool
-test_isDIGIT_A(ord)
+isDIGIT_A(ord)
     UV ord
     CODE:
         RETVAL = isDIGIT_A(ord);
@@ -946,7 +946,7 @@ test_isDIGIT_A(ord)
         RETVAL
 
 bool
-test_isOCTAL(ord)
+isOCTAL(ord)
     UV ord
     CODE:
         RETVAL = isOCTAL(ord);
@@ -954,7 +954,7 @@ test_isOCTAL(ord)
         RETVAL
 
 bool
-test_isOCTAL_A(ord)
+isOCTAL_A(ord)
     UV ord
     CODE:
         RETVAL = isOCTAL_A(ord);
@@ -962,7 +962,7 @@ test_isOCTAL_A(ord)
         RETVAL
 
 bool
-test_isIDFIRST(ord)
+isIDFIRST(ord)
     UV ord
     CODE:
         RETVAL = isIDFIRST(ord);
@@ -970,7 +970,7 @@ test_isIDFIRST(ord)
         RETVAL
 
 bool
-test_isIDFIRST_A(ord)
+isIDFIRST_A(ord)
     UV ord
     CODE:
         RETVAL = isIDFIRST_A(ord);
@@ -978,7 +978,7 @@ test_isIDFIRST_A(ord)
         RETVAL
 
 bool
-test_isIDCONT(ord)
+isIDCONT(ord)
     UV ord
     CODE:
         RETVAL = isIDCONT(ord);
@@ -986,7 +986,7 @@ test_isIDCONT(ord)
         RETVAL
 
 bool
-test_isIDCONT_A(ord)
+isIDCONT_A(ord)
     UV ord
     CODE:
         RETVAL = isIDCONT_A(ord);
@@ -994,7 +994,7 @@ test_isIDCONT_A(ord)
         RETVAL
 
 bool
-test_isSPACE(ord)
+isSPACE(ord)
     UV ord
     CODE:
         RETVAL = isSPACE(ord);
@@ -1002,7 +1002,7 @@ test_isSPACE(ord)
         RETVAL
 
 bool
-test_isSPACE_A(ord)
+isSPACE_A(ord)
     UV ord
     CODE:
         RETVAL = isSPACE_A(ord);
@@ -1010,7 +1010,7 @@ test_isSPACE_A(ord)
         RETVAL
 
 bool
-test_isASCII(ord)
+isASCII(ord)
     UV ord
     CODE:
         RETVAL = isASCII(ord);
@@ -1018,7 +1018,7 @@ test_isASCII(ord)
         RETVAL
 
 bool
-test_isASCII_A(ord)
+isASCII_A(ord)
     UV ord
     CODE:
         RETVAL = isASCII_A(ord);
@@ -1026,7 +1026,7 @@ test_isASCII_A(ord)
         RETVAL
 
 bool
-test_isCNTRL(ord)
+isCNTRL(ord)
     UV ord
     CODE:
         RETVAL = isCNTRL(ord);
@@ -1034,7 +1034,7 @@ test_isCNTRL(ord)
         RETVAL
 
 bool
-test_isCNTRL_A(ord)
+isCNTRL_A(ord)
     UV ord
     CODE:
         RETVAL = isCNTRL_A(ord);
@@ -1042,7 +1042,7 @@ test_isCNTRL_A(ord)
         RETVAL
 
 bool
-test_isPRINT(ord)
+isPRINT(ord)
     UV ord
     CODE:
         RETVAL = isPRINT(ord);
@@ -1050,7 +1050,7 @@ test_isPRINT(ord)
         RETVAL
 
 bool
-test_isPRINT_A(ord)
+isPRINT_A(ord)
     UV ord
     CODE:
         RETVAL = isPRINT_A(ord);
@@ -1058,7 +1058,7 @@ test_isPRINT_A(ord)
         RETVAL
 
 bool
-test_isGRAPH(ord)
+isGRAPH(ord)
     UV ord
     CODE:
         RETVAL = isGRAPH(ord);
@@ -1066,7 +1066,7 @@ test_isGRAPH(ord)
         RETVAL
 
 bool
-test_isGRAPH_A(ord)
+isGRAPH_A(ord)
     UV ord
     CODE:
         RETVAL = isGRAPH_A(ord);
@@ -1074,7 +1074,7 @@ test_isGRAPH_A(ord)
         RETVAL
 
 bool
-test_isPUNCT(ord)
+isPUNCT(ord)
     UV ord
     CODE:
         RETVAL = isPUNCT(ord);
@@ -1082,7 +1082,7 @@ test_isPUNCT(ord)
         RETVAL
 
 bool
-test_isPUNCT_A(ord)
+isPUNCT_A(ord)
     UV ord
     CODE:
         RETVAL = isPUNCT_A(ord);
@@ -1090,7 +1090,7 @@ test_isPUNCT_A(ord)
         RETVAL
 
 bool
-test_isXDIGIT(ord)
+isXDIGIT(ord)
     UV ord
     CODE:
         RETVAL = isXDIGIT(ord);
@@ -1098,7 +1098,7 @@ test_isXDIGIT(ord)
         RETVAL
 
 bool
-test_isXDIGIT_A(ord)
+isXDIGIT_A(ord)
     UV ord
     CODE:
         RETVAL = isXDIGIT_A(ord);
@@ -1106,7 +1106,7 @@ test_isXDIGIT_A(ord)
         RETVAL
 
 bool
-test_isPSXSPC(ord)
+isPSXSPC(ord)
     UV ord
     CODE:
         RETVAL = isPSXSPC(ord);
@@ -1114,7 +1114,7 @@ test_isPSXSPC(ord)
         RETVAL
 
 bool
-test_isPSXSPC_A(ord)
+isPSXSPC_A(ord)
     UV ord
     CODE:
         RETVAL = isPSXSPC_A(ord);
@@ -1246,131 +1246,131 @@ if ("$]" < 5.005) {
         ok(Devel::PPPort::SvRXOK(bless $qr, "Surprise"));
 }
 
-ok(  Devel::PPPort::test_isBLANK(ord(" ")));
-ok(! Devel::PPPort::test_isBLANK(ord("\n")));
+ok(  Devel::PPPort::isBLANK(ord(" ")));
+ok(! Devel::PPPort::isBLANK(ord("\n")));
 
-ok(  Devel::PPPort::test_isBLANK_A(ord("\t")));
-ok(! Devel::PPPort::test_isBLANK_A(ord("\r")));
+ok(  Devel::PPPort::isBLANK_A(ord("\t")));
+ok(! Devel::PPPort::isBLANK_A(ord("\r")));
 
-ok(  Devel::PPPort::test_isUPPER(ord("A")));
-ok(! Devel::PPPort::test_isUPPER(ord("a")));
+ok(  Devel::PPPort::isUPPER(ord("A")));
+ok(! Devel::PPPort::isUPPER(ord("a")));
 
-ok(  Devel::PPPort::test_isUPPER_A(ord("Z")));
+ok(  Devel::PPPort::isUPPER_A(ord("Z")));
 
 # One of these two is uppercase in EBCDIC; the other in Latin1, but neither are
 # ASCII uppercase.
-ok(! Devel::PPPort::test_isUPPER_A(ord(0xDC)));
-ok(! Devel::PPPort::test_isUPPER_A(ord(0xFC)));
+ok(! Devel::PPPort::isUPPER_A(ord(0xDC)));
+ok(! Devel::PPPort::isUPPER_A(ord(0xFC)));
 
-ok(  Devel::PPPort::test_isLOWER(ord("b")));
-ok(! Devel::PPPort::test_isLOWER(ord("B")));
+ok(  Devel::PPPort::isLOWER(ord("b")));
+ok(! Devel::PPPort::isLOWER(ord("B")));
 
-ok(  Devel::PPPort::test_isLOWER_A(ord("y")));
+ok(  Devel::PPPort::isLOWER_A(ord("y")));
 
 # One of these two is lowercase in EBCDIC; the other in Latin1, but neither are
 # ASCII lowercase.
-ok(! Devel::PPPort::test_isLOWER_A(ord(0xDC)));
-ok(! Devel::PPPort::test_isLOWER_A(ord(0xFC)));
+ok(! Devel::PPPort::isLOWER_A(ord(0xDC)));
+ok(! Devel::PPPort::isLOWER_A(ord(0xFC)));
 
-ok(  Devel::PPPort::test_isALPHA(ord("C")));
-ok(! Devel::PPPort::test_isALPHA(ord("1")));
+ok(  Devel::PPPort::isALPHA(ord("C")));
+ok(! Devel::PPPort::isALPHA(ord("1")));
 
-ok(  Devel::PPPort::test_isALPHA_A(ord("x")));
-ok(! Devel::PPPort::test_isALPHA_A(0xDC));
+ok(  Devel::PPPort::isALPHA_A(ord("x")));
+ok(! Devel::PPPort::isALPHA_A(0xDC));
 
-ok(  Devel::PPPort::test_isWORDCHAR(ord("_")));
-ok(! Devel::PPPort::test_isWORDCHAR(ord("@")));
+ok(  Devel::PPPort::isWORDCHAR(ord("_")));
+ok(! Devel::PPPort::isWORDCHAR(ord("@")));
 
-ok(  Devel::PPPort::test_isWORDCHAR_A(ord("2")));
-ok(! Devel::PPPort::test_isWORDCHAR_A(0xFC));
+ok(  Devel::PPPort::isWORDCHAR_A(ord("2")));
+ok(! Devel::PPPort::isWORDCHAR_A(0xFC));
 
-ok(  Devel::PPPort::test_isALPHANUMERIC(ord("4")));
-ok(! Devel::PPPort::test_isALPHANUMERIC(ord("_")));
+ok(  Devel::PPPort::isALPHANUMERIC(ord("4")));
+ok(! Devel::PPPort::isALPHANUMERIC(ord("_")));
 
-ok(  Devel::PPPort::test_isALPHANUMERIC_A(ord("l")));
-ok(! Devel::PPPort::test_isALPHANUMERIC_A(0xDC));
+ok(  Devel::PPPort::isALPHANUMERIC_A(ord("l")));
+ok(! Devel::PPPort::isALPHANUMERIC_A(0xDC));
 
-ok(  Devel::PPPort::test_isALNUM(ord("c")));
-ok(! Devel::PPPort::test_isALNUM(ord("}")));
+ok(  Devel::PPPort::isALNUM(ord("c")));
+ok(! Devel::PPPort::isALNUM(ord("}")));
 
-ok(  Devel::PPPort::test_isALNUM_A(ord("5")));
-ok(! Devel::PPPort::test_isALNUM_A(0xFC));
+ok(  Devel::PPPort::isALNUM_A(ord("5")));
+ok(! Devel::PPPort::isALNUM_A(0xFC));
 
-ok(  Devel::PPPort::test_isDIGIT(ord("6")));
-ok(! Devel::PPPort::test_isDIGIT(ord("_")));
+ok(  Devel::PPPort::isDIGIT(ord("6")));
+ok(! Devel::PPPort::isDIGIT(ord("_")));
 
-ok(  Devel::PPPort::test_isDIGIT_A(ord("7")));
-ok(! Devel::PPPort::test_isDIGIT_A(0xDC));
+ok(  Devel::PPPort::isDIGIT_A(ord("7")));
+ok(! Devel::PPPort::isDIGIT_A(0xDC));
 
-ok(  Devel::PPPort::test_isOCTAL(ord("7")));
-ok(! Devel::PPPort::test_isOCTAL(ord("8")));
+ok(  Devel::PPPort::isOCTAL(ord("7")));
+ok(! Devel::PPPort::isOCTAL(ord("8")));
 
-ok(  Devel::PPPort::test_isOCTAL_A(ord("0")));
-ok(! Devel::PPPort::test_isOCTAL_A(ord("9")));
+ok(  Devel::PPPort::isOCTAL_A(ord("0")));
+ok(! Devel::PPPort::isOCTAL_A(ord("9")));
 
-ok(  Devel::PPPort::test_isIDFIRST(ord("D")));
-ok(! Devel::PPPort::test_isIDFIRST(ord("1")));
+ok(  Devel::PPPort::isIDFIRST(ord("D")));
+ok(! Devel::PPPort::isIDFIRST(ord("1")));
 
-ok(  Devel::PPPort::test_isIDFIRST_A(ord("_")));
-ok(! Devel::PPPort::test_isIDFIRST_A(0xFC));
+ok(  Devel::PPPort::isIDFIRST_A(ord("_")));
+ok(! Devel::PPPort::isIDFIRST_A(0xFC));
 
-ok(  Devel::PPPort::test_isIDCONT(ord("e")));
-ok(! Devel::PPPort::test_isIDCONT(ord("@")));
+ok(  Devel::PPPort::isIDCONT(ord("e")));
+ok(! Devel::PPPort::isIDCONT(ord("@")));
 
-ok(  Devel::PPPort::test_isIDCONT_A(ord("2")));
-ok(! Devel::PPPort::test_isIDCONT_A(0xDC));
+ok(  Devel::PPPort::isIDCONT_A(ord("2")));
+ok(! Devel::PPPort::isIDCONT_A(0xDC));
 
-ok(  Devel::PPPort::test_isSPACE(ord(" ")));
-ok(! Devel::PPPort::test_isSPACE(ord("_")));
+ok(  Devel::PPPort::isSPACE(ord(" ")));
+ok(! Devel::PPPort::isSPACE(ord("_")));
 
-ok(  Devel::PPPort::test_isSPACE_A(ord("\cK")));
-ok(! Devel::PPPort::test_isSPACE_A(ord("F")));
+ok(  Devel::PPPort::isSPACE_A(ord("\cK")));
+ok(! Devel::PPPort::isSPACE_A(ord("F")));
 
 # This stresses the edge for ASCII machines, but happens to work on EBCDIC as
 # well
-ok(  Devel::PPPort::test_isASCII(0x7F));
-ok(! Devel::PPPort::test_isASCII(0x80));
+ok(  Devel::PPPort::isASCII(0x7F));
+ok(! Devel::PPPort::isASCII(0x80));
 
-ok(  Devel::PPPort::test_isASCII_A(ord("9")));
+ok(  Devel::PPPort::isASCII_A(ord("9")));
 
 # B6 is the PARAGRAPH SIGN in ASCII and EBCDIC
-ok(! Devel::PPPort::test_isASCII_A(0xB6));
+ok(! Devel::PPPort::isASCII_A(0xB6));
 
-ok(  Devel::PPPort::test_isCNTRL(ord("\e")));
-ok(! Devel::PPPort::test_isCNTRL(ord(" ")));
+ok(  Devel::PPPort::isCNTRL(ord("\e")));
+ok(! Devel::PPPort::isCNTRL(ord(" ")));
 
-ok(  Devel::PPPort::test_isCNTRL_A(ord("\a")));
-ok(! Devel::PPPort::test_isCNTRL_A(0xB6));
+ok(  Devel::PPPort::isCNTRL_A(ord("\a")));
+ok(! Devel::PPPort::isCNTRL_A(0xB6));
 
-ok(  Devel::PPPort::test_isPRINT(ord(" ")));
-ok(! Devel::PPPort::test_isPRINT(ord("\n")));
+ok(  Devel::PPPort::isPRINT(ord(" ")));
+ok(! Devel::PPPort::isPRINT(ord("\n")));
 
-ok(  Devel::PPPort::test_isPRINT_A(ord("G")));
-ok(! Devel::PPPort::test_isPRINT_A(0xB6));
+ok(  Devel::PPPort::isPRINT_A(ord("G")));
+ok(! Devel::PPPort::isPRINT_A(0xB6));
 
-ok(  Devel::PPPort::test_isGRAPH(ord("h")));
-ok(! Devel::PPPort::test_isGRAPH(ord(" ")));
+ok(  Devel::PPPort::isGRAPH(ord("h")));
+ok(! Devel::PPPort::isGRAPH(ord(" ")));
 
-ok(  Devel::PPPort::test_isGRAPH_A(ord("i")));
-ok(! Devel::PPPort::test_isGRAPH_A(0xB6));
+ok(  Devel::PPPort::isGRAPH_A(ord("i")));
+ok(! Devel::PPPort::isGRAPH_A(0xB6));
 
-ok(  Devel::PPPort::test_isPUNCT(ord("#")));
-ok(! Devel::PPPort::test_isPUNCT(ord(" ")));
+ok(  Devel::PPPort::isPUNCT(ord("#")));
+ok(! Devel::PPPort::isPUNCT(ord(" ")));
 
-ok(  Devel::PPPort::test_isPUNCT_A(ord("*")));
-ok(! Devel::PPPort::test_isPUNCT_A(0xB6));
+ok(  Devel::PPPort::isPUNCT_A(ord("*")));
+ok(! Devel::PPPort::isPUNCT_A(0xB6));
 
-ok(  Devel::PPPort::test_isXDIGIT(ord("A")));
-ok(! Devel::PPPort::test_isXDIGIT(ord("_")));
+ok(  Devel::PPPort::isXDIGIT(ord("A")));
+ok(! Devel::PPPort::isXDIGIT(ord("_")));
 
-ok(  Devel::PPPort::test_isXDIGIT_A(ord("9")));
-ok(! Devel::PPPort::test_isXDIGIT_A(0xDC));
+ok(  Devel::PPPort::isXDIGIT_A(ord("9")));
+ok(! Devel::PPPort::isXDIGIT_A(0xDC));
 
-ok(  Devel::PPPort::test_isPSXSPC(ord(" ")));
-ok(! Devel::PPPort::test_isPSXSPC(ord("k")));
+ok(  Devel::PPPort::isPSXSPC(ord(" ")));
+ok(! Devel::PPPort::isPSXSPC(ord("k")));
 
-ok(  Devel::PPPort::test_isPSXSPC_A(ord("\cK")));
-ok(! Devel::PPPort::test_isPSXSPC_A(0xFC));
+ok(  Devel::PPPort::isPSXSPC_A(ord("\cK")));
+ok(! Devel::PPPort::isPSXSPC_A(0xFC));
 
 ok(&Devel::PPPort::av_top_index([1,2,3]), 2);
 ok(&Devel::PPPort::av_tindex([1,2,3,4]), 3);
diff --git a/dist/Devel-PPPort/t/misc.t b/dist/Devel-PPPort/t/misc.t
index 8dce185..1a80954 100644 (file)
--- a/dist/Devel-PPPort/t/misc.t
+++ b/dist/Devel-PPPort/t/misc.t
@@ -155,131 +155,131 @@ if ("$]" < 5.005) {
         ok(Devel::PPPort::SvRXOK(bless $qr, "Surprise"));
 }
 
-ok(  Devel::PPPort::test_isBLANK(ord(" ")));
-ok(! Devel::PPPort::test_isBLANK(ord("\n")));
+ok(  Devel::PPPort::isBLANK(ord(" ")));
+ok(! Devel::PPPort::isBLANK(ord("\n")));
 
-ok(  Devel::PPPort::test_isBLANK_A(ord("\t")));
-ok(! Devel::PPPort::test_isBLANK_A(ord("\r")));
+ok(  Devel::PPPort::isBLANK_A(ord("\t")));
+ok(! Devel::PPPort::isBLANK_A(ord("\r")));
 
-ok(  Devel::PPPort::test_isUPPER(ord("A")));
-ok(! Devel::PPPort::test_isUPPER(ord("a")));
+ok(  Devel::PPPort::isUPPER(ord("A")));
+ok(! Devel::PPPort::isUPPER(ord("a")));
 
-ok(  Devel::PPPort::test_isUPPER_A(ord("Z")));
+ok(  Devel::PPPort::isUPPER_A(ord("Z")));
 
 # One of these two is uppercase in EBCDIC; the other in Latin1, but neither are
 # ASCII uppercase.
-ok(! Devel::PPPort::test_isUPPER_A(ord(0xDC)));
-ok(! Devel::PPPort::test_isUPPER_A(ord(0xFC)));
+ok(! Devel::PPPort::isUPPER_A(ord(0xDC)));
+ok(! Devel::PPPort::isUPPER_A(ord(0xFC)));
 
-ok(  Devel::PPPort::test_isLOWER(ord("b")));
-ok(! Devel::PPPort::test_isLOWER(ord("B")));
+ok(  Devel::PPPort::isLOWER(ord("b")));
+ok(! Devel::PPPort::isLOWER(ord("B")));
 
-ok(  Devel::PPPort::test_isLOWER_A(ord("y")));
+ok(  Devel::PPPort::isLOWER_A(ord("y")));
 
 # One of these two is lowercase in EBCDIC; the other in Latin1, but neither are
 # ASCII lowercase.
-ok(! Devel::PPPort::test_isLOWER_A(ord(0xDC)));
-ok(! Devel::PPPort::test_isLOWER_A(ord(0xFC)));
+ok(! Devel::PPPort::isLOWER_A(ord(0xDC)));
+ok(! Devel::PPPort::isLOWER_A(ord(0xFC)));
 
-ok(  Devel::PPPort::test_isALPHA(ord("C")));
-ok(! Devel::PPPort::test_isALPHA(ord("1")));
+ok(  Devel::PPPort::isALPHA(ord("C")));
+ok(! Devel::PPPort::isALPHA(ord("1")));
 
-ok(  Devel::PPPort::test_isALPHA_A(ord("x")));
-ok(! Devel::PPPort::test_isALPHA_A(0xDC));
+ok(  Devel::PPPort::isALPHA_A(ord("x")));
+ok(! Devel::PPPort::isALPHA_A(0xDC));
 
-ok(  Devel::PPPort::test_isWORDCHAR(ord("_")));
-ok(! Devel::PPPort::test_isWORDCHAR(ord("@")));
+ok(  Devel::PPPort::isWORDCHAR(ord("_")));
+ok(! Devel::PPPort::isWORDCHAR(ord("@")));
 
-ok(  Devel::PPPort::test_isWORDCHAR_A(ord("2")));
-ok(! Devel::PPPort::test_isWORDCHAR_A(0xFC));
+ok(  Devel::PPPort::isWORDCHAR_A(ord("2")));
+ok(! Devel::PPPort::isWORDCHAR_A(0xFC));
 
-ok(  Devel::PPPort::test_isALPHANUMERIC(ord("4")));
-ok(! Devel::PPPort::test_isALPHANUMERIC(ord("_")));
+ok(  Devel::PPPort::isALPHANUMERIC(ord("4")));
+ok(! Devel::PPPort::isALPHANUMERIC(ord("_")));
 
-ok(  Devel::PPPort::test_isALPHANUMERIC_A(ord("l")));
-ok(! Devel::PPPort::test_isALPHANUMERIC_A(0xDC));
+ok(  Devel::PPPort::isALPHANUMERIC_A(ord("l")));
+ok(! Devel::PPPort::isALPHANUMERIC_A(0xDC));
 
-ok(  Devel::PPPort::test_isALNUM(ord("c")));
-ok(! Devel::PPPort::test_isALNUM(ord("}")));
+ok(  Devel::PPPort::isALNUM(ord("c")));
+ok(! Devel::PPPort::isALNUM(ord("}")));
 
-ok(  Devel::PPPort::test_isALNUM_A(ord("5")));
-ok(! Devel::PPPort::test_isALNUM_A(0xFC));
+ok(  Devel::PPPort::isALNUM_A(ord("5")));
+ok(! Devel::PPPort::isALNUM_A(0xFC));
 
-ok(  Devel::PPPort::test_isDIGIT(ord("6")));
-ok(! Devel::PPPort::test_isDIGIT(ord("_")));
+ok(  Devel::PPPort::isDIGIT(ord("6")));
+ok(! Devel::PPPort::isDIGIT(ord("_")));
 
-ok(  Devel::PPPort::test_isDIGIT_A(ord("7")));
-ok(! Devel::PPPort::test_isDIGIT_A(0xDC));
+ok(  Devel::PPPort::isDIGIT_A(ord("7")));
+ok(! Devel::PPPort::isDIGIT_A(0xDC));
 
-ok(  Devel::PPPort::test_isOCTAL(ord("7")));
-ok(! Devel::PPPort::test_isOCTAL(ord("8")));
+ok(  Devel::PPPort::isOCTAL(ord("7")));
+ok(! Devel::PPPort::isOCTAL(ord("8")));
 
-ok(  Devel::PPPort::test_isOCTAL_A(ord("0")));
-ok(! Devel::PPPort::test_isOCTAL_A(ord("9")));
+ok(  Devel::PPPort::isOCTAL_A(ord("0")));
+ok(! Devel::PPPort::isOCTAL_A(ord("9")));
 
-ok(  Devel::PPPort::test_isIDFIRST(ord("D")));
-ok(! Devel::PPPort::test_isIDFIRST(ord("1")));
+ok(  Devel::PPPort::isIDFIRST(ord("D")));
+ok(! Devel::PPPort::isIDFIRST(ord("1")));
 
-ok(  Devel::PPPort::test_isIDFIRST_A(ord("_")));
-ok(! Devel::PPPort::test_isIDFIRST_A(0xFC));
+ok(  Devel::PPPort::isIDFIRST_A(ord("_")));
+ok(! Devel::PPPort::isIDFIRST_A(0xFC));
 
-ok(  Devel::PPPort::test_isIDCONT(ord("e")));
-ok(! Devel::PPPort::test_isIDCONT(ord("@")));
+ok(  Devel::PPPort::isIDCONT(ord("e")));
+ok(! Devel::PPPort::isIDCONT(ord("@")));
 
-ok(  Devel::PPPort::test_isIDCONT_A(ord("2")));
-ok(! Devel::PPPort::test_isIDCONT_A(0xDC));
+ok(  Devel::PPPort::isIDCONT_A(ord("2")));
+ok(! Devel::PPPort::isIDCONT_A(0xDC));
 
-ok(  Devel::PPPort::test_isSPACE(ord(" ")));
-ok(! Devel::PPPort::test_isSPACE(ord("_")));
+ok(  Devel::PPPort::isSPACE(ord(" ")));
+ok(! Devel::PPPort::isSPACE(ord("_")));
 
-ok(  Devel::PPPort::test_isSPACE_A(ord("\cK")));
-ok(! Devel::PPPort::test_isSPACE_A(ord("F")));
+ok(  Devel::PPPort::isSPACE_A(ord("\cK")));
+ok(! Devel::PPPort::isSPACE_A(ord("F")));
 
 # This stresses the edge for ASCII machines, but happens to work on EBCDIC as
 # well
-ok(  Devel::PPPort::test_isASCII(0x7F));
-ok(! Devel::PPPort::test_isASCII(0x80));
+ok(  Devel::PPPort::isASCII(0x7F));
+ok(! Devel::PPPort::isASCII(0x80));
 
-ok(  Devel::PPPort::test_isASCII_A(ord("9")));
+ok(  Devel::PPPort::isASCII_A(ord("9")));
 
 # B6 is the PARAGRAPH SIGN in ASCII and EBCDIC
-ok(! Devel::PPPort::test_isASCII_A(0xB6));
+ok(! Devel::PPPort::isASCII_A(0xB6));
 
-ok(  Devel::PPPort::test_isCNTRL(ord("\e")));
-ok(! Devel::PPPort::test_isCNTRL(ord(" ")));
+ok(  Devel::PPPort::isCNTRL(ord("\e")));
+ok(! Devel::PPPort::isCNTRL(ord(" ")));
 
-ok(  Devel::PPPort::test_isCNTRL_A(ord("\a")));
-ok(! Devel::PPPort::test_isCNTRL_A(0xB6));
+ok(  Devel::PPPort::isCNTRL_A(ord("\a")));
+ok(! Devel::PPPort::isCNTRL_A(0xB6));
 
-ok(  Devel::PPPort::test_isPRINT(ord(" ")));
-ok(! Devel::PPPort::test_isPRINT(ord("\n")));
+ok(  Devel::PPPort::isPRINT(ord(" ")));
+ok(! Devel::PPPort::isPRINT(ord("\n")));
 
-ok(  Devel::PPPort::test_isPRINT_A(ord("G")));
-ok(! Devel::PPPort::test_isPRINT_A(0xB6));
+ok(  Devel::PPPort::isPRINT_A(ord("G")));
+ok(! Devel::PPPort::isPRINT_A(0xB6));
 
-ok(  Devel::PPPort::test_isGRAPH(ord("h")));
-ok(! Devel::PPPort::test_isGRAPH(ord(" ")));
+ok(  Devel::PPPort::isGRAPH(ord("h")));
+ok(! Devel::PPPort::isGRAPH(ord(" ")));
 
-ok(  Devel::PPPort::test_isGRAPH_A(ord("i")));
-ok(! Devel::PPPort::test_isGRAPH_A(0xB6));
+ok(  Devel::PPPort::isGRAPH_A(ord("i")));
+ok(! Devel::PPPort::isGRAPH_A(0xB6));
 
-ok(  Devel::PPPort::test_isPUNCT(ord("#")));
-ok(! Devel::PPPort::test_isPUNCT(ord(" ")));
+ok(  Devel::PPPort::isPUNCT(ord("#")));
+ok(! Devel::PPPort::isPUNCT(ord(" ")));
 
-ok(  Devel::PPPort::test_isPUNCT_A(ord("*")));
-ok(! Devel::PPPort::test_isPUNCT_A(0xB6));
+ok(  Devel::PPPort::isPUNCT_A(ord("*")));
+ok(! Devel::PPPort::isPUNCT_A(0xB6));
 
-ok(  Devel::PPPort::test_isXDIGIT(ord("A")));
-ok(! Devel::PPPort::test_isXDIGIT(ord("_")));
+ok(  Devel::PPPort::isXDIGIT(ord("A")));
+ok(! Devel::PPPort::isXDIGIT(ord("_")));
 
-ok(  Devel::PPPort::test_isXDIGIT_A(ord("9")));
-ok(! Devel::PPPort::test_isXDIGIT_A(0xDC));
+ok(  Devel::PPPort::isXDIGIT_A(ord("9")));
+ok(! Devel::PPPort::isXDIGIT_A(0xDC));
 
-ok(  Devel::PPPort::test_isPSXSPC(ord(" ")));
-ok(! Devel::PPPort::test_isPSXSPC(ord("k")));
+ok(  Devel::PPPort::isPSXSPC(ord(" ")));
+ok(! Devel::PPPort::isPSXSPC(ord("k")));
 
-ok(  Devel::PPPort::test_isPSXSPC_A(ord("\cK")));
-ok(! Devel::PPPort::test_isPSXSPC_A(0xFC));
+ok(  Devel::PPPort::isPSXSPC_A(ord("\cK")));
+ok(! Devel::PPPort::isPSXSPC_A(0xFC));
 
 ok(&Devel::PPPort::av_top_index([1,2,3]), 2);
 ok(&Devel::PPPort::av_tindex([1,2,3,4]), 3);
Unnamed repository; edit this file 'description' to name the repository.