aniva/Pantograph
aniva
/
Pantograph
1
1
Fork 0
Code Issues 10 Pull Requests 2 Packages Projects Releases Wiki Activity

test(frontend): Fix the open test

This commit is contained in:
Leni Aniva 2025-03-14 16:35:12 -07:00
parent 0cfd73e44e
commit 8797bbe245
Signed by: aniva
GPG Key ID: 4D9B1C8D10EA4C50
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Test/Frontend.lean
View File

@ -16,11 +16,12 @@ def runFrontend { α } (source: String) (f : Frontend.CompilationStep → IO α)
def test_open : TestT MetaM Unit := do def test_open : TestT MetaM Unit := do
let sketch := " let sketch := "
open Nat open Nat
example : ∀ (n m: Nat), n + m = m + n := by example : ∀ (n : Nat), n + 1 = Nat.succ n := by
apply add_comm intro
apply add_one
" "
let errors ← runFrontend sketch λ step => step.msgs.mapM (·.toString) let errors ← runFrontend sketch λ step => step.msgs.mapM (·.toString)
checkEq "errors" errors [[]] checkEq "errors" errors [[], []]
def collectSorrysFromSource (source: String) (options : Frontend.GoalCollectionOptions := {}) def collectSorrysFromSource (source: String) (options : Frontend.GoalCollectionOptions := {})
: MetaM (List GoalState) := do : MetaM (List GoalState) := do