(bind-func test_world_copy
(lambda ()
;; randomly initialise world
(world_init world 0.5)
(let ((w2 (world_copy world)))
(and (world_equal world w2)
(begin
(world_init w2 0.5)
(not (world_equal world w2)))))))