bldc/tests/test_event_6.lisp

29 lines
654 B
Common Lisp
Raw Normal View History

Squashed 'lispBM/lispBM/' changes from 1267d006..8dc4c6d9 8dc4c6d9 added updated version of test_lisp_code.c that can produce events with lists of float 49dd1d31 added event tests to punish flat_values a bit. 9a2e004a fix flat_value bug, removed dead code and correctly labeled write_word static c9ee2c2d actually adding the flat_value files 215f3ba1 flat value implementation. A lot of testing needed 24d5184e experimental alternative way to transport values from C to LBM safely and with no need to pause. Work in progress 6d98ff61 restructuring for readability of GC and added queue locks. blocked context unblocking is done by the evaluator in a safe state. Safe state unblocking makes a bit harder to relay information about wether or not it was successful back to the thread issuing the unblock. So it may be a bad idea. It also makes the event queue obligatory 55ca904d added another arith stress test 87d21426 added another arith stress test f64d4c04 small tweaks to the runtime-extensions ab055958 added an arithmetic stresstest2 a802ed13 fundamentals have been unified with apply_funs. All tests pass but probably a period of bugginess ahead f00d6b46 added lbm-version extension to runtime extensions and changed return value on allocate_list_init in case there is not enough memory 2445974a preparations for unification of apply_fun and fundamentals 114b9a60 removed rot-vector function from Math extensions and added exp 6e1e7ee0 changed return value of define and added loop extensions from Benjamin BLDC 79622417 added loop extensions. todo: add tests git-subtree-dir: lispBM/lispBM git-subtree-split: 8dc4c6d9c16f7fce9753737423b8700f477f75f0
2023-02-11 01:20:37 -08:00
(event-register-handler (self))
(defun event-sender (n)
(if (= 0 n) ()
(progn
(event-sym 'apa)
(iota 271) ; Trigger GC eventually
(event-sender (- n 1)))))
(spawn event-sender 100)
(check (and (recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))
(recv ((? x) (eq x 'apa)))))
Squashed 'lispBM/lispBM/' changes from 1267d006..8dc4c6d9 8dc4c6d9 added updated version of test_lisp_code.c that can produce events with lists of float 49dd1d31 added event tests to punish flat_values a bit. 9a2e004a fix flat_value bug, removed dead code and correctly labeled write_word static c9ee2c2d actually adding the flat_value files 215f3ba1 flat value implementation. A lot of testing needed 24d5184e experimental alternative way to transport values from C to LBM safely and with no need to pause. Work in progress 6d98ff61 restructuring for readability of GC and added queue locks. blocked context unblocking is done by the evaluator in a safe state. Safe state unblocking makes a bit harder to relay information about wether or not it was successful back to the thread issuing the unblock. So it may be a bad idea. It also makes the event queue obligatory 55ca904d added another arith stress test 87d21426 added another arith stress test f64d4c04 small tweaks to the runtime-extensions ab055958 added an arithmetic stresstest2 a802ed13 fundamentals have been unified with apply_funs. All tests pass but probably a period of bugginess ahead f00d6b46 added lbm-version extension to runtime extensions and changed return value on allocate_list_init in case there is not enough memory 2445974a preparations for unification of apply_fun and fundamentals 114b9a60 removed rot-vector function from Math extensions and added exp 6e1e7ee0 changed return value of define and added loop extensions from Benjamin BLDC 79622417 added loop extensions. todo: add tests git-subtree-dir: lispBM/lispBM git-subtree-split: 8dc4c6d9c16f7fce9753737423b8700f477f75f0
2023-02-11 01:20:37 -08:00