Add one test for ord('').

"perldoc -f ord" states that if ord()'s argument is an empty string, the
function returns 0.  Demonstrating that this is so.

diff --git a/t/op/chars.t b/t/op/chars.t
index a2b6f51..d26a632 100644 (file)
--- a/t/op/chars.t
+++ b/t/op/chars.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 33;
+plan tests => 34;
 
 # because of ebcdic.c these should be the same on asciiish 
 # and ebcdic machines.
@@ -78,3 +78,5 @@ $c = "\c_";
 is (ord($c), 31, '\c_');
 $c = "\c?";
 is (ord($c), 127, '\c?');
+$c = '';
+is (ord($c), 0, 'ord("") is 0');