This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a test for the bytes pragma.
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 10 Nov 2001 06:38:07 +0000 (06:38 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 10 Nov 2001 06:38:07 +0000 (06:38 +0000)
p4raw-id: //depot/perl@12929

MANIFEST
lib/bytes.t [new file with mode: 0644]

index be70662..b2f9d73 100644 (file)
--- 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 (file)
index 0000000..05c748c
--- /dev/null
@@ -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";
+}
+