From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 10 Nov 2001 06:38:07 +0000 (+0000)
Subject: Add a test for the bytes pragma.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e002eb05459a979289e3370d725d5d3a3407109;p=p5sagit%2Fp5-mst-13.2.git

Add a test for the bytes pragma.

p4raw-id: //depot/perl@12929
---

diff --git a/MANIFEST b/MANIFEST
index be70662..b2f9d73 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -811,6 +811,7 @@ lib/bigrat.pl			An arbitrary precision rational arithmetic package
 lib/blib.pm			For "use blib"
 lib/blib.t                      blib.pm test
 lib/bytes.pm			Pragma to enable byte operations
+lib/bytes.pm			bytes.pm test
 lib/bytes_heavy.pl		Support routines for byte pragma
 lib/cacheout.pl			Manages output filehandles when you need too many
 lib/Carp.pm			Error message base class
diff --git a/lib/bytes.t b/lib/bytes.t
new file mode 100644
index 0000000..05c748c
--- /dev/null
+++ b/lib/bytes.t
@@ -0,0 +1,28 @@
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+print "1..6\n";
+
+my $a = chr(0x0100);
+
+print ord($a)     == 0x100 ? "ok 1\n" : "not ok 1\n";
+print length($a)  ==     1 ? "ok 2\n" : "not ok 2\n";
+
+{
+    use bytes;
+    my $b = chr(0x0100);
+    print ord($b) ==     0 ? "ok 3\n" : "not ok 3\n";
+}
+
+my $c = chr(0x0100);
+
+print ord($c)     == 0x100 ? "ok 4\n" : "not ok 4\n";
+
+{
+    use bytes;
+    print ord($c) == 0xc4 ? "ok 5\n" : "not ok 5\n";
+    print length($c) == 2 ? "ok 6\n" : "not ok 6\n";
+}
+