Peter Szilagyi avatar Peter Szilagyi committed 3befdd5 Merge

auto merge

Comments (0)

Files changed (5)

-
 Subdirs ()
-
-OS=$(shell uname)
+
+OCAML_LIBRARIES[] =
+  async
+  core
+  core_extended
+  pcre
+  oUnit
+
+EXES[] =
+  doit
+
+FILES[] =
+  doit
+  example
+
+OCamlMakePPDeps($(PA_JANE), $(FILES))
+OCamlMakeProjDefaults($(addsuffixes .exe, $(EXES)))
+
+#ExtractOunitTests($(FILES))
+
+(* #directory "/Users/seanmcl/.opam/4.00.0/lib/toplevel";; *)
+(* #directory "/Users/seanmcl/.opam/4.00.0/lib/stublibs";; *)
+
+(* #use "topfind";; *)
+(* #camlp4o;; *)
+(* #thread;; *)
+(* #require "pcre";; *)
+(* #require "core";; *)
+(* #require "core_extended";; *)
+
+open Core.Std
+
+module E = Example
+
+TEST_MODULE = struct
+
+    TEST = false
+
+end
+
+
+let _ = printf "Hello, world!\n"
+
+
+
+open Core.Std
+
+module type S = sig
+  type t
+  val zero : t
+  val succ : t -> t
+end
+
+module type Cnt = sig
+  type t
+  val _incr : unit -> t
+end
+
+module Cnt(V:S) : Cnt with type t = V.t = struct
+  type t = V.t
+  let p = ref V.zero
+
+  let _incr () =
+    p := V.succ !p;
+    !p
+
+  TEST  = (V.succ V.zero > V.zero);;
+end
+
+TEST_MODULE = Cnt(Int)
+
+TEST_MODULE = struct
+  open List
+
+  TEST = (group [] ~break:(fun _ -> assert false)) = []
+
+  let mis = ['M';'i';'s';'s';'i';'s';'s';'i';'p';'p';'i']
+  let equal_letters =
+    [['M'];['i'];['s';'s'];['i'];['s';'s'];['i'];['p';'p'];['i']]
+  let single_letters =
+    [['M';'i';'s';'s';'i';'s';'s';'i';'p';'p';'i']]
+  let every_three =
+    [['M'; 'i'; 's']; ['s'; 'i'; 's']; ['s'; 'i'; 'p']; ['p'; 'i' ]]
+
+  TEST = (group ~break:(<>) mis) = equal_letters
+  TEST = (group ~break:(fun _ _ -> false) mis) = single_letters
+  TEST = (groupi ~break:(fun i _ _ -> i mod 3 = 0) mis) = every_three
+
+end

test/test.ml

-
-(* #directory "/Users/seanmcl/.opam/4.00.0/lib/toplevel";; *)
-(* #directory "/Users/seanmcl/.opam/4.00.0/lib/stublibs";; *)
-
-(* #use "topfind";; *)
-(* #camlp4o;; *)
-(* #thread;; *)
-(* #require "pcre";; *)
-(* #require "core";; *)
-(* #require "core_extended";; *)
-
-(* open Core.Std *)
-
-let _ = Printf.printf "Hello, world!\n"
-;;
-
-exit 0
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.