This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/bop.t: Verify complement downgrades UTF-8.
[perl5.git] / t / op / bop.t
index 1837e96..c3f0085 100644 (file)
@@ -19,7 +19,7 @@ BEGIN {
 # If you find tests are failing, please try adding names to tests to track
 # down where the failure is, and supply your new names as a patch.
 # (Just-in-time test naming)
-plan tests => 340;
+plan tests => 341;
 
 # numerics
 ok ((0xdead & 0xbeef) == 0x9ead);
@@ -267,6 +267,7 @@ $a = "\0\x{100}"; chop($a);
 ok(utf8::is_utf8($a)); # make sure UTF8 flag is still there
 $a = ~$a;
 is($a, "\xFF", "~ works with utf-8");
+ok(! utf8::is_utf8($a), "    and turns off the UTF-8 flag");
 
 $a = "\0\x{100}"; chop($a);
 undef $b;
@@ -288,6 +289,7 @@ undef $b;
 $b = "\xFF" ^ $a;
 ok(utf8::is_utf8($b), "Verify non-UTF-8 ^ UTF-8 retains UTF-8 flag");
 
+
 # [rt.perl.org 33003]
 # This would cause a segfault without malloc wrap
 SKIP: {