diff options
Diffstat (limited to 'Examples/test-suite/tcl/overload_copy_runme.tcl')
| -rw-r--r-- | Examples/test-suite/tcl/overload_copy_runme.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/Examples/test-suite/tcl/overload_copy_runme.tcl b/Examples/test-suite/tcl/overload_copy_runme.tcl new file mode 100644 index 0000000..46d7058 --- /dev/null +++ b/Examples/test-suite/tcl/overload_copy_runme.tcl @@ -0,0 +1,12 @@ + +if [ catch { load ./overload_copy[info sharedlibextension] overload_copy} err_msg ] { + puts stderr "Could not load shared object:\n$err_msg" +} + +Foo f +Foo g [f cget -this] + + + + + |