First unit test for tree-sitter backend

BNFC · Nov 26, 2023 · 0fa9df7 · 0fa9df7
1 parent f1c5101
commit 0fa9df7
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/source/test/BNFC/Backend/TreeSitterSpec.hs b/source/test/BNFC/Backend/TreeSitterSpec.hs
@@ -0,0 +1,25 @@
+module BNFC.Backend.TreeSitterSpec where
+
+import BNFC.Options
+import BNFC.GetCF
+
+import Test.Hspec
+import BNFC.Hspec
+
+import BNFC.Backend.TreeSitter -- SUT
+
+calcOptions = defaultOptions { lang = "Calc" }
+getCalc = parseCF  calcOptions TargetTreeSitter $
+  unlines [ "EAdd. Exp ::= Exp \"+\" Exp1  ;"
+          , "ESub. Exp ::= Exp \"-\" Exp1  ;"
+          , "EMul. Exp1  ::= Exp1  \"*\" Exp2  ;"
+          , "EDiv. Exp1  ::= Exp1  \"/\" Exp2  ;"
+          , "EInt. Exp2  ::= Integer ;"
+          , "coercions Exp 2 ;" ]
+
+spec = do
+
+  describe "Tree-Sitter backend" $ do
+    it "creates the grammar.js file" $ do
+      calc <- getCalc
+      makeTreeSitter calcOptions calc `shouldGenerate` "grammar.js"