From e349cce54bcf7a034ef3ceb2209f3d79d076d5ce Mon Sep 17 00:00:00 2001 From: kwxm Date: Fri, 25 Jul 2025 05:58:16 +0100 Subject: [PATCH] Invert some error messages in plutus-ledger-api tests --- plutus-ledger-api/test/Spec/Versions.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/plutus-ledger-api/test/Spec/Versions.hs b/plutus-ledger-api/test/Spec/Versions.hs index cb07f69b1ca..9d8ebfbf7b6 100644 --- a/plutus-ledger-api/test/Spec/Versions.hs +++ b/plutus-ledger-api/test/Spec/Versions.hs @@ -50,7 +50,7 @@ showPV (MajorProtocolVersion pv) = 8 -> "Valentine (PV8)" 9 -> "Chang (PV9)" 10 -> "Plomin (PV10)" - 11 -> "Anon (PV11)" + 11 -> "PV11" _ -> " (PV" ++ show pv ++ ")" -- Some scripts for use in the version tests. @@ -208,11 +208,11 @@ testPermittedBuiltins = let testBuiltins ll deserialise pv expectedGood = let expectGood scripts = for_ scripts $ \(name, script) -> - assertBool (name ++ " not allowed in " ++ show ll ++" @" ++ showPV pv) $ + assertBool (name ++ " should be allowed in " ++ show ll ++" @" ++ showPV pv) $ isRight $ deserialise pv script expectBad scripts = for_ scripts $ \(name, script) -> - assertBool (name ++ " should be allowed in " ++ show ll ++" @" ++ showPV pv) $ + assertBool (name ++ " should not be allowed in " ++ show ll ++" @" ++ showPV pv) $ isLeft $ deserialise pv script in testCase (showPV pv) $ do expectGood expectedGood