From 5f94836f4d1adca31c502706831b9ac600c3f41f Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 12 Feb 2018 15:22:56 +0100 Subject: Update licence, add opam script --- tests/tools_test.ml | 50 ++++++++++++++------------------------------------ 1 file changed, 14 insertions(+), 36 deletions(-) (limited to 'tests/tools_test.ml') diff --git a/tests/tools_test.ml b/tests/tools_test.ml index 74a3acd..4f48382 100755 --- a/tests/tools_test.ml +++ b/tests/tools_test.ml @@ -1,42 +1,21 @@ -open OUnit2 - -module TestList = struct - - let test_linearize ctx = begin - let input = [ - ['1'; '2'; '3']; - ['A'; 'B']; - ['W'; 'X'; 'Y'; 'Z']; - ['O']; - ] in - - let expected = [ - '1'; 'A'; 'W'; 'O'; 'X'; 'B'; '2'; '3'; 'Y'; 'Z' - ] in - - let result = Tools.List.linearize input in - - let to_string elems = begin - let result_buffer = Buffer.create 16 in - List.iter (Buffer.add_char result_buffer) elems; - Buffer.contents result_buffer - end in - - - assert_equal - ~msg:(Printf.sprintf "Expected %s but got %s" (to_string expected) (to_string result) ) - expected - result - +(* +This file is part of licht. - end +licht is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation, either version 3 of the License, or +(at your option) any later version. - let tests = "list_test">::: [ +licht is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. - "test_list_linearize" >:: test_linearize; - ] +You should have received a copy of the GNU General Public License +along with licht. If not, see . +*) -end +open OUnit2 module TestString = struct @@ -231,7 +210,6 @@ end let tests = "tools_test">::: [ TestString.tests; - TestList.tests; "test_get_julian_day" >:: TestDate.test_get_julian_day; "test_from_julian_day" >:: TestDate.test_from_julian_day; -- cgit v1.2.3