From e658f5e9512be2f5d25c3e4a7498163697aa85f0 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 26 Jun 2016 14:35:41 +0200 Subject: more tests --- src/Sequence/Contact/Tests.hs | 46 +++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 44 insertions(+), 2 deletions(-) diff --git a/src/Sequence/Contact/Tests.hs b/src/Sequence/Contact/Tests.hs index c100ce9..ddbd00b 100644 --- a/src/Sequence/Contact/Tests.hs +++ b/src/Sequence/Contact/Tests.hs @@ -32,10 +32,52 @@ import Prelude hiding (mapM) tests :: MonadReader Stats m => m (Map (CI String) (FormulaM Stats Test)) tests = do baseTests <- mconcat <$> sequence [ test "Stärke" $ sAStrength . attributeTest - + , test "Ausdauer" $ sAEndurance . attributeTest + , test "Masse" $ sAMass . attributeTest + , test "Reflexe" $ sAReflexes . attributeTest + , test "Beweglichkeit" $ sAMobility . attributeTest + , test "Geschicklichkeit" $ sADexterity . attributeTest + , test "Intelligenz" $ sAIntelligence . attributeTest + , test "Charisma" $ sACharisma . attributeTest + , test "Wahrnehmung" $ sAPerception . attributeTest + , test "Entschlossenheit" $ sAWillpower . attributeTest + , test "Archaische Distanzwaffen" $ sSArchaicRanged . skillTest - + , test "Handfeuerwaffen" $ sSFirearms . skillTest + , test "Schwere Waffen" $ sSHeavyWeapons . skillTest + , test "Energiewaffen" $ sSEnergyWeapons . skillTest + , test "Waffenloser Nahkampf" $ sSUnarmedMelee . skillTest + , test "Bewaffneter Nahkampf" $ sSArmedMelee . skillTest + , test "Wurfwaffen" $ sSThrownWeapons . skillTest + , test "Tarnen & Schleichen" $ sSStealth . skillTest + , test "Diebeshandwerk & Betrügerei" $ sSThievery . skillTest + , test "Schlösser Knacken" $ sSLockpicking . skillTest + , test "Fallen Stellen & Entschärfen" $ sSTrapping . skillTest + , test "Naturwissenschaften" $ sSSciences . skillTest + , test "Erste Hilfe" $ sSFirstAid . skillTest + , test "Medizinische Praktik" $ sSMedicine . skillTest + , test "Geisteswissenschaften" $ sSHumanities . skillTest + , test "Ingenieurwesen & Reperatur" $ sSEngineering . skillTest + , test "Handwerkskunst" $ sSCraft . skillTest + , test "Interface" $ sSInterface . skillTest + , test "Redekunst" $ sSSpeech . skillTest + , test "Führung" $ sSLeadership . skillTest + , test "Hauswirtschaft" $ sSHomeEconomics . skillTest + , test "Überlebenskunst" $ sSSurvival . skillTest + , test "Motorrad" $ sSMotorcycle . skillTest + , test "Radfahrzeug" $ sSWheeled . skillTest + , test "Schwebefahrzeug" $ sSHovercraft . skillTest + , test "Tragflächenmaschine" $ sSAircraft . skillTest + , test "Raumfahrzeug" $ sSSpacecraft . skillTest + , test "Wasserfahrzeug" $ sSWatercraft . skillTest + , test "Kettenfahrzeug" $ sSTracked . skillTest + , test "Exoskelett" $ sSExoskeleton . skillTest , test "Beißen" $ sSBiting . skillTest + , test "Aufspüren" $ sSSearching . skillTest + , test "Betragen" $ sSDemeanour . skillTest + , test "Rammen" $ sSRamming . skillTest + , test "Zielerfassung" $ sSTargeting . skillTest + , test "Verständnis" $ sSComprehension . skillTest ] views sExtraSkills (baseTests <>) -- cgit v1.2.3