On Wed, 03 May 2000 17:18:54 BST, Graham Barr wrote:
- ok $&, pack("C*", ord(">"), 0342, 0230, 0272);
- $test++;
+ my $tmp = $&;
+ ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
+ $test++; # 23
Not doing a copy there was deliberate. IIRC there was also a test that did a
copy.
This was so that the SV with the magic went into the compare operator
Thanks.
Sarathy
gsar(_at_)ActiveState(_dot_)com
-----------------------------------8<-----------------------------------
Change 6062 by gsar(_at_)auger on 2000/05/04 16:34:51
additional tests for utf8.t
Affected files ...
... //depot/perl/t/pragma/utf8.t#8 edit
Differences ...
==== //depot/perl/t/pragma/utf8.t#8 (xtext) ====
Index: perl/t/pragma/utf8.t
--- perl/t/pragma/utf8.t.~1~ Thu May 4 09:34:55 2000
+++ perl/t/pragma/utf8.t Thu May 4 09:34:55 2000
@@ -10,7 +10,7 @@
}
}
-print "1..61\n";
+print "1..65\n";
my $test = 1;
@@ -20,6 +20,14 @@
print "ok $test\n";
}
+sub ok_bytes {
+ use bytes;
+ my ($got,$expect) = @_;
+ print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
+ print "ok $test\n";
+}
+
+
{
use utf8;
$_ = ">\x{263A}<";
@@ -120,9 +128,9 @@
$test++; # 22
{
- use bytes;
+ use bytes;
- my $tmp = $&;
+ my $tmp = $&;
ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
$test++; # 23
@@ -139,39 +147,51 @@
$test++; # 26
}
+ ok_bytes $&, pack("C*", ord(">"), 0342, 0230, 0272);
+ $test++; # 27
+
+ ok_bytes $', pack("C*", 0342, 0230, 0272);
+ $test++; # 28
+
+ ok_bytes $`, pack("C*", 0342, 0230, 0272);
+ $test++; # 29
+
+ ok_bytes $1, pack("C*", 0342, 0230, 0272);
+ $test++; # 30
+
{
use bytes;
no utf8;
ok length, 10;
- $test++; # 27
+ $test++; # 31
ok length((m/>(.)/)[0]), 1;
- $test++; # 28
+ $test++; # 32
ok length($&), 2;
- $test++; # 29
+ $test++; # 33
ok length($'), 5;
- $test++; # 30
+ $test++; # 34
ok length($`), 3;
- $test++; # 31
+ $test++; # 35
ok length($1), 1;
- $test++; # 32
+ $test++; # 36
ok $&, pack("C*", ord(">"), 0342);
- $test++; # 33
+ $test++; # 37
ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
- $test++; # 34
+ $test++; # 38
ok $`, pack("C*", 0342, 0230, 0272);
- $test++; # 35
+ $test++; # 39
ok $1, pack("C*", 0342);
- $test++; # 36
+ $test++; # 40
}
@@ -182,90 +202,90 @@
}
ok length, 10;
- $test++; # 37
+ $test++; # 41
ok length((m/>(.)/)[0]), 1;
- $test++; # 38
+ $test++; # 42
ok length($&), 2;
- $test++; # 39
+ $test++; # 43
ok length($'), 1;
- $test++; # 40
+ $test++; # 44
ok length($`), 1;
- $test++; # 41
+ $test++; # 45
ok length($1), 1;
- $test++; # 42
+ $test++; # 46
ok length($tmp=$&), 2;
- $test++; # 43
+ $test++; # 47
ok length($tmp=$'), 1;
- $test++; # 44
+ $test++; # 48
ok length($tmp=$`), 1;
- $test++; # 45
+ $test++; # 49
ok length($tmp=$1), 1;
- $test++; # 46
+ $test++; # 50
{
use bytes;
my $tmp = $&;
ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
- $test++; # 47
+ $test++; # 51
$tmp = $';
ok $tmp, pack("C*", 0342, 0230, 0272);
- $test++; # 48
+ $test++; # 52
$tmp = $`;
ok $tmp, pack("C*", 0342, 0230, 0272);
- $test++; # 49
+ $test++; # 53
$tmp = $1;
ok $tmp, pack("C*", 0342, 0230, 0272);
- $test++; # 50
+ $test++; # 54
}
{
use bytes;
no utf8;
ok length, 10;
- $test++; # 51
+ $test++; # 55
ok length((m/>(.)/)[0]), 1;
- $test++; # 52
+ $test++; # 56
ok length($&), 2;
- $test++; # 53
+ $test++; # 57
ok length($'), 5;
- $test++; # 54
+ $test++; # 58
ok length($`), 3;
- $test++; # 55
+ $test++; # 59
ok length($1), 1;
- $test++; # 56
+ $test++; # 60
ok $&, pack("C*", ord(">"), 0342);
- $test++; # 57
+ $test++; # 61
ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
- $test++; # 58
+ $test++; # 62
ok $`, pack("C*", 0342, 0230, 0272);
- $test++; # 59
+ $test++; # 63
ok $1, pack("C*", 0342);
- $test++; # 60
+ $test++; # 64
}
ok "\x{ab}" =~ /^\x{ab}$/, 1;
- $test++; # 61
+ $test++; # 65
}
End of Patch.