unikernel/duniverse/ocaml-crunch/test/t1_plain_ext.expected.ml

@@ -0,0 +1,27 @@
+(* Generated by: ocaml-crunch
+   Creation date: Thu, 1 Jan 1970 00:00:00 GMT *)
+
+module Internal = struct
+  let d_d3b07384d113edec49eaa6238ad5ff00 = "foo\n"
+
+  let file_chunks = function
+    | "a.ext" | "/a.ext" -> Some [ d_d3b07384d113edec49eaa6238ad5ff00; ]
+    | _ -> None
+
+  let file_list = [ "a.ext"; ]
+end
+
+let file_list = Internal.file_list
+
+let read name =
+  match Internal.file_chunks name with
+  | None -> None
+  | Some c -> Some (String.concat "" c)
+
+let hash = function
+  | "a.ext" | "/a.ext" -> Some "d3b07384d113edec49eaa6238ad5ff00"
+  | _ -> None
+
+let size = function
+  | "a.ext" | "/a.ext" -> Some 4
+  | _ -> None