(bind-func test_world_indexing
(lambda ()
(world_init world 0.0)
;; set up a "checkerboard" pattern
(world_set_to_checkerboard world)
(every cell_check_result
(list (CellValue 0 0 0)
(CellValue 0 1 1)
(CellValue 0 2 0)
(CellValue 0 3 1)
(CellValue 0 4 0)
(CellValue 1 0 1)
(CellValue 1 1 0)
(CellValue 1 2 1)
(CellValue 1 3 0)
(CellValue 1 4 1)
(CellValue 2 0 0)
(CellValue 2 1 1)
(CellValue 2 2 0)
(CellValue 2 3 1)
(CellValue 2 4 0)
(CellValue 3 0 1)
(CellValue 3 1 0)
(CellValue 3 2 1)
(CellValue 3 3 0)
(CellValue 3 4 1)
(CellValue 4 0 0)
(CellValue 4 1 1)
(CellValue 4 2 0)
(CellValue 4 3 1)
(CellValue 4 4 0)))))