Deparse.t: test <<>>

diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 9805bde..2fb5b75 100644 (file)
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -635,6 +635,9 @@ readline 'FH';
 readline *$_;
 readline *{$_;};
 ####
+# <<>>
+$_ = <<>>;
+####
 # \x{}
 my $foo = "Ab\x{100}\200\x{200}\237Cd\000Ef\x{1000}\cA\x{2000}\cZ";
 my $bar = "\x{100}";