aboutsummaryrefslogtreecommitdiff
path: root/src/sexp/case.rs
diff options
context:
space:
mode:
authorJoel Kronqvist <joel.kronqvist@iki.fi>2025-08-19 13:55:05 +0300
committerJoel Kronqvist <joel.kronqvist@iki.fi>2025-08-19 13:55:05 +0300
commita70dcaa949f41c585f9aea5e79f2550053d8e857 (patch)
tree9366f0b1e026c009708ebc243d006a79cbf452c9 /src/sexp/case.rs
parentd4d6e972650370d529363f7db3946e58bdbd7bca (diff)
downloadmyslip-a70dcaa949f41c585f9aea5e79f2550053d8e857.tar.gz
myslip-a70dcaa949f41c585f9aea5e79f2550053d8e857.zip
test: added boilerplate and tests for coproduct parsing, type checking and evaluation
Diffstat (limited to 'src/sexp/case.rs')
-rw-r--r--src/sexp/case.rs12
1 files changed, 12 insertions, 0 deletions
diff --git a/src/sexp/case.rs b/src/sexp/case.rs
index 4c2c7ba..cc643f3 100644
--- a/src/sexp/case.rs
+++ b/src/sexp/case.rs
@@ -52,6 +52,18 @@ impl SExp {
* ])
* );
* ```
+ *
+ * Coproducts must be handled individually:
+ * ```rust
+ * use myslip::r#type::Type::*;
+ * use myslip::sexp::{SExp::*, SLeaf::*, util::*};
+ *
+ * assert_eq!(
+ * scons(Coprod, scons(Ty(Boolean), scons(2, Nil)))
+ * .matches_pat(&scons(Inr, scons(var("x"), Nil))),
+ * Some(vec![(Var("x".to_string()), Atom(Int(2)))])
+ * );
+ * ```
*/
pub fn matches_pat(&self, pat: &SExp) -> Option<Vec<(SLeaf, SExp)>> {
match (self, pat) {