Split out tests into its own file

Also adjust the build system to do some more (cleaning, building,
testing, running).

1 files changed, 1 insertions, 167 deletions

diff --git a/main.c b/main.c
index 32d4d1a..f7f290f 100644
--- a/main.c
+++ b/main.c
@@ -18,174 +18,8 @@
 
 #include "./alisp.h"
 
-sv_t sv_copy(sv_t old)
-{
-  char *newstr = calloc(1, (old.size + 1) * sizeof(*newstr));
-  memcpy(newstr, old.data, old.size);
-  newstr[old.size] = '\0';
-  return SV(newstr, old.size);
-}
-
-char *words[] = {
-    "aliquam",      "erat",      "volutpat",  "nunc",      "eleifend",
-    "leo",          "vitae",     "magna",     "in",        "id",
-    "erat",         "non",       "orci",      "commodo",   "lobortis",
-    "proin",        "neque",     "massa",     "cursus",    "ut",
-    "gravida",      "ut",        "lobortis",  "eget",      "lacus",
-    "sed",          "diam",      "praesent",  "fermentum", "tempor",
-    "tellus",       "nullam",    "tempus",    "mauris",    "ac",
-    "felis",        "vel",       "velit",     "tristique", "imperdiet",
-    "donec",        "at",        "pede",      "etiam",     "vel",
-    "neque",        "nec",       "dui",       "dignissim", "bibendum",
-    "vivamus",      "id",        "enim",      "phasellus", "neque",
-    "orci",         "porta",     "a",         "aliquet",   "quis",
-    "semper",       "a",         "massa",     "phasellus", "purus",
-    "pellentesque", "tristique", "imperdiet", "tortor",    "nam",
-    "euismod",      "tellus",    "id",        "erat",
-};
-
-char text[] =
-    "Pellentesque dapibus suscipit ligula.  Donec posuere augue in quam.  "
-    "Etiam vel tortor sodales tellus ultricies commodo.  Suspendisse potenti.  "
-    "Aenean in sem ac leo mollis blandit.  Donec neque quam, dignissim in, "
-    "mollis nec, sagittis eu, wisi.  Phasellus lacus.  Etiam laoreet quam sed "
-    "arcu.  Phasellus at dui in ligula mollis ultricies.  Integer placerat "
-    "tristique nisl.  Praesent augue.  Fusce commodo.  Vestibulum convallis, "
-    "lorem a tempus semper, dui dui euismod elit, vitae placerat urna tortor "
-    "vitae lacus.  Nullam libero mauris, consequat quis, varius et, dictum id, "
-    "arcu.  Mauris mollis tincidunt felis.  Aliquam feugiat tellus ut neque.  "
-    "Nulla facilisis, risus a rhoncus fermentum, tellus tellus lacinia purus, "
-    "et dictum nunc justo sit amet elit.";
-
-void symtable_test(void)
-{
-  sym_table_t table = {0};
-  sym_table_init(&table);
-  for (u64 i = 0; i < ARRSIZE(words); ++i)
-  {
-    char *ptr = sym_table_find(&table, SV(words[i], strlen(words[i])));
-    printf("[symtable_test]: %s => %p\n", words[i], ptr);
-  }
-
-  printf(
-      "[symtable_test]: |words|=%lu, |table|= %lu => Unique word ratio: %lf\n",
-      ARRSIZE(words), table.count, table.count / (double)ARRSIZE(words));
-
-  sym_table_cleanup(&table);
-}
-
-void make_int_test(void)
-{
-  i64 ints[] = {
-      1,       -1,      (1 << 10) - 1, (-1) * ((1 << 10) - 1),
-      INT_MIN, INT_MAX, INT64_MAX,     INT64_MIN,
-  };
-
-  for (u64 i = 0; i < ARRSIZE(ints); ++i)
-  {
-    i64 in       = ints[i];
-    lisp_t *lisp = make_int(in);
-    i64 out      = as_int(lisp);
-
-    printf("[make_int_test]: %#16lx => %#16lx => %#16lx\n", in, (u64)lisp, out);
-  }
-}
-
-void intern_test(void)
-{
-  sys_t system = {0};
-  sys_init(&system);
-  for (u64 i = 0; i < ARRSIZE(words); ++i)
-  {
-    char *in     = words[i];
-    lisp_t *lisp = intern(&system, SV(in, strlen(in)));
-    char *out    = as_sym(lisp);
-    printf("[intern test]: `%s` -> %p -> `%s`\n", in, lisp, out);
-  }
-  sys_cleanup(&system);
-}
-
-void make_vec_test(void)
-{
-  sys_t system = {0};
-  sys_init(&system);
-
-  // Generating a vector word by word
-  lisp_t *vec = make_vec(&system, 0);
-  for (u64 i = 0; i < ARRSIZE(words); ++i)
-  {
-    char *word = words[i];
-    vec_append(as_vec(vec), word, strlen(word));
-    vec_append(as_vec(vec), " ", 1);
-  }
-  printf("[make_vec_test]: %lu/%lu, inlined?: %s, text=%.*s\n",
-         as_vec(vec)->size, as_vec(vec)->capacity,
-         as_vec(vec)->is_inlined ? "yes" : "no", (int)as_vec(vec)->size,
-         vec_data(as_vec(vec)));
-
-  // Generating substrings
-  struct Test
-  {
-    u64 start, size;
-  } tests[] = {
-      {0, 16},
-      {0, 32},
-      {32, 64},
-      {0, ARRSIZE(text)},
-  };
-  for (u64 i = 0; i < ARRSIZE(tests); ++i)
-  {
-    struct Test test = tests[i];
-    // Always initialise below what we expect
-    lisp_t *lvec = make_vec(&system, test.size / 2);
-    vec_t *vec   = as_vec(lvec);
-    printf("[make_vec_test]: %p -> %p[%lu/%lu] -> ", lvec, vec, vec->size,
-           vec->capacity);
-    vec_append(vec, text + test.start, test.size);
-    printf("[%lu/%lu] -> ", vec->size, vec->capacity);
-    printf("`%.*s`\n", (int)vec->size, (char *)vec_data(vec));
-  }
-
-  sys_cleanup(&system);
-}
-
-void cons_test(void)
-{
-  sys_t system = {0};
-  sys_init(&system);
-
-  // Iterate through each "word" in words, make a large contiguous list which is
-  // its reverse
-  lisp_t *lisp = NIL;
-  for (u64 i = 0; i < ARRSIZE(words); ++i)
-  {
-    char *word    = words[i];
-    lisp_t *lword = intern(&system, SV(word, strlen(word)));
-    lisp          = cons(&system, lword, lisp);
-  }
-
-  // Then iterate through it
-  printf("[cons_test]: ");
-  for (lisp_t *iter = lisp; iter; iter = cdr(iter))
-  {
-    lisp_t *item = car(iter);
-    printf("%s ", as_sym(item));
-  }
-  printf("\n");
-
-  sys_cleanup(&system);
-}
-
 int main(void)
 {
-  symtable_test();
-  printf("\n");
-  make_int_test();
-  printf("\n");
-  intern_test();
-  printf("\n");
-  make_vec_test();
-  printf("\n");
-  cons_test();
+  puts("Watch this space\n");
   return 0;
 }