1 files changed, 53 insertions, 0 deletions
diff --git a/test/lexer-test.lisp b/test/lexer-test.lisp
new file mode 100644
index 0000000..bb7a1bd
--- /dev/null
+++ b/test/lexer-test.lisp
@@ -0,0 +1,53 @@
+(in-package :monkey/test)
+
+(deftest (:lexer test-1)
+  "=+(){},;"
+  (:t/= :t/+ :t/lparen :t/rparen
+   :t/lbrace :t/rbrace :t/comma :t/semicolon :t/eof))
+
+(deftest (:lexer test-2)
+  "let five = 5;
+let ten = 10;
+
+let add = fn(x, y) {
+  x + y;
+};
+
+let result = add(five, ten);
+!-/*;
+5 < 10 > 5;
+
+if (5 < 10) {
+    return true;
+} else {
+    return false;
+}
+10 == 10;
+10 != 9;
+"
+  (:t/let "five" :t/= 5 #\;
+          :t/let "ten" :t/= 10 #\;
+          :t/let "add" :t/= :t/function #\( "x" :t/comma "y" #\) #\{
+          "x" :t/+ "y" #\;
+          #\} #\;
+          :t/let "result" :t/= "add" #\( "five" :t/comma "ten" #\) #\;
+          :t/! :t/- :t// :t/* #\;
+          5 :t/< 10 :t/> 5 #\;
+          :t/if #\( 5 :t/< 10 #\) #\{
+          :t/return :t/true #\;
+          #\} :t/else #\{
+          :t/return :t/false #\;
+          #\}
+          10 :t/== 10 #\;
+          10 :t/!= 9 #\;
+          :t/eof))
+
+(eval-when ()
+  (deftest (:lexer test-fail)
+    "abc gf 5 fn =+(){},;"
+    (:t/= :t/+ :t/lparen :t/rparen
+     :t/lbrace :t/rbrace :t/comma :t/semicolon :t/eof))
+
+  (deftest (:lexer test-fail-2)
+    "let abc x + 5;"
+    (:t/let "abc" :t/= "x" :t/+ 5 :t/eof)))