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