diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-03-12 11:45:52 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-03-12 14:30:09 +0000 |
| commit | e90499c4d9f1d0749636c18f943be9718d8ba6ea (patch) | |
| tree | 771eedd67a49b2629e22f2cc48388335a7abe057 /t/op/utf8decode.t | |
| parent | 680218c4ad0e98dcb8cc8aef96505a078b49404f (diff) | |
| download | perl-e90499c4d9f1d0749636c18f943be9718d8ba6ea.tar.gz | |
In utf8decode.t, test that the hex sequences and \x escapes are equivalent.
The hex sequences had been in the test data since they were first added in
ba210ebec161cde0, but have never actually been used, other than for a length
cross-check.
Diffstat (limited to 't/op/utf8decode.t')
| -rw-r--r-- | t/op/utf8decode.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/utf8decode.t b/t/op/utf8decode.t index 52dbd58896..95773bbb4b 100644 --- a/t/op/utf8decode.t +++ b/t/op/utf8decode.t @@ -153,6 +153,8 @@ __EOMK__ ($2, $3, $4, $5, $6, $7, $8); my @hex = split(/:/, $hex); is(scalar @hex, $byteslen, 'Amount of hex tallies with byteslen'); + my $fromhex = join '', map {chr hex $_} @hex; + is($fromhex, $bytes, 'hex matches bytes'); { use bytes; my $bytesbyteslen = length($bytes); |