rust-tcl 0.3.0

Tcl bindings for Rust
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

extern crate rust_tcl_sys as ll;

use std::ptr;

#[test]
fn refcounting() {
    unsafe {
        ll::Tcl_FindExecutable(ptr::null());
        let obj = ll::Tcl_NewObj();
        assert_eq!(false, ll::Tcl_IsShared(obj) == 1);
        ll::Tcl_IncrRefCount(obj);
        assert_eq!(false, ll::Tcl_IsShared(obj) == 1);
        ll::Tcl_IncrRefCount(obj);
        assert_eq!(true, ll::Tcl_IsShared(obj) == 1);
        ll::Tcl_DecrRefCount(obj);
        assert_eq!(false, ll::Tcl_IsShared(obj) == 1);
        ll::Tcl_DecrRefCount(obj);
    }
}