Merge pull request #64 from FredTheDino/constants

constants

1 files changed, 22 insertions, 1 deletions

diff --git a/src/lib.rs b/src/lib.rs
index 862e9fa..22b6713 100644
--- a/src/lib.rs
+++ b/src/lib.rs
@@ -805,6 +805,16 @@ mod tests {
         assert_errs!(run_string("<!>\n", true, Vec::new()), [ErrorKind::Unreachable]);
     }
 
+    #[test]
+    fn assign_to_constant() {
+        assert_errs!(run_string("a :: 2\na = 2", true, Vec::new()), [ErrorKind::SyntaxError(_, _)]);
+    }
+
+    #[test]
+    fn assign_to_constant_upvalue() {
+        assert_errs!(run_string("a :: 2\nq :: fn { a = 2 }\n", true, Vec::new()), [ErrorKind::SyntaxError(_, _)]);
+    }
+
     macro_rules! test_multiple {
         ($mod:ident, $( $fn:ident : $prog:literal ),+ $( , )? ) => {
             mod $mod {
@@ -848,7 +858,7 @@ mod tests {
     test_multiple!(
         if_,
         compare_constants_equality: "if 1 == 2 {
-                                       <!>
+                                        <!>
                                      }",
         compare_constants_unequality: "if 1 != 1 {
                                          <!>
@@ -1060,6 +1070,17 @@ a.a <=> 0"
     );
 
     test_multiple!(
+        read_constants,
+        simple: "
+a :: 1
+a <=> 1
+b := 2
+{
+    a <=> 1
+}",
+    );
+
+    test_multiple!(
         assignment_op_regression,
         simple_add: "
 a := 0