builder: Remove use of oUnit

Author: rwmjones

builder/Makefile.am

@@ -192,9 +192,6 @@ OCAMLPACKAGES_TESTS =
 if HAVE_OCAML_PKG_GETTEXT
 OCAMLPACKAGES += -package gettext-stub
 endif
-if HAVE_OCAML_PKG_OUNIT
-OCAMLPACKAGES_TESTS += -package ounit2
-endif
 
 OCAMLCLIBS = \
 	-pthread -lpthread \
@@ -358,17 +355,12 @@ TESTS = \
 	test-virt-builder-cacheall.sh \
 	test-virt-builder-list.sh \
 	test-virt-index-validate.sh \
-	$(SLOW_TESTS)
-check_PROGRAMS =
-
-TESTS += \
 	test-virt-builder-list-simplestreams.sh \
-	test-virt-builder.sh
-
-if HAVE_OCAML_PKG_OUNIT
-check_PROGRAMS += index_parser_tests
-TESTS += index_parser_tests
-endif
+	test-virt-builder.sh \
+	index_parser_tests \
+	$(SLOW_TESTS)
+check_PROGRAMS = \
+	index_parser_tests
 
 check-valgrind:
 	$(MAKE) VG="@VG@" check

builder/index_parser_tests.ml

@@ -1,5 +1,6 @@
 (* builder
  * Copyright (C) 2017 SUSE Inc.
+ * Copyright (C) 2025 Red Hat
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -20,8 +21,6 @@
 
 open Printf
 
-open OUnit2
-
 open Std_utils
 open Unix_utils
 open Tools_utils
@@ -68,14 +67,18 @@ let format_entries entries =
     read_file "out" in
   List.map format_entry entries
 
+let assert_equal ~printer a b =
+  if a <> b then
+    failwithf "FAIL: %s <> %s" (printer a) (printer b)
+
 let assert_equal_string = assert_equal ~printer:(fun x -> sprintf "\"%s\"" x)
 let assert_equal_list formatter =
   let printer = (
     fun x -> "(" ^ (String.escaped (String.concat "," (formatter x))) ^ ")"
   ) in
   assert_equal ~printer
 
-let test_write_complete ctx =
+let () =
   let entry =
     ("test-id", { Index.printable_name = Some "test_name";
            osinfo = Some "osinfo_data";
@@ -122,12 +125,3 @@ aliases=alias1 alias2
 
   let parsed_entries = parse_file "out" in
   assert_equal_list format_entries [entry] parsed_entries
-
-let suite =
-  "builder Index_parser" >:::
-    [
-      "write.complete" >:: test_write_complete;
-    ]
-
-let () =
-  run_test_tt_main suite