Permalink
Browse files

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

  • Loading branch information...
1 parent 0e3783c commit 71fdf1d837b6869d9826d6f4d058678eb62c668a Kodi Arfer committed Sep 30, 2010
Showing with 11 additions and 2 deletions.
  1. +11 −2 S03-metaops/hyper.t
View
@@ -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;

0 comments on commit 71fdf1d

Please sign in to comment.