jimtcl 0.3.0

Embed Jim Tcl in Rust.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

use jimtcl::{Interp, JimResult};

#[test]
fn test_eval_noresult() -> JimResult<()> {
    let interp = Interp::new()?;
    let rv = interp.eval("puts readme")?;
    assert_eq!(&rv.to_string(), "");
    Ok(())
}

#[test]
fn test_eval_simple() -> JimResult<()> {
    let interp = Interp::new()?;
    let rv = interp.eval("expr {1 + 2}")?;
    assert_eq!(&rv.to_string(), "3");
    Ok(())
}

#[test]
fn test_eval_expr() -> JimResult<()> {
    let interp = Interp::new()?;
    let res = interp.eval_expr("1 + 2")?;
    assert_eq!(i32::try_from(&res)?, 3);
    Ok(())
}

#[test]
fn test_get_var() -> JimResult<()> {
    let interp = Interp::new()?;
    interp.eval("set scroll {READ ME}")?;
    let val = interp.get_variable("scroll").unwrap();
    assert_eq!(val.as_str()?, "READ ME");
    Ok(())
}

#[test]
fn test_set_var() -> JimResult<()> {
    let interp = Interp::new()?;
    interp.set_variable("scroll", "HACKEM MUCHE")?;
    let val = interp.get_variable("scroll").unwrap();
    assert_eq!(val.as_str()?, "HACKEM MUCHE");
    let exp = interp.eval_expr("$scroll eq {HACKEM MUCHE}")?;
    assert!(bool::try_from(&exp)?);
    let exp = interp.eval_expr("$scroll eq {READ ME}")?;
    assert!(!bool::try_from(&exp)?);
    Ok(())
}