Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t/spec] Add a few more tests for hypers and ", *".

git-svn-id: http://svn.pugscode.org/pugs@31672 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 1e8a059a2c7ffd5e009ecf8316ebcd262cb717a8 1 parent 75ddcc3
colomon authored
Showing with 12 additions and 0 deletions.
  1. +12 −0 S03-metaops/hyper.t
12 S03-metaops/hyper.t
View
@@ -694,6 +694,18 @@ my @e;
@r = <A B C D E> »~» (1, 2, 3, *);
@e = <A1 B2 C3 D3 E3>;
is ~@r, ~@e, 'dwimmy hyper extends lists ending with * by copying the last element';
+
+ @r = <A B C D E> «~» (1, 2, 3, *);
+ @e = <A1 B2 C3 D3 E3>;
+ is ~@r, ~@e, 'dwimmy hyper extends lists ending with * by copying the last element';
+
+ @r = (1, 2, 3, *) «~« <A B C D E>;
+ @e = <1A 2B 3C 3D 3E>;
+ is ~@r, ~@e, 'dwimmy hyper extends lists ending with * by copying the last element';
+
+ @r = (1, 2, 3, *) «~» <A B C D E>;
+ @e = <1A 2B 3C 3D 3E>;
+ is ~@r, ~@e, 'dwimmy hyper extends lists ending with * by copying the last element';
}
done_testing;
Please sign in to comment.
Something went wrong with that request. Please try again.