File: test_list.ml

package info (click to toggle)
ounit 1.0.2-8
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 160 kB
  • ctags: 119
  • sloc: ml: 406; xml: 190; makefile: 92; sh: 17
file content (21 lines) | stat: -rw-r--r-- 448 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
open OUnit

let empty_list = []
let list_a = [1;2;3]

let test_list_length _ =
  assert_equal 1 (List.length empty_list);
  assert_equal 3 (List.length list_a)
    (* etc, etc *)

let test_list_append _ =
  let list_b = List.append empty_list [1;2;3] in
  assert_equal list_b list_a

let suite = "OUnit Example" >::: ["test_list_length" >:: test_list_length;
				  "test_list_append" >:: test_list_append]

(*
let _ =
  run_test_tt_main suite
  *)