File: test_list2.ml

package info (click to toggle)
ounit 1.0.3-5
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 184 kB
  • ctags: 139
  • sloc: ml: 607; xml: 190; makefile: 88
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]