|
validBoundsDecide :: Gen DecideConfig |
|
validBoundsDecide = do |
|
-- formulaType <- elements ["Cnf", "Dnf", "Arbitrary"] |
|
let formulaType = "Arbitrary" |
|
formulaConfig <- case formulaType of |
|
"Cnf" -> FormulaCnf <$> validBoundsCnf |
|
"Dnf" -> FormulaDnf <$> validBoundsCnf |
|
_ -> FormulaArbitrary <$> validBoundsSynTree `suchThat` \SynTreeConfig{..} -> |
|
maxNodes < 30 && |
|
minAmountOfUniqueAtoms == fromIntegral (length availableAtoms) |
The test suite hangs when using the commented line displayed in the code snippet above. We probably also want to use oneof instead of the current (custom) implementation.
logic-tasks/test/DecideSpec.hs
Lines 22 to 31 in 381f8cf
The test suite hangs when using the commented line displayed in the code snippet above. We probably also want to use
oneofinstead of the current (custom) implementation.