File: test_list2.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 (17 lines) | stat: -rw-r--r-- 410 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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 = "Test_list2" >::: ["test_list_length2" >:: test_list_length;
			       "test_list_append2" >:: test_list_append]