aboutsummaryrefslogtreecommitdiff
path: root/src/lib.rs
blob: e3c7e47f9be98c32e7827d0799db81f47ea3b2c6 (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
#![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::CString;

    #[test]
    fn two_plus_two() {
        unsafe {
            let interp = Tcl_CreateInterp();
            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);
        }
    }
}