From c6a84931c7489d72112ac13b7e597c3a456ef770 Mon Sep 17 00:00:00 2001 From: Melody Horn Date: Fri, 14 May 2021 21:04:01 -0600 Subject: test Tcl_Init which fails due to no stdlib --- src/lib.rs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/lib.rs b/src/lib.rs index e3c7e47..d403fbc 100644 --- a/src/lib.rs +++ b/src/lib.rs @@ -7,12 +7,20 @@ include!(concat!(env!("OUT_DIR"), "/bindings.rs")); #[cfg(test)] mod tests { use super::*; - use std::ffi::CString; + 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); -- cgit v1.2.3