From 883cce4a0d59311837bcaf9dd6a2ba7be9b70cbe Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Sat, 27 Nov 2010 22:08:57 -0700
Subject: [PATCH] test.pl: Add native to uni ord fcns

---
 t/test.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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;
-- 
2.7.4