test Tcl_Init which fails due to no stdlib

1 files changed, 9 insertions, 1 deletions

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