Commits

David Krentzlin  committed d1da2f1

implemented most actions

  • Participants
  • Parent commits c47a803

Comments (0)

Files changed (1)

File tests/markov-spec.scm

     (it "generates a sequence"
       (let ((probs (make-dictionary)))
         (learn-text! probs "this is just a test just b foo")
-        (expect (member  (generate-text probs "just")
-                         (list "just b foo" "just a test"))
+        (expect (member  (generate-text probs "just" 2)
+                         (list "just b foo" "just a test" "just a test just"))
             (be a list)))))
 
   (context "Commands"