API: Fs.readFileSync

src/Fs.re

@@ -0,0 +1,17 @@
+/* Fs.re */
+
+let readFileSync = (path) => {
+    let chan = open_in_bin(path);
+    let data = ref("");
+    try ({
+        while (true) {
+            data := data ++ "\n" ++ input_line(chan);
+        } 
+        data;
+    }) {
+    | End_of_file => {
+        close_in(chan);
+        data;
+    }
+    }:
+};

src/Fs.rei

@@ -0,0 +1,3 @@
+/* Fs.re */
+
+let readFileSync: (path: string) => string;

test/Rench_Test/FsTest.re

@@ -0,0 +1,9 @@
+open TestFramework;
+
+module Event = Rench.Event;
+
+describe("Fs", ({test, _}) => {
+  test("readFileSync", ({expect}) => {
+      expect.int(0).toBe(1);
+  });
+});

test/bin/TestFile.txt

@@ -0,0 +1,2 @@
+Line 1: A
+Line 2: B

test/bin/dune

@@ -3,3 +3,8 @@
     (public_name TestRunner.exe)
     (libraries Rench_Test)
     (package Rench_Test))
+
+(install
+    (section bin)
+    (package Rench_Test)
+    (files TestFile.txt))