Source

ocaml-core / base / core / lib_test / test.ml

open OUnit

let unused_test = Timer_test.test

let rec flatten_list acc = function
  | [] -> acc
  | (TestCase _ as r)::rest -> flatten_list (r::acc) rest
  | (TestList l)::rest ->
    let acc = flatten_list acc l in
    flatten_list acc rest
  | (TestLabel (lbl,test))::rest ->
    flatten_list
      (TestLabel (lbl,flatten test)::acc)
      rest
and flatten = function
  | TestCase _ as res  -> res
  | TestLabel (s,test) -> TestLabel (s,flatten test)
  | TestList l -> TestList (List.rev (flatten_list [] l))

let all () =
  flatten
    (TestList
       [
         Core.Inline_tests.tests ();
         Avltree_test.test;
         Bag_test.test;
         Bigbuffer_test.test;
         Bigstring_test.test;
         Binary_packing_test.test;
         Blang_test.test;
         Common_test.test;
         Comparable_test.test;
         Condition_test.test;
         Crc_test.test;
         Doubly_linked_test.test;
         Float_test.test;
         Fqueue_test.test;
         Hashtbl_test.test;
         Hash_queue_test.test;
         Heap_test.test;
         Interval_test.test;
         Int_conversions_test.test;
         Hash_heap_test.test;
         Core_int_test.test;
         Core_array_test.test;
         Core_filename_test.test;
         Core_map_test.test;
         Core_set_test.test;
         Core_queue_test.test;
         Core_string_test.test;
         Core_mutex_test.test;
         PMap_test.test;
         PSet_test.test;
         Time_test.test;
         Zone_test.test;
         Int_set_test.test;
         Core_float_test.test;
         Core_unix_test.test;
       ])
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.