lean4-htt/old_tests/tests/lean/run/io_process_env.lean
2018-04-10 12:56:55 -07:00

6 lines
177 B
Text

import system.io
#eval do
res ← io.cmd {cmd := "printenv", args := ["foo"], env := [("foo", "bar")]},
when (res ≠ "bar\n") $ io.fail $ "unexpected value for foo: " ++ res