(bind-func test_world_periodic_bc
(lambda ()
(world_init world 0.0)
(world_add_blinker world (random 5) (random 5))
(let ((w2 (world_copy world)))
;; 2 steps for a blinker should return to original state
(world_step world)
(world_step world)
(world_equal world w2))))