Add failing example of the #use directive

craigfe · Aug 27, 2020 · 26cfd0e · 26cfd0e
1 parent e3183c4
commit 26cfd0e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/test/imported.cinaps b/test/imported.cinaps
@@ -0,0 +1,3 @@
+(* -*- mode: tuareg -*- *)
+
+let to_print = [ "from"; "included.cinaps" ]
diff --git a/test/test_staged.ml b/test/test_staged.ml
@@ -13,6 +13,11 @@ let foo_string = foo_string
 (*$*)
 
 
+(*$ #use "imported.cinaps";;
+    let () = List.iter to_print ~f:printf
+*)
+(*$*)
+
 (*$ let blah () = printf "42"
     let foo  () = printf "1"
     let bar  () = printf "2" $*)