@INC = '../lib';
}
-print "1..13\n";
+print "1..15\n";
print "not " unless length("") == 0;
print "ok 1\n";
}
{
- my $a = "\x{80}";
-
+ my $a = pack("U", 0xFF);
+
print "not " unless length($a) == 1;
print "ok 6\n";
$test++;
-
+
use bytes;
- print "not " unless $a eq "\xc2\x80" && length($a) == 2;
+ if (ord('A') == 193)
+ {
+ printf "#%vx for 0xFF\n",$a;
+ print "not " unless $a eq "\x8b\x73" && length($a) == 2;
+ }
+ else
+ {
+ print "not " unless $a eq "\xc3\xbf" && length($a) == 2;
+ }
print "ok 7\n";
$test++;
}
{
my $a = "\x{100}";
-
+
print "not " unless length($a) == 1;
print "ok 8\n";
$test++;
-
+
use bytes;
- print "not " unless $a eq "\xc4\x80" && length($a) == 2;
+ if (ord('A') == 193)
+ {
+ printf "#%vx for 0x100\n",$a;
+ print "not " unless $a eq "\x8c\x41" && length($a) == 2;
+ }
+ else
+ {
+ print "not " unless $a eq "\xc4\x80" && length($a) == 2;
+ }
print "ok 9\n";
$test++;
}
{
my $a = "\x{100}\x{80}";
-
+
print "not " unless length($a) == 2;
print "ok 10\n";
$test++;
-
+
use bytes;
- print "not " unless $a eq "\xc4\x80\xc2\x80" && length($a) == 4;
+ if (ord('A') == 193)
+ {
+ printf "#%vx for 0x100 0x80\n",$a;
+ print "not " unless $a eq "\x8c\x41\x8a\x67" && length($a) == 4;
+ }
+ else
+ {
+ print "not " unless $a eq "\xc4\x80\xc2\x80" && length($a) == 4;
+ }
print "ok 11\n";
$test++;
}
{
my $a = "\x{80}\x{100}";
-
+
print "not " unless length($a) == 2;
print "ok 12\n";
$test++;
-
+
use bytes;
- print "not " unless $a eq "\xc2\x80\xc4\x80" && length($a) == 4;
+ if (ord('A') == 193)
+ {
+ printf "#%vx for 0x80 0x100\n",$a;
+ print "not " unless $a eq "\x8a\x67\x8c\x41" && length($a) == 4;
+ }
+ else
+ {
+ print "not " unless $a eq "\xc2\x80\xc4\x80" && length($a) == 4;
+ }
print "ok 13\n";
$test++;
}
+
+# Now for Unicode with magical vtbls
+
+{
+ require Tie::Scalar;
+ my $a;
+ tie $a, 'Tie::StdScalar'; # makes $a magical
+ $a = "\x{263A}";
+
+ print "not " unless length($a) == 1;
+ print "ok 14\n";
+ $test++;
+
+ use bytes;
+ print "not " unless length($a) == 3;
+ print "ok 15\n";
+ $test++;
+}