From: Karl Williamson <public@khwilliamson.com>
Date: Sun, 28 Nov 2010 05:08:57 +0000 (-0700)
Subject: test.pl: Add native to uni ord fcns
X-Git-Tag: accepted/trunk/20130322.191538~6586^2~91
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=883cce4a0d59311837bcaf9dd6a2ba7be9b70cbe;p=platform%2Fupstream%2Fperl.git

test.pl: Add native to uni ord fcns
---

diff --git a/t/test.pl b/t/test.pl
index 42b84cd..bfda110 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -1129,4 +1129,17 @@ sub latin1_to_native($) {
     return $string;
 }
 
+sub ord_latin1_to_native {
+    # given an input latin1 code point, return the platform's native
+    # equivalent value
+
+    return ord latin1_to_native(chr $_[0]);
+}
+
+sub ord_native_to_latin1 {
+    # given an input platform code point, return the latin1 equivalent value
+
+    return ord native_to_latin1(chr $_[0]);
+}
+
 1;