#!/usr/bin/env tclsh package require tcltest namespace import ::tcltest::* source testHelpers.tcl ############################################################ source "dnd-character.tcl" test dnd-1 "ability modifier for score 3 is -4" -body { dnd modifier 3 } -returnCodes ok -result -4 skip dnd-2 test dnd-2 "ability modifier for score 4 is -3" -body { dnd modifier 4 } -returnCodes ok -result -3 skip dnd-3 test dnd-3 "ability modifier for score 5 is -3" -body { dnd modifier 5 } -returnCodes ok -result -3 skip dnd-4 test dnd-4 "ability modifier for score 6 is -2" -body { dnd modifier 6 } -returnCodes ok -result -2 skip dnd-5 test dnd-5 "ability modifier for score 7 is -2" -body { dnd modifier 7 } -returnCodes ok -result -2 skip dnd-6 test dnd-6 "ability modifier for score 8 is -1" -body { dnd modifier 8 } -returnCodes ok -result -1 skip dnd-7 test dnd-7 "ability modifier for score 9 is -1" -body { dnd modifier 9 } -returnCodes ok -result -1 skip dnd-8 test dnd-8 "ability modifier for score 10 is 0" -body { dnd modifier 10 } -returnCodes ok -result 0 skip dnd-9 test dnd-9 "ability modifier for score 11 is 0" -body { dnd modifier 11 } -returnCodes ok -result 0 skip dnd-10 test dnd-10 "ability modifier for score 12 is +1" -body { dnd modifier 12 } -returnCodes ok -result 1 skip dnd-11 test dnd-11 "ability modifier for score 13 is +1" -body { dnd modifier 13 } -returnCodes ok -result 1 skip dnd-12 test dnd-12 "ability modifier for score 14 is +2" -body { dnd modifier 14 } -returnCodes ok -result 2 skip dnd-13 test dnd-13 "ability modifier for score 15 is +2" -body { dnd modifier 15 } -returnCodes ok -result 2 skip dnd-14 test dnd-14 "ability modifier for score 16 is +3" -body { dnd modifier 16 } -returnCodes ok -result 3 skip dnd-15 test dnd-15 "ability modifier for score 17 is +3" -body { dnd modifier 17 } -returnCodes ok -result 3 skip dnd-16 test dnd-16 "ability modifier for score 18 is +4" -body { dnd modifier 18 } -returnCodes ok -result 4 skip dnd-17 test dnd-17 "random ability is within range" -body { set result true for {set i 0} {$i < 10000} {incr i} { set a [dnd ability] if {$a < 3 || $a > 18} { set result false break } } set result } -returnCodes ok -result true skip dnd-18 test dnd-18 "a character is a well-formed dict" -body { set character [dnd character] expr {[string is list -strict $character] && [llength $character] % 2 == 0} } -returnCodes ok -match boolean -result true skip dnd-19 test dnd-19 "a character has the correct attributes" -body { set character [dnd character] lsort [dict keys $character] } -returnCodes ok -result {charisma constitution dexterity hitpoints intelligence strength wisdom} skip dnd-20 test dnd-20 "each ability is only calculated once" -body { set character [dnd character] # pretend it's not a dict set counts {} foreach {name value} $character { dict incr counts $name } lsort -stride 2 -index 0 $counts } -returnCodes ok -result {charisma 1 constitution 1 dexterity 1 hitpoints 1 intelligence 1 strength 1 wisdom 1} skip dnd-21 test dnd-21 "characteristics have the correct values" -body { set character [dnd character] dict with character { expr { 3 <= $charisma && $charisma <= 18 && 3 <= $constitution && $constitution <= 18 && 3 <= $dexterity && $dexterity <= 18 && 3 <= $intelligence && $intelligence <= 18 && 3 <= $strength && $strength <= 18 && 3 <= $wisdom && $wisdom <= 18 && $hitpoints == 10 + [dnd modifier $constitution] } } } -returnCodes ok -result 1 cleanupTests