test eval top-level

Author: bobbicodes

src/eval-region.js

@@ -85,14 +85,14 @@ const evalAtCursor = (view) => {
     return true
 }
 
-const clearEval = (view) => {
+export const clearEval = (view) => {
     if (evalResult.length != 0) {
         evalResult = ""
         updateEditor(view, codeBeforeEval, posBeforeEval)
     }
 }
 
-const evalTopLevel = (view) => {
+export const evalTopLevel = (view) => {
     posAtFormEnd = topLevelNode(view.state).to
     const doc = view.state.doc.toString()
     posBeforeEval = view.state.selection.main.head

test/lang-clojure-eval.test.js

@@ -2,7 +2,7 @@ import {describe, expect, test, it} from 'vitest'
 import {EditorState} from "@codemirror/state"
 import {EditorView} from "codemirror"
 import {evalString} from "../src/sci"
-import {evalCell} from '../src/eval-region'
+import {evalCell, clearEval, evalTopLevel} from '../src/eval-region'
 import {clojure} from "../src/clojure"
 
 describe('Editor state', () => {
@@ -26,4 +26,13 @@ describe('Editor state', () => {
         evalCell(view)
         expect(view.state.doc.text.join(" ")).eq("(map inc (range 5))  => (1 2 3 4 5)")
     })
+    it('Clears evaluation result', () => {
+        clearEval(view)
+        expect(view.state.doc.text.join(" ")).eq("(map inc (range 5))")
+    })
+    it('Evaluates top-level form', () => {
+        evalTopLevel(view)
+        console.log(view.state.doc.toString())
+        expect(view.state.doc.toString()).eq("(map inc (range 5)) => (1 2 3 4 5) ")
+    })
 })