(bind-func test_add_blinker
(lambda ()
(world_init world 0.0)
(world_add_blinker world 2 2)
;; (world_ascii_print world)
(every cell_check_result
(list (CellValue 0 0 0)
(CellValue 0 1 0)
(CellValue 0 2 0)
(CellValue 0 3 0)
(CellValue 0 4 0)
(CellValue 1 0 0)
(CellValue 1 1 0)
(CellValue 1 2 0)
(CellValue 1 3 0)
(CellValue 1 4 0)
(CellValue 2 0 0)
(CellValue 2 1 1)
(CellValue 2 2 1)
(CellValue 2 3 1)
(CellValue 2 4 0)
(CellValue 3 0 0)
(CellValue 3 1 0)
(CellValue 3 2 0)
(CellValue 3 3 0)
(CellValue 3 4 0)
(CellValue 4 0 0)
(CellValue 4 1 0)
(CellValue 4 2 0)
(CellValue 4 3 0)
(CellValue 4 4 0)))))