Use a bigger script in test that checks reference script size

so that we don't need so many txins to push the transaction size over
the allowed maximum

Author: teodanciu

eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Imp/LedgerSpec.hs

@@ -33,8 +33,8 @@ import Test.Cardano.Ledger.Conway.ImpTest
 import Test.Cardano.Ledger.Core.Rational (IsRatio (..))
 import Test.Cardano.Ledger.Imp.Common
 import Test.Cardano.Ledger.Plutus.Examples (
-  alwaysFailsWithDatum,
   alwaysSucceedsNoDatum,
+  purposeIsWellformedNoDatum,
  )
 
 spec ::
@@ -48,7 +48,7 @@ spec = do
   it "TxRefScriptsSizeTooBig" $ do
     -- we use here the largest script we currently have as many times as necessary to
     -- trigger the predicate failure
-    Just plutusScript <- pure $ mkPlutusScript @era $ alwaysFailsWithDatum SPlutusV3
+    Just plutusScript <- pure $ mkPlutusScript @era $ purposeIsWellformedNoDatum SPlutusV3
     let script :: Script era
         script = fromPlutusScript plutusScript
         size = originalBytesSize script