Infer scalar types with let generalization

test/test_main.ml

@@ -180,12 +180,6 @@ let parse_cases =
           (match parsed.Syntax.e with Syntax.EInt 7 -> true | _ -> false) );
   ]
 
-let root () = try Sys.getenv "DELTA_ROOT" with Not_found -> "."
-
-let fixture name = Filename.concat (root ()) (Filename.concat "test/fixtures" name)
-
-let read_fixture name = Native.read_file (fixture name)
-
 let program_error text =
   try
     ignore (Parse.program text);
@@ -379,5 +373,6 @@ let () =
   Test_harness.run_suite "parse" parse_cases;
   Test_harness.run_suite "program" program_cases;
   Test_harness.run_suite "resolve" resolve_cases;
+  Test_harness.run_suite "types" Test_type.cases;
   Printf.printf "%d cases, %d failures\n" (Test_harness.case_count ()) (Test_harness.failure_count ());
   exit (if Test_harness.failure_count () = 0 then 0 else 1)