[perl #77800] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in S03-metaops/hyper.t

commit 71fdf1d837b6869d9826d6f4d058678eb62c668a
Author: Kodi Arfer <hi...@thoth.(none)>
Date:   Wed Sep 29 20:06:05 2010 -0400

    [hyper.t] Added tests for RT #77800.

diff --git a/S03-metaops/hyper.t b/S03-metaops/hyper.t
index fbfc5bd..b9a2780 100644
--- a/S03-metaops/hyper.t
+++ b/S03-metaops/hyper.t
@@ -8,7 +8,7 @@ use Test;
 
 =end pod
 
-plan 265;
+plan 269;
 
 # L<S03/Hyper operators>
  # binary infix
@@ -717,7 +717,16 @@ my @e;
 
 # RT #74530
 {
-    is ~(-<<(1..3)), '-1 -2 -3', 'ranges and hyper ops mix';;
+    is ~(-<<(1..3)), '-1 -2 -3', 'ranges and hyper ops mix';
+}
+
+# RT #77800
+# Parsing hyper-subtraction
+{
+    is ((9, 8) <<-<< (1, 2, 3, 4)), (8, 6, 6, 4), '<<-<<';
+    is ((9, 8, 10, 12) >>->> (1, 2)), (8, 6, 9, 10), '>>->>';
+    is ((9, 8) >>-<< (1, 2)), (8, 6), '>>-<<';
+    is ((9, 8) <<->> (1, 2, 5)), (8, 6, 4), '<<->>';
 }
 
 done_testing;