-/* destroy test suite */
-static void xbt_test_suite_free(void *s)
-{
- xbt_test_suite_t suite = *(xbt_test_suite_t *) s;
-
- if (suite == NULL)
- return;
- xbt_dynar_free(&suite->units);
- free(suite->title);
- free(suite);
-}
-
-static void xbt_test_unit_free(void *unit)
-{
- xbt_test_unit_t u = *(xbt_test_unit_t *) unit;
- /* name is static */
- free(u->title);
- xbt_dynar_free(&u->tests);
- free(u);
-}
-
-static void xbt_test_test_free(void *test)
-{
- xbt_test_test_t t = *(xbt_test_test_t *) test;
- free(t->title);
- xbt_dynar_free(&(t->logs));
- free(t);
-}
-
-static void xbt_test_log_free(void *log)
-{
- xbt_test_log_t l = *(xbt_test_log_t *) log;
- free(l->text);
- free(l);
-}
-
-/** @brief create test suite */
-xbt_test_suite_t xbt_test_suite_new(const char *name, const char *fmt, ...)
-{
- xbt_test_suite_t suite = xbt_new0(struct s_xbt_test_suite, 1);
- va_list ap;
-
- if (!_xbt_test_suites)
- _xbt_test_suites = xbt_dynar_new(sizeof(xbt_test_suite_t), xbt_test_suite_free);
-
- va_start(ap, fmt);
- suite->title = bvprintf(fmt, ap);
- suite->units = xbt_dynar_new(sizeof(xbt_test_unit_t), &xbt_test_unit_free);
- va_end(ap);
- suite->name = name;
- suite->enabled = 1;
-
- xbt_dynar_push(_xbt_test_suites, &suite);
-
- return suite;
-}
-