From 98ea7a465f1b8669e90d8fe23f207600de2f693c Mon Sep 17 00:00:00 2001
From: "Mike D. Lowis" <mike@mdlowis.com>
Date: Wed, 18 Jul 2012 16:29:09 -0400
Subject: [PATCH] Added test for infix operator application

---
 tests/test_parser.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/test_parser.scm b/tests/test_parser.scm
index 65ccb44..e85a8e3 100644
--- a/tests/test_parser.scm
+++ b/tests/test_parser.scm
@@ -189,6 +189,17 @@
 
 ; dlang/operator-app
 ;------------------------------------------------------------------------------
+(def-test "dlang/operator-app should parse an infix operator application"
+  (call-with-input-string "(1.0 * 2.0)"
+    (lambda (input)
+      (define lxr (make-lexer input))
+      (define result (dlang/operator-app lxr))
+      (syntree=? result
+        (syntree 'apply ""
+          (list
+            (syntree 'id "*" '())
+            (syntree 'number "1.0" '())
+            (syntree 'number "2.0" '())))))))
 
 ; dlang/operator
 ;------------------------------------------------------------------------------
-- 
2.52.0