diff options
| author | Joel Kronqvist <joel.kronqvist@iki.fi> | 2025-08-19 13:55:05 +0300 |
|---|---|---|
| committer | Joel Kronqvist <joel.kronqvist@iki.fi> | 2025-08-19 13:55:05 +0300 |
| commit | a70dcaa949f41c585f9aea5e79f2550053d8e857 (patch) | |
| tree | 9366f0b1e026c009708ebc243d006a79cbf452c9 /src/sexp/step.rs | |
| parent | d4d6e972650370d529363f7db3946e58bdbd7bca (diff) | |
| download | myslip-a70dcaa949f41c585f9aea5e79f2550053d8e857.tar.gz myslip-a70dcaa949f41c585f9aea5e79f2550053d8e857.zip | |
test: added boilerplate and tests for coproduct parsing, type checking and evaluation
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: |