Source file `bogue.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
(** BOGUE *)
(** A GUI Library for Ocaml, using SDL2 *)

(* This is file bogue.ml *)

(** Vu Ngoc San, December 2013 -- now *)

module Avar = B_avar
module Bogue = B_main
module Box = B_box
module Button = B_button
module Chain = B_chain
module Check = B_check
module Draw = B_draw
module Empty = B_empty
module File = B_file
module Flow = B_flow
module I18n = B_i18n
module Image = B_image
module Label = B_label
module Layout = B_layout
module Long_list = B_long_list
module Main = B_main
module Menu = B_menu
module Mixer = B_mixer
module Mouse = B_mouse
module Popup = B_popup
module Print = B_print
module Radiolist = B_radiolist
module Sdl_area = B_sdl_area
module Select = B_select
module Selection = B_selection
module Slider = B_slider
module Snapshot = B_snapshot
module Space = B_space
module Style = B_style
module Sync = B_sync
module Table = B_table
module Tabs = B_tabs
module Text_display = B_text_display
module Text_input = B_text_input
module Theme = B_theme
module Time = B_time
module Timeout = B_timeout
module Trigger =  B_trigger
module Tvar = B_tvar
module Update = B_update
module Utf8 = B_utf8
module Utils = B_utils
module Var = B_var
module Widget = B_widget
module Window = B_window

let run_test test name =
  print_endline
    (Utils.xterm_blue ^ "* " ^ Utils.xterm_light_grey ^ name ^ Utils.xterm_nc);
  let t0 = Unix.gettimeofday () in
  test ();
  print_endline (Printf.sprintf "    [%s] successful in %f s"
                   name (Unix.gettimeofday () -. t0))


let run_tests () =

  begin let open Utils in
    run_test test_list_next_check "test_list_next_check";
    run_test test_list_prev "test_list_prev";
    run_test test_list_prev_check "test_list_prev_check";
  end;

  begin let open File in
    run_test Diff.test_diff "test_diff";
    run_test test_monitor "test_monitor";
    run_test Mime.test "Mime.test";
    run_test test_size_to_string "test_size_to_string";
    run_test test_find_index_sorted "test_find_index_sorted";
    run_test test_sorted_subarray_to_selection "test_sorted_subarray_to_selection"
  end;

  begin let open Layout in
    run_test Detect.test_almost_constant "test_almost_constant"
  end;

  begin let open Flow in
    run_test test "Flow.test"
  end;

  begin let open I18n in
    run_test test_gettext "I18n.test_gettext";
    run_test File.test "I18n.File.test"
  end;

  begin let open Utf8 in
    run_test test "Utf8.test";
    run_test test_perf "Utf8.test_perf";
    (* run_test test_perf_tmc "Utf8.test_perf_tmc" *)

    (* let fr = { language = "fr"; country = Some "FR" } in *)
    (* add_translation ~context="Text" fr "some test" "Un test"; *)
    (* save_locale fr  *)
  end