Cleaning language

tests/forth/harness.rs

@@ -88,6 +88,10 @@ pub fn expect_int(script: &str, expected: i64) {
     expect_stack(script, &[Value::Int(expected, None)]);
 }
 
+pub fn expect_str(script: &str, expected: &str) {
+    expect_stack(script, &[Value::Str(expected.to_string(), None)]);
+}
+
 pub fn expect_float(script: &str, expected: f64) {
     let f = run(script);
     let stack = f.stack();