[nongnu] elpa/geiser-kawa cebaa28 042/119: Add test

[Philip Kaludercic]

branch: elpa/geiser-kawa
commit cebaa2851357b76f3bebe60e9e4faa34d945411f
Author: spellcard199 <spellcard199@protonmail.com>
Commit: spellcard199 <spellcard199@protonmail.com>

    Add test
---
 src/test/java/kawageiser/GeiserTest.java | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/src/test/java/kawageiser/GeiserTest.java 
b/src/test/java/kawageiser/GeiserTest.java
new file mode 100644
index 0000000..c38d9cd
--- /dev/null
+++ b/src/test/java/kawageiser/GeiserTest.java
@@ -0,0 +1,22 @@
+/*
+ * Copyright (C) 2020 spellcard199 <spellcard199@protonmail.com>
+ * This is free software;  for terms and warranty disclaimer see ./COPYING.
+ */
+
+package kawageiser;
+
+import kawa.standard.Scheme;
+import org.testng.annotations.Test;
+
+import static org.testng.Assert.assertEquals;
+
+public class GeiserTest {
+    @Test
+    public static void testEval() throws Throwable {
+        Scheme scheme = new Scheme();
+        scheme.eval("(require <kawageiser.Geiser>)");
+        String ret = (String) scheme.eval(
+                "(geiser:eval (interaction-environment) \"(+ 1 1)\")");
+        assertEquals(ret ,"((result \"2\") (output . \"\"))");
+    }
+}