Improving tests with some descriptions.

exercises/concept/lillys-lasagna-leftovers/lillys-lasagna-leftovers-test.lisp

@@ -16,36 +16,36 @@
 (def-suite lillys-lasagna-leftovers-suite)
 (in-suite lillys-lasagna-leftovers-suite)
 
-(test preparation-time
+(test preparation-time "Count the number of layers to compute the time."
   (is (= 0 (preparation-time)))
   (is (= 19 (preparation-time 'sauce)))
   (is (= 95 (preparation-time 'sauce 'cheese 'left-handed-macaroni 'cheese 'cheese))))
 
-(test remaining-minutes-in-oven-normal
+(test remaining-minutes-in-oven-normal "A normal amount of time - like parental-unit used to make."
   (is (= 337 (remaining-minutes-in-oven)))
   (is (= 337 (remaining-minutes-in-oven :normal))))
 
-(test remaining-mintues-in-oven-shorter
+(test remaining-mintues-in-oven-shorter "Some aliens like less cooking"
   (is (= 237 (remaining-minutes-in-oven :shorter)))
   (is (= 137 (remaining-minutes-in-oven :very-short))))
 
-(test remaining-minutes-in-oven-longer
+(test remaining-minutes-in-oven-longer "Some aliens like more cooking"
   (is (= 437 (remaining-minutes-in-oven :longer)))
   (is (= 537 (remaining-minutes-in-oven :very-long))))
 
-(test remaining-minutes-in-oven-very-very-short
+(test remaining-minutes-in-oven-very-very-short "Some aliens want it cold and raw"
   (is (= 0   (remaining-minutes-in-oven nil))))
 
-(test splitting-leftovers
+(test splitting-leftovers "Split the left-overs into the containers"
   (is (= 5 (split-leftovers :weight 20 :human 10 :alien 5)))
   (is (= 4 (split-leftovers :alien 12 :weight 20 :human 4))))
 
-(test splitting-leftovers-defaulting-containers
+(test splitting-leftovers-defaulting-containers "Split the left-overs into the containers making some assumptions"
   (is (= 5 (split-leftovers :weight 20 :human 5)))
   (is (= 5 (split-leftovers :weight 20 :alien 5)))
   (is (= 0 (split-leftovers :weight 20))))
 
-(test splitting-leftovers-default-weight
+(test splitting-leftovers-default-weight "Split the left-overs into the containers with more assumptions"
   (is (eq :just-split-it (split-leftovers :human 5 :alien 5)))
   (is (eq :looks-like-someone-was-hungry (split-leftovers :weight NIL))))