From de346400989ff6da0158d50f6f47cffac72f9593 Mon Sep 17 00:00:00 2001
From: ReneSac <reneduani@yahoo.com.br>
Date: Thu, 9 Apr 2015 17:01:40 -0300
Subject: [PATCH] Add tests for arrow like ops in tstrongspaces.nim

---
 tests/parser/tstrongspaces.nim | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tests/parser/tstrongspaces.nim b/tests/parser/tstrongspaces.nim
index 568abda4ca..c5b6115092 100644
--- a/tests/parser/tstrongspaces.nim
+++ b/tests/parser/tstrongspaces.nim
@@ -15,6 +15,10 @@ true
 tester args
 all
 all args
+19
+-3
+false
+-2
 '''
 """
 
@@ -67,3 +71,13 @@ const
 echo tester & " " & args|"all"
 echo "all"  |  tester & " " & args
 echo "all"|tester & " " & args
+
+# Test arrow like operators. See also tests/macros/tclosuremacro.nim
+proc `-+>`(a, b: int): int = a + b*4
+template `===>`(a, b: int): expr = a - b shr 1
+
+echo 3 -+> 2 + 2 and 4
+var arrowed = 3-+>2 + 2 and 4  # arrowed = 4
+echo arrowed ===> 15
+echo (2 * 3-+>2) == (2*3 -+> 2)
+echo arrowed ===> 2 + 3-+>2
\ No newline at end of file