(bind-func test_blink_blinker
(lambda ()
(world_init world 0.0)
(let ((gen (world_generation world)))
(world_add_blinker world 2 2)
(world_step world)
(and
(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 1)
(CellValue 1 3 0)
(CellValue 1 4 0)
(CellValue 2 0 0)
(CellValue 2 1 0)
(CellValue 2 2 1)
(CellValue 2 3 0)
(CellValue 2 4 0)
(CellValue 3 0 0)
(CellValue 3 1 0)
(CellValue 3 2 1)
(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)))
(= (world_generation world) (+ gen 1))))))