diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-30 07:28:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-30 07:28:55 +0000 |
| commit | 13e8c8e316d3839d0834fb8b851566b00d81e876 (patch) | |
| tree | f8cb26b1e505472c664e5aea64e09d75bc022d15 /t/op/join.t | |
| parent | 0c981600188aac3b6bf2ea127df9e7da5bd4b1a3 (diff) | |
| download | perl-13e8c8e316d3839d0834fb8b851566b00d81e876.tar.gz | |
The sv_catsv() fix, take two.
p4raw-id: //depot/perl@8265
Diffstat (limited to 't/op/join.t')
| -rwxr-xr-x | t/op/join.t | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/t/op/join.t b/t/op/join.t index b50878e735..0f849fda9c 100755 --- a/t/op/join.t +++ b/t/op/join.t @@ -1,6 +1,6 @@ #!./perl -print "1..10\n"; +print "1..14\n"; @x = (1, 2, 3); if (join(':',@x) eq '1:2:3') {print "ok 1\n";} else {print "not ok 1\n";} @@ -44,3 +44,24 @@ if ($f eq 'baeak') {print "ok 6\n";} else {print "# '$f'\nnot ok 6\n";} print "# expected 'a17b21c' got '$r'\nnot " if $r ne 'a17b21c'; print "ok 10\n"; }; + +{ my $s = join("", chr(0x1234), chr(0xff)); + print "not " unless length($s) == 2 && $s eq "\x{1234}\x{ff}"; + print "ok 11\n"; +} + +{ my $s = join(chr(0xff), chr(0x1234), ""); + print "not " unless length($s) == 2 && $s eq "\x{1234}\x{ff}"; + print "ok 12\n"; +} + +{ my $s = join(chr(0x1234), chr(0xff), chr(0x2345)); + print "not " unless length($s) == 3 && $s eq "\x{ff}\x{1234}\x{2345}"; + print "ok 13\n"; +} + +{ my $s = join(chr(0xff), chr(0x1234), chr(0xfe)); + print "not " unless length($s) == 3 && $s eq "\x{1234}\x{ff}\x{fe}"; + print "ok 14\n"; +} + |