diff options
| -rw-r--r-- | src/Sequence/Contact/Tests.hs | 46 |
1 files 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) | |||
| 32 | tests :: MonadReader Stats m => m (Map (CI String) (FormulaM Stats Test)) | 32 | tests :: MonadReader Stats m => m (Map (CI String) (FormulaM Stats Test)) |
| 33 | tests = do | 33 | tests = do |
| 34 | baseTests <- mconcat <$> sequence [ test "Stärke" $ sAStrength . attributeTest | 34 | baseTests <- mconcat <$> sequence [ test "Stärke" $ sAStrength . attributeTest |
| 35 | 35 | , test "Ausdauer" $ sAEndurance . attributeTest | |
| 36 | , test "Masse" $ sAMass . attributeTest | ||
| 37 | , test "Reflexe" $ sAReflexes . attributeTest | ||
| 38 | , test "Beweglichkeit" $ sAMobility . attributeTest | ||
| 39 | , test "Geschicklichkeit" $ sADexterity . attributeTest | ||
| 40 | , test "Intelligenz" $ sAIntelligence . attributeTest | ||
| 41 | , test "Charisma" $ sACharisma . attributeTest | ||
| 42 | , test "Wahrnehmung" $ sAPerception . attributeTest | ||
| 43 | , test "Entschlossenheit" $ sAWillpower . attributeTest | ||
| 44 | |||
| 36 | , test "Archaische Distanzwaffen" $ sSArchaicRanged . skillTest | 45 | , test "Archaische Distanzwaffen" $ sSArchaicRanged . skillTest |
| 37 | 46 | , test "Handfeuerwaffen" $ sSFirearms . skillTest | |
| 47 | , test "Schwere Waffen" $ sSHeavyWeapons . skillTest | ||
| 48 | , test "Energiewaffen" $ sSEnergyWeapons . skillTest | ||
| 49 | , test "Waffenloser Nahkampf" $ sSUnarmedMelee . skillTest | ||
| 50 | , test "Bewaffneter Nahkampf" $ sSArmedMelee . skillTest | ||
| 51 | , test "Wurfwaffen" $ sSThrownWeapons . skillTest | ||
| 52 | , test "Tarnen & Schleichen" $ sSStealth . skillTest | ||
| 53 | , test "Diebeshandwerk & Betrügerei" $ sSThievery . skillTest | ||
| 54 | , test "Schlösser Knacken" $ sSLockpicking . skillTest | ||
| 55 | , test "Fallen Stellen & Entschärfen" $ sSTrapping . skillTest | ||
| 56 | , test "Naturwissenschaften" $ sSSciences . skillTest | ||
| 57 | , test "Erste Hilfe" $ sSFirstAid . skillTest | ||
| 58 | , test "Medizinische Praktik" $ sSMedicine . skillTest | ||
| 59 | , test "Geisteswissenschaften" $ sSHumanities . skillTest | ||
| 60 | , test "Ingenieurwesen & Reperatur" $ sSEngineering . skillTest | ||
| 61 | , test "Handwerkskunst" $ sSCraft . skillTest | ||
| 62 | , test "Interface" $ sSInterface . skillTest | ||
| 63 | , test "Redekunst" $ sSSpeech . skillTest | ||
| 64 | , test "Führung" $ sSLeadership . skillTest | ||
| 65 | , test "Hauswirtschaft" $ sSHomeEconomics . skillTest | ||
| 66 | , test "Überlebenskunst" $ sSSurvival . skillTest | ||
| 67 | , test "Motorrad" $ sSMotorcycle . skillTest | ||
| 68 | , test "Radfahrzeug" $ sSWheeled . skillTest | ||
| 69 | , test "Schwebefahrzeug" $ sSHovercraft . skillTest | ||
| 70 | , test "Tragflächenmaschine" $ sSAircraft . skillTest | ||
| 71 | , test "Raumfahrzeug" $ sSSpacecraft . skillTest | ||
| 72 | , test "Wasserfahrzeug" $ sSWatercraft . skillTest | ||
| 73 | , test "Kettenfahrzeug" $ sSTracked . skillTest | ||
| 74 | , test "Exoskelett" $ sSExoskeleton . skillTest | ||
| 38 | , test "Beißen" $ sSBiting . skillTest | 75 | , test "Beißen" $ sSBiting . skillTest |
| 76 | , test "Aufspüren" $ sSSearching . skillTest | ||
| 77 | , test "Betragen" $ sSDemeanour . skillTest | ||
| 78 | , test "Rammen" $ sSRamming . skillTest | ||
| 79 | , test "Zielerfassung" $ sSTargeting . skillTest | ||
| 80 | , test "Verständnis" $ sSComprehension . skillTest | ||
| 39 | ] | 81 | ] |
| 40 | 82 | ||
| 41 | views sExtraSkills (baseTests <>) | 83 | views sExtraSkills (baseTests <>) |