fix a test

Author: garlic0x1

test/basic.lisp

@@ -139,12 +139,6 @@
 
   (counter :name :my-counter)
   (send :my-counter 1)
-  (print "asking")
-  (force-output)
   (is (= 3 (ask :my-counter 2)))
-  (print "joining")
-  (force-output)
   (close-and-join-actors :my-counter)
-  (print "checking")
-  (force-output)
   (is (eql nil (gethash :my-counter *registry*))))

test/dispatcher.lisp

@@ -37,4 +37,19 @@
   (counter :name :my-counter :workers 2)
   (send :my-counter 1)
   (is (ask :my-counter 1))
-  (close-actor :my-counter))
+  (join-actor (close-actor :my-counter)))
+
+(deftest test-dispatcher-redefine ()
+  (define-actor counter ((c 0)) (increment)
+    (incf c increment))
+
+  (counter :name :my-counter :workers 2)
+  (ask :my-counter 1)
+  (ask :my-counter 1)
+
+  (define-actor counter ((c 0)) (increment)
+    (incf c (* 2 increment)))
+
+  (send :my-counter 1)
+  (send :my-counter 1)
+  (is (= 6 (reduce #'+ (join-actor (close-actor :my-counter))))))

thespis.lisp

@@ -79,6 +79,7 @@
     (dolist (worker (dispatcher-workers actor))
       (close-actor worker))
     (setf (dispatcher-openp actor) nil)
+    (remhash (dispatcher-name actor) *registry*)
     actor)
   (:method ((actor t))
     (close-actor (resolve-actor actor))))
@@ -89,8 +90,7 @@
     (bt2:join-thread (actor-thread actor))
     (apply #'values (actor-store actor)))
   (:method ((actor dispatcher))
-    (prog1 (mapcar #'join-actor (dispatcher-workers actor))
-      (remhash (dispatcher-name actor) *registry*)))
+    (mapcar #'join-actor (dispatcher-workers actor)))
   (:method ((actor t))
     (join-actor (resolve-actor actor))))