Exclude failing BLS12-381 Agda tests

IntersectMBO · Mar 16, 2023 · 06d78c1 · 06d78c1
1 parent 0370055
commit 06d78c1
Showing 1 changed file with 72 additions and 1 deletion.
diff --git a/plutus-conformance/agda/Spec.hs b/plutus-conformance/agda/Spec.hs
@@ -49,7 +49,78 @@ failingTests = [
     -- BuilinVersion.
     , "test-cases/uplc/evaluation/builtin/semantics/consByteString/consByteString1"
     , "test-cases/uplc/evaluation/builtin/semantics/consByteString/consByteString2"
-
+    ]
+    -- The tests for the BLS12-381 builtins are disabled because the metatheory
+    -- doesn't yet deal with the builtins properly.  -- The commented-out tests
+    -- will "succeed" because failure (for a genuine reason) is expected.
+     ++ fmap ("test-cases/uplc/evaluation/builtin/semantics/" ++)
+     [ "bls12_381_G1_add/add-associative"
+     , "bls12_381_G1_add/add-zero"
+     , "bls12_381_G1_add/add"
+     , "bls12_381_G1_add/add-commutative"
+     , "bls12_381_G1_compress/compress"
+     , "bls12_381_G1_equal/equal-false"
+     , "bls12_381_G1_equal/equal-true"
+     , "bls12_381_G1_hashToCurve/hash"
+     , "bls12_381_G1_mul/mul0"
+     , "bls12_381_G1_mul/mul4x11"
+     , "bls12_381_G1_mul/muladd"
+     , "bls12_381_G1_mul/mul1"
+     , "bls12_381_G1_mul/mul44"
+     , "bls12_381_G1_mul/addmul"
+     , "bls12_381_G1_mul/mulneg44"
+     , "bls12_381_G1_mul/mul19+25"
+     , "bls12_381_G1_mul/mulneg1"
+     , "bls12_381_G1_neg/neg"
+     , "bls12_381_G1_neg/add-neg"
+     , "bls12_381_G1_neg/neg-zero"
+     , "bls12_381_G1_uncompress/zero"
+     -- , "bls12_381_G1_uncompress/on-curve-serialised-not-compressed"
+     ---, "bls12_381_G1_uncompress/off-curve"
+     -- , "bls12_381_G1_uncompress/bad-zero-1"
+     , "bls12_381_G1_uncompress/on-curve-bit3-set"
+     -- , "bls12_381_G1_uncompress/too-short"
+     -- , "bls12_381_G1_uncompress/out-of-group"
+     , "bls12_381_G1_uncompress/on-curve-bit3-clear"
+     -- , "bls12_381_G1_uncompress/too-long"
+     -- , "bls12_381_G1_uncompress/bad-zero-2"
+     -- , "bls12_381_G1_uncompress/bad-zero-3"
+     , "bls12_381_G2_add/add-associative"
+     , "bls12_381_G2_add/add-zero"
+     , "bls12_381_G2_add/add"
+     , "bls12_381_G2_add/add-commutative"
+     , "bls12_381_G2_compress/compress"
+     , "bls12_381_G2_equal/equal-false"
+     , "bls12_381_G2_equal/equal-true"
+     , "bls12_381_G2_hashToCurve/hash"
+     , "bls12_381_G2_mul/mul0"
+     , "bls12_381_G2_mul/mul4x11"
+     , "bls12_381_G2_mul/muladd"
+     , "bls12_381_G2_mul/mul1"
+     , "bls12_381_G2_mul/mul44"
+     , "bls12_381_G2_mul/addmul"
+     , "bls12_381_G2_mul/mulneg44"
+     , "bls12_381_G2_mul/mul19+25"
+     , "bls12_381_G2_mul/mulneg1"
+     , "bls12_381_G2_neg/neg"
+     , "bls12_381_G2_neg/add-neg"
+     , "bls12_381_G2_neg/neg-zero"
+     , "bls12_381_G2_uncompress/zero"
+     -- , "bls12_381_G2_uncompress/on-curve-serialised-not-compressed"
+     -- , "bls12_381_G2_uncompress/off-curve"
+     -- , "bls12_381_G2_uncompress/bad-zero-1"
+     , "bls12_381_G2_uncompress/on-curve-bit3-set"
+     -- , "bls12_381_G2_uncompress/too-short"
+     -- , "bls12_381_G2_uncompress/out-of-group"
+     , "bls12_381_G2_uncompress/on-curve-bit3-clear"
+     -- , "bls12_381_G2_uncompress/too-long"
+     -- , "bls12_381_G2_uncompress/bad-zero-2"
+     -- , "bls12_381_G2_uncompress/bad-zero-3"
+     , "bls12_381_pairing/random-pairing"
+     , "bls12_381_pairing/balanced"
+     , "bls12_381_pairing/equal-pairing"
+     , "bls12_381_pairing/right-additive"
+     , "bls12_381_pairing/left-additive"
     ]
 
 main :: IO ()