Enable -Mencoding=foobar also for string literals.

[p5sagit/p5-mst-13.2.git] / lib / encoding.t

diff --git a/lib/encoding.t b/lib/encoding.t
index 40d97a2..2be0312 100644 (file)
--- a/lib/encoding.t
+++ b/lib/encoding.t
@@ -1,24 +1,31 @@
-print "1..3\n";
+print "1..5\n";
 
 use encoding "latin1"; # ignored (overwritten by the next line)
 use encoding "greek";  # iso 8859-7 (no "latin" alias, surprise...)
 
-$a = "\xDF";
-$b = "\x{100}";
-
-my $c = $a . $b;
-
 # "greek" is "ISO 8859-7", and \xDF in ISO 8859-7 is
 # \x{3AF} in Unicode (GREEK SMALL LETTER IOTA WITH TONOS),
 # instead of \xDF in Unicode (LATIN SMALL LETTER SHARP S)
 
-print "not " unless ord($c) == 0x3af;
+$a = "\xDF";
+$b = "\x{100}";
+
+print "not " unless ord($a) == 0x3af;
 print "ok 1\n";
 
-print "not " unless length($c) == 2;
+print "not " unless ord($b) == 0x100;
 print "ok 2\n";
 
-print "not " unless ord(substr($c, 1, 1)) == 0x100;
+my $c;
+
+$c = $a . $b;
+
+print "not " unless ord($c) == 0x3af;
 print "ok 3\n";
 
+print "not " unless length($c) == 2;
+print "ok 4\n";
+
+print "not " unless ord(substr($c, 1, 1)) == 0x100;
+print "ok 5\n";