forth: Have individual test for executing in the right order
We have an additional test later on of case-insensitivity, but let's
break out this execution order requirement to its own test.
Note that the case-insensitive user-defined word test is Rust-specific.
@@ -223,6 +223,15 @@ fn can_consist_of_built_in_words() {
assert_eq!(vec![1, 1, 1], f.stack());
}
+#[test]
+#[ignore]
+fn execute_in_the_right_order() {
+ let mut f = Forth::new();
+ assert!(f.eval(": countup 1 2 3 ;").is_ok());
+ assert!(f.eval("countup").is_ok());
+ assert_eq!(vec![1, 2, 3], f.stack());
+}
+
#[test]
#[ignore]
fn definitions_are_case_insensitive() {
