diff options
Diffstat (limited to 'src/sexp/step.rs')
| -rw-r--r-- | src/sexp/step.rs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/sexp/step.rs b/src/sexp/step.rs index 59b201c..3168c5b 100644 --- a/src/sexp/step.rs +++ b/src/sexp/step.rs @@ -297,6 +297,14 @@ impl SExp { /// assert_eq!(exp, expshould); /// let exp = exp.and_then(|e| e.step()); /// assert_eq!(exp, Ok(Atom(True))); + /// + /// let exp = "case (coprod Bool (+ 1 2)) ((inl b) (if b 1 0)) ((inr x) (- x 1))"; + /// let exp = parse_to_ast(exp); + /// let exp = exp.and_then(|e| e.step()); + /// let expshould = parse_to_ast("case (coprod Bool 3) ((inl b) (if b 1 0)) ((inr x) (- x 1))"); + /// assert_eq!(exp, expshould); + /// let exp = exp.and_then(|e| e.step()); + /// assert_eq!(exp, Ok(scons(Sub, scons(3, scons(1, Nil))))); /// ``` /// /// Shadowing: |