lean4-htt/tests/lean/run/opt1.lean
2017-03-09 18:41:19 -08:00

6 lines
430 B
Text

#eval options.get_string options.mk `opt1 "<empty>"
#eval options.get_string (options.set_string options.mk `opt1 "val1") `opt1 "<empty>"
#eval if (options.mk = options.mk) then bool.tt else bool.ff
#eval if (options.mk = (options.set_string options.mk `opt1 "val1")) then bool.tt else bool.ff
#eval options.get_nat (options.set_nat options.mk `opt1 10) `opt1 0
#eval options.get_nat (options.set_nat options.mk `opt1 10) `opt2 0