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);
}
}
}
|