diff options
Diffstat (limited to 'ext/B/t/deparse.t')
| -rw-r--r-- | ext/B/t/deparse.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t index 22bd782bf7..768257a264 100644 --- a/ext/B/t/deparse.t +++ b/ext/B/t/deparse.t @@ -15,7 +15,7 @@ use warnings; use strict; use Config; -print "1..16\n"; +print "1..17\n"; use B::Deparse; my $deparse = B::Deparse->new() or print "not "; @@ -184,3 +184,6 @@ $x{warn()}; # 13 my $foo; $_ .= <ARGV> . <$foo>; +#### +# 14 +my $foo = "Ab\x{100}\200\x{200}\377Cd\000Ef\x{1000}\cA\x{2000}\cZ"; |