Skip to content

Commit 9e221dd

Browse files
kwxmana-pantilie
authored andcommitted
Enable the Agda conformance tests for the array builtins. (#7375)
* Enable the conformance tests for the array builtins.
1 parent 2385117 commit 9e221dd

File tree

1 file changed

+4
-32
lines changed

1 file changed

+4
-32
lines changed

plutus-conformance/agda/Spec.hs

Lines changed: 4 additions & 32 deletions
Original file line numberDiff line numberDiff line change
@@ -124,23 +124,10 @@ agdaEvalUplcProg WithoutCosting =
124124
-}
125125
failingEvaluationTests :: [FilePath]
126126
failingEvaluationTests =
127-
[ -- These "array" tests fail because the Agda code doesn't know about arrays yet
128-
-- TODO: remove these tests once "Add new array type and builtins to Agda
129-
-- metatheory" is done https://github.com/IntersectMBO/plutus-private/issues/1465
130-
"test-cases/uplc/evaluation/builtin/constant/array/emptyArray"
131-
, "test-cases/uplc/evaluation/builtin/constant/array/simpleArray"
132-
, "test-cases/uplc/evaluation/builtin/constant/array/unitArray"
133-
, "test-cases/uplc/evaluation/builtin/semantics/listToArray/listToArray-01"
134-
, "test-cases/uplc/evaluation/builtin/semantics/listToArray/listToArray-02"
135-
, "test-cases/uplc/evaluation/builtin/semantics/lengthOfArray/lengthOfArray-01"
136-
, "test-cases/uplc/evaluation/builtin/semantics/lengthOfArray/lengthOfArray-02"
137-
, "test-cases/uplc/evaluation/builtin/semantics/indexArray/indexArray-01"
138-
, "test-cases/uplc/evaluation/builtin/semantics/indexArray/indexArray-02"
139-
, "test-cases/uplc/evaluation/builtin/semantics/indexArray/indexArray-03"
140-
-- These "constant casing" tests fail because Agda metatheory does not yet
141-
-- implement casing on constant values.
142-
-- TODO: remove these tests once casing on constant is added to Agda metatheory.
143-
, "test-cases/uplc/evaluation/term/constant-case/bool/bool-01"
127+
[ -- These "constant casing" tests fail because Agda metatheory does not yet
128+
-- implement casing on constant values.
129+
-- TODO: remove these tests once casing on constant is added to Agda metatheory.
130+
"test-cases/uplc/evaluation/term/constant-case/bool/bool-01"
144131
, "test-cases/uplc/evaluation/term/constant-case/bool/bool-02"
145132
, "test-cases/uplc/evaluation/term/constant-case/bool/bool-03"
146133
, "test-cases/uplc/evaluation/term/constant-case/bool/bool-04"
@@ -196,21 +183,6 @@ failingBudgetTests =
196183
, "test-cases/uplc/evaluation/builtin/semantics/dropList/dropList-14"
197184
, "test-cases/uplc/evaluation/builtin/semantics/dropList/dropList-15"
198185
, "test-cases/uplc/evaluation/builtin/semantics/dropList/dropList-16"
199-
, -- These "array" tests fail because the Agda code doesn't know about arrays yet
200-
-- TODO: remove these tests once "Add new array type and builtins to Agda
201-
-- metatheory" is done https://github.com/IntersectMBO/plutus-private/issues/1465
202-
"test-cases/uplc/evaluation/builtin/constant/array/emptyArray"
203-
, "test-cases/uplc/evaluation/builtin/constant/array/simpleArray"
204-
, "test-cases/uplc/evaluation/builtin/constant/array/unitArray"
205-
, "test-cases/uplc/evaluation/builtin/constant/array/illTypedArray-01"
206-
, "test-cases/uplc/evaluation/builtin/constant/array/illTypedArray-02"
207-
, "test-cases/uplc/evaluation/builtin/semantics/listToArray/listToArray-01"
208-
, "test-cases/uplc/evaluation/builtin/semantics/listToArray/listToArray-02"
209-
, "test-cases/uplc/evaluation/builtin/semantics/lengthOfArray/lengthOfArray-01"
210-
, "test-cases/uplc/evaluation/builtin/semantics/lengthOfArray/lengthOfArray-02"
211-
, "test-cases/uplc/evaluation/builtin/semantics/indexArray/indexArray-01"
212-
, "test-cases/uplc/evaluation/builtin/semantics/indexArray/indexArray-02"
213-
, "test-cases/uplc/evaluation/builtin/semantics/indexArray/indexArray-03"
214186
-- These "constant casing" tests fail because Agda metatheory does not yet
215187
-- implement casing on constant values.
216188
-- TODO: remove these tests once casing on constant is added to Agda metatheory.

0 commit comments

Comments
 (0)