Skip to content

Testen mit zufälligen Konfigurationen bei Step #269

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
nimec01 wants to merge 2 commits into
base: master
Choose a base branch
from
+30 −11
Draft

Testen mit zufälligen Konfigurationen bei Step #269

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
5f321fa
add generator for StepConfig
nimec01 Mar 6, 2025
b4edb8a
Merge branch 'master' into step-generation
nimec01 Mar 27, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
41 changes: 30 additions & 11 deletions test/StepSpec.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,31 +1,50 @@
{-# LANGUAGE NamedFieldPuns #-}
module StepSpec where

import Test.Hspec (Spec, describe, it)
import Control.OutputCapable.Blocks (LangM)
import TestHelpers (doesNotRefuse)
import Test.QuickCheck (forAll)
import Config (StepInst(solution), dStepConf, StepAnswer (StepAnswer))
import Test.QuickCheck (forAll, Gen)
import Config (StepInst(solution), dStepConf, StepAnswer (StepAnswer), StepConfig (..))
import LogicTasks.Semantics.Step (verifyQuiz, genStepInst, description, verifyStatic, partialGrade', completeGrade')
import FillSpec (validBoundsBaseConfig)


validBoundsStepConfig :: Gen StepConfig
validBoundsStepConfig = do
baseConf <- validBoundsBaseConfig
return $ StepConfig
{ baseConf
, useSetNotation = False
, printSolution = False
, extraText = Nothing
, offerUnicodeInput = False
}

spec :: Spec
spec = do
describe "config" $ do
it "default config should pass config check" $
doesNotRefuse (verifyQuiz dStepConf :: LangM Maybe)
it "validBoundsStepConfig should pass config check" $
forAll validBoundsStepConfig $ \config ->
doesNotRefuse (verifyQuiz config :: LangM Maybe)
describe "description" $ do
it "should not reject" $
forAll (genStepInst dStepConf) $ \inst ->
doesNotRefuse (description True inst :: LangM Maybe)
forAll validBoundsStepConfig $ \config ->
forAll (genStepInst config) $ \inst ->
doesNotRefuse (description True inst :: LangM Maybe)
describe "generateStepInst" $ do
it "should pass verifyStatic" $
forAll (genStepInst dStepConf) $ \inst ->
doesNotRefuse
(verifyStatic inst :: LangM Maybe)
forAll validBoundsStepConfig $ \config ->
forAll (genStepInst config) $ \inst ->
doesNotRefuse
(verifyStatic inst :: LangM Maybe)
it "possible solution passes partialGrade" $
forAll (genStepInst dStepConf) $ \inst ->
doesNotRefuse (partialGrade' inst $ StepAnswer $ Just $ solution inst :: LangM Maybe)
forAll validBoundsStepConfig $ \config ->
forAll (genStepInst config) $ \inst ->
doesNotRefuse (partialGrade' inst $ StepAnswer $ Just $ solution inst :: LangM Maybe)
it "possible solution passes completeGrade" $
forAll (genStepInst dStepConf) $ \inst ->
doesNotRefuse (completeGrade' inst $ StepAnswer $ Just $ solution inst :: LangM Maybe)
forAll validBoundsStepConfig $ \config ->
forAll (genStepInst config) $ \inst ->
doesNotRefuse (completeGrade' inst $ StepAnswer $ Just $ solution inst :: LangM Maybe)