guartcl 0.3.0-beta1

Enhanced Jim Tcl.
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
48
49
50

use guartcl::guardian_interp;
use jimtcl::JimResult;

#[test]
fn parse_json_null() -> JimResult<()> {
    let interp = guardian_interp()?;
    let val = interp.eval("parse json {null}")?;
    assert!(val.is_empty());
    Ok(())
}

#[test]
fn parse_json_numlist() -> JimResult<()> {
    let interp = guardian_interp()?;
    let val = interp.eval("parse json {[5, 2, 4]}")?;
    assert_eq!(val.list_length(), 3);
    let items = Vec::<u32>::try_from(&val)?;
    assert_eq!(&items, &[5, 2, 4]);
    Ok(())
}

#[test]
fn parse_toml() -> JimResult<()> {
    let interp = guardian_interp()?;
    interp.set_variable("toml", include_str!("test.toml"))?;
    let val = interp.eval("parse toml $toml")?;
    println!("Parsed TOML: {}", val);
    assert_eq!(val.dict_size()?, 2);

    let scrolls = val.dict_get("scrolls")?.unwrap();
    assert_eq!(scrolls.list_length(), 1);
    let scroll = scrolls.list_index(0)?;
    assert_eq!(scroll.dict_get("label")?.unwrap().as_str()?, "HACKEM MUCHE");
    Ok(())
}

#[test]
fn parse_yaml() -> JimResult<()> {
    let interp = guardian_interp()?;
    interp.set_variable("yaml", include_str!("test.yaml"))?;
    let val = interp.eval("parse yaml $yaml")?;
    println!("Parsed yaml: {}", val);
    assert_eq!(val.dict_size()?, 2);

    let scrolls = val.dict_get("scrolls")?.unwrap();
    assert_eq!(scrolls.list_length(), 1);
    let scroll = scrolls.list_index(0)?;
    assert_eq!(scroll.dict_get("label")?.unwrap().as_str()?, "HACKEM MUCHE");
    Ok(())
}