From 33d0d49d308ae994bd8133601502d3235962f391 Mon Sep 17 00:00:00 2001
From: greg <greg.shuflin@protonmail.com>
Date: Mon, 9 Oct 2017 12:26:25 -0700
Subject: [PATCH] Basic typing test

---
 src/schala_lang/type_check.rs | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/src/schala_lang/type_check.rs b/src/schala_lang/type_check.rs
index 964b0fa..36bc13d 100644
--- a/src/schala_lang/type_check.rs
+++ b/src/schala_lang/type_check.rs
@@ -192,3 +192,25 @@ impl TypeContext {
   }
 }
 
+#[cfg(test)]
+mod tests {
+  use super::{TypeContext, TypeVariable, UVar};
+  use super::TypeVariable::*;
+  use schala_lang::parsing::{parse, tokenize};
+
+  macro_rules! type_test {
+    ($input:expr, $correct:expr) => {
+      {
+      let mut tc = TypeContext::new();
+      let ast = parse(tokenize($input)).0.unwrap() ;
+      assert_eq!($correct, tc.type_check(&ast).unwrap())
+      }
+    }
+  }
+
+  #[test]
+  fn basic_inference() {
+    type_test!("30", Univ(UVar::Integer))
+  }
+}
+