Feat: UI / UX

tests/forth/variables.rs

@@ -42,3 +42,28 @@ fn float_var() {
 fn increment_pattern() {
     expect_int(r#"0 !n @n 1 + !n @n 1 + !n @n"#, 2);
 }
+
+#[test]
+fn set_keep() {
+    expect_int(r#"42 ,x"#, 42);
+}
+
+#[test]
+fn set_keep_stores() {
+    let f = forth();
+    let ctx = default_ctx();
+    f.evaluate(r#"42 ,x"#, &ctx).unwrap();
+    f.clear_stack();
+    f.evaluate(r#"@x"#, &ctx).unwrap();
+    assert_eq!(stack_int(&f), 42);
+}
+
+#[test]
+fn set_keep_chain() {
+    let f = forth();
+    let ctx = default_ctx();
+    f.evaluate(r#"10 ,a ,b"#, &ctx).unwrap();
+    f.clear_stack();
+    f.evaluate(r#"@a @b +"#, &ctx).unwrap();
+    assert_eq!(stack_int(&f), 20);
+}