summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/op/oct.t7
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/oct.t b/t/op/oct.t
index 06bcf3e402..f996b48975 100755
--- a/t/op/oct.t
+++ b/t/op/oct.t
@@ -2,7 +2,7 @@
# tests 51 onwards aren't all warnings clean. (intentionally)
-print "1..69\n";
+print "1..71\n";
my $test = 1;
@@ -145,3 +145,8 @@ test ('hex', "x3A", 0x3A);
test ('hex', "0x4", 4);
test ('hex', "x4", 4);
+eval '$a = oct "10\x{100}"';
+print $@ =~ /Wide character/ ? "ok $test\n" : "not ok $test\n"; $test++;
+
+eval '$a = hex "ab\x{100}"';
+print $@ =~ /Wide character/ ? "ok $test\n" : "not ok $test\n"; $test++;