unikernel/duniverse/ppxlib/test/driver/stdin_input/dune

@@ -0,0 +1,7 @@
+(executable
+ (name identity_driver)
+ (libraries ppxlib))
+
+(cram
+ (package ppxlib)
+ (deps identity_driver.exe))

unikernel/duniverse/ppxlib/test/driver/stdin_input/identity_driver.ml

@@ -0,0 +1 @@
+let () = Ppxlib.Driver.standalone ()

unikernel/duniverse/ppxlib/test/driver/stdin_input/test.t/run.t

@@ -0,0 +1,20 @@
+The driver can read from stdin.
+
+It works with sources...
+
+  $ ../identity_driver.exe -impl - << EOF
+  > let a = 1
+  > EOF
+  let a = 1
+
+... but it should also work with binary ASTs.
+We generate a binary AST file...
+
+  $ ../identity_driver.exe --dump-ast -o binary_ast -impl - << EOF
+  > let b = 2
+  > EOF
+
+... and ensure the driver can also read it from stdin
+
+  $ cat binary_ast | ../identity_driver.exe -impl -
+  let b = 2