40 lines
781 B
Rust
40 lines
781 B
Rust
use super::harness::*;
|
|
|
|
#[test]
|
|
fn set_get() {
|
|
expect_int(r#"42 "x" set "x" get"#, 42);
|
|
}
|
|
|
|
#[test]
|
|
fn get_nonexistent() {
|
|
expect_int(r#""novar" get"#, 0);
|
|
}
|
|
|
|
#[test]
|
|
fn persistence_across_evals() {
|
|
let f = forth();
|
|
let ctx = default_ctx();
|
|
f.evaluate(r#"10 "counter" set"#, &ctx).unwrap();
|
|
f.clear_stack();
|
|
f.evaluate(r#""counter" get 1 +"#, &ctx).unwrap();
|
|
assert_eq!(stack_int(&f), 11);
|
|
}
|
|
|
|
#[test]
|
|
fn overwrite() {
|
|
expect_int(r#"1 "x" set 99 "x" set "x" get"#, 99);
|
|
}
|
|
|
|
#[test]
|
|
fn multiple_vars() {
|
|
let f = run(r#"10 "a" set 20 "b" set "a" get "b" get +"#);
|
|
assert_eq!(stack_int(&f), 30);
|
|
}
|
|
|
|
#[test]
|
|
fn float_var() {
|
|
let f = run(r#"3.14 "pi" set "pi" get"#);
|
|
let val = stack_float(&f);
|
|
assert!((val - 3.14).abs() < 1e-9);
|
|
}
|