From c6a84931c7489d72112ac13b7e597c3a456ef770 Mon Sep 17 00:00:00 2001
From: Melody Horn <melody@boringcactus.com>
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