aboutsummaryrefslogtreecommitdiff
path: root/src/lib.rs
blob: d403fbc9341a58f9c3b879cdbbf1027999c6976f (plain)
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
#![allow(non_upper_case_globals)]
#![allow(non_camel_case_types)]
#![allow(non_snake_case)]

include!(concat!(env!("OUT_DIR"), "/bindings.rs"));

#[cfg(test)]
mod tests {
    use super::*;
    use std::ffi::{CStr, CString};

    #[test]
    fn two_plus_two() {
        unsafe {
            let interp = Tcl_CreateInterp();
            let init_status = Tcl_Init(interp);
            if init_status == TCL_ERROR as i32 {
                eprintln!(
                    "{}",
                    CStr::from_ptr(Tcl_GetStringResult(interp)).to_string_lossy()
                );
            }
            assert_eq!(init_status, TCL_OK as i32);
            let script = CString::new("expr 2 + 2").unwrap();
            let eval_status = Tcl_Eval(interp, script.as_ptr());
            assert_eq!(eval_status, TCL_OK as i32);
            let result = Tcl_GetObjResult(interp);
            let mut result_value = 0;
            let get_int_status = Tcl_GetIntFromObj(interp, result, &mut result_value);
            assert_eq!(get_int_status, TCL_OK as i32);
            assert_eq!(result_value, 4);

            Tcl_DeleteInterp(interp);
        }
    }
}