Check-in [628ec5502b]
Overview
Comment:Added test for external files
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 628ec5502b70f9ba0ffb276c6086b617159e9aa8
User & Date: rkeene on 2014-06-23 02:31:31
Other Links: manifest | tags
Context
2014-06-23
02:44
Updated to perform some tests only if we are not cross-compiling check-in: 0e86072bec user: rkeene tags: trunk
02:31
Added test for external files check-in: 628ec5502b user: rkeene tags: trunk
02:27
Updated to include prototype for function that initializes Tcl procedures if they are used check-in: f67ebac03e user: rkeene tags: trunk
Changes

Modified test.tcl from [a8f8d47ec7] to [589ff7a7d3].

    92     92   set handle [tcc4tcl::new]
    93     93   $handle cproc wideTest {Tcl_WideInt x} Tcl_WideInt {
    94     94   	return(x);
    95     95   }
    96     96   $handle go
    97     97   puts [wideTest 30]
    98     98   
           99  +# Produce a loadable object
          100  +set tmpfile "/tmp/DELETEME_tcc4tcl_test_exec[expr rand()].so"
          101  +file delete $tmpfile
          102  +set handle [tcc4tcl::new $tmpfile "myPkg 0.1"]
          103  +$handle cproc ext_add {int a int b} long { return(a+b); }
          104  +$handle add_library_path /usr/lib64
          105  +$handle add_library_path /usr/lib
          106  +$handle add_library tclstub8.5
          107  +$handle go
          108  +load $tmpfile myPkg
          109  +puts [ext_add 1 42]
          110  +file delete $tmpfile