patrick/FicroKanSharp
1
0
Fork 0
mirror of https://github.com/Smaug123/FicroKanSharp synced 2025-10-21 18:58:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add a reifier

Browse Source
This commit is contained in:
Smaug123
2021-12-26 16:54:19 +00:00
parent b407409584
commit d6b6ad915e
4 changed files with 70 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
FicroKanSharp.Test/Geometry.fs
View File

@@ -43,16 +43,10 @@ module Geometry =
|> TypedTerm.Literal
|> verticalo
|> Goal.evaluate
|> Stream.toList
|> List.exactlyOne
|> shouldEqual (
Map.ofList
[
VariableCount 0, TypedTerm.compile (TypedTerm.Literal 1)
VariableCount 1, TypedTerm.compile (TypedTerm.Literal 1)
VariableCount 2, TypedTerm.compile (TypedTerm.Literal 3)
]
)
|> Reify.withRespectToFirst
|> Seq.exactlyOne
|> Option.get
|> shouldEqual (TypedTerm.compile (TypedTerm.literal 1))
(Line (
TypedTerm.Literal (Point (TypedTerm.Literal 1, TypedTerm.Literal 1)),