From 77f2d46796bae049038e3904bdb49a60eabb6e60 Mon Sep 17 00:00:00 2001
From: Mitya Selivanov <automainint@guattari.tech>
Date: Sat, 24 Feb 2024 23:20:38 +0100
Subject: A* search test

---
 source/tests/astar.test.c | 111 ++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 108 insertions(+), 3 deletions(-)

(limited to 'source/tests')

diff --git a/source/tests/astar.test.c b/source/tests/astar.test.c
index ae5044c..eeb1100 100644
--- a/source/tests/astar.test.c
+++ b/source/tests/astar.test.c
@@ -1,11 +1,116 @@
-#include "../kit/astar.inl.h"
+#include "../kit/astar.h"
 
 #define KIT_TEST_FILE astar
 #include "../kit/test.h"
 
+#include <stdio.h>
+
+enum {
+  WIDTH  = 8,
+  HEIGHT = 5,
+};
+
+i8 grid[WIDTH * HEIGHT] = {
+  0, 0, 0, 0, 0, 0, 0, 0, //
+  1, 1, 0, 1, 1, 0, 1, 0, //
+  1, 1, 0, 0, 1, 0, 1, 0, //
+  0, 0, 0, 1, 1, 1, 1, 0, //
+  1, 1, 0, 0, 0, 0, 0, 0, //
+};
+
+static astar_link_t neighbor(i64 a, i64 n) {
+  i64 x = a % WIDTH;
+  i64 y = a / WIDTH;
+
+  if (n == 0)
+    --x;
+  else if (n == 1)
+    ++x;
+  else if (n == 2)
+    --y;
+  else if (n == 3)
+    ++y;
+  else
+    return (astar_link_t) {
+      .stop = 1,
+    };
+
+  i64 m = (y * WIDTH) + x;
+
+  if (x < 0 || x >= WIDTH || y < 0 || y >= HEIGHT || m < 0 ||
+      m >= WIDTH * HEIGHT || grid[m] == 1)
+    return (astar_link_t) {
+      .stop = 0,
+      .skip = 1,
+    };
+
+  return (astar_link_t) {
+    .stop     = 0,
+    .skip     = 0,
+    .neighbor = m,
+    .distance = 1,
+  };
+}
+
+static i64 heuristic(i64 a, i64 b) {
+  i64 x0 = a % WIDTH;
+  i64 y0 = a / WIDTH;
+
+  i64 x1 = b % WIDTH;
+  i64 y1 = b / WIDTH;
+
+  i64 dx = x0 < x1 ? x1 - x0 : x0 - x1;
+  i64 dy = y0 < y1 ? y1 - y0 : y0 - y1;
+
+  return dx + dy;
+}
+
+#define ASTAR_TEMPLATE
+#define ASTAR_SUFFIX _test
+#define ASTAR_NEIGHBOR(a, n) neighbor(a, n)
+#define ASTAR_HEURISTIC(a, b) heuristic(a, b)
+#include "../kit/astar.h"
+
+static i64 xy(i64 x, i64 y) {
+  return y * WIDTH + x;
+}
+
 TEST("astar") {
-  //  TODO
-  //
+  astar_node_t buf[200];
+
+  astar_set_t sets[2] = {
+    { .capacity = 100, .size = 0, .values = buf },
+    { .capacity = 100, .size = 0, .values = buf + 100 },
+  };
+
+  astar_state_t state;
+  REQUIRE_EQ(astar_init(&state, sets[0], sets[1], xy(0, 0), xy(5, 2)),
+             KIT_OK);
+
+  s32 status = KIT_OK;
+
+  while (state.status == ASTAR_PROGRESS)
+    status |= astar_iteration_test(&state);
+
+  REQUIRE_EQ(status, KIT_OK);
+  REQUIRE_EQ(state.status, ASTAR_SUCCESS);
+
+  i64 path_size = 10;
+  i64 path[10];
+
+  REQUIRE_EQ(astar_path(&state, &path_size, path), KIT_OK);
+  REQUIRE_EQ(path_size, 8);
+
+  if (path_size == 8) {
+    REQUIRE_EQ(path[0], xy(0, 0));
+    REQUIRE_EQ(path[1], xy(1, 0));
+    REQUIRE_EQ(path[2], xy(2, 0));
+    REQUIRE_EQ(path[3], xy(3, 0));
+    REQUIRE_EQ(path[4], xy(4, 0));
+    REQUIRE_EQ(path[5], xy(5, 0));
+    REQUIRE_EQ(path[6], xy(5, 1));
+    REQUIRE_EQ(path[7], xy(5, 2));
+  }
 }
 
 #undef KIT_TEST_FILE
-- 
cgit v1.2.3