diff options
author | Marcelo Matus <mmatus@acms.arizona.edu> | 2005-10-24 14:59:05 +0000 |
---|---|---|
committer | Marcelo Matus <mmatus@acms.arizona.edu> | 2005-10-24 14:59:05 +0000 |
commit | 3c65cea431715a5942e729c510f3e02ac5c35e61 (patch) | |
tree | be33a88ec23740caf9c1b010ec268a0472868247 /Examples/test-suite/tcl | |
parent | 733d3388620de44c41d80d376eb9bf4cc955fee4 (diff) | |
download | swig-3c65cea431715a5942e729c510f3e02ac5c35e61.tar.gz |
Perl added to the Unified typemap library, cleaner way to use the library, and 'normalized' macro names
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7707 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Examples/test-suite/tcl')
-rw-r--r-- | Examples/test-suite/tcl/Makefile.in | 7 | ||||
-rw-r--r-- | Examples/test-suite/tcl/primitive_types_runme.tcl | 12 |
2 files changed, 19 insertions, 0 deletions
diff --git a/Examples/test-suite/tcl/Makefile.in b/Examples/test-suite/tcl/Makefile.in index 37f65f164..52761e955 100644 --- a/Examples/test-suite/tcl/Makefile.in +++ b/Examples/test-suite/tcl/Makefile.in @@ -11,6 +11,13 @@ top_builddir = @top_builddir@ CPP_TEST_CASES += \ primitive_types \ + li_cstring \ + li_cwstring \ + li_std_wstring + +C_TEST_CASES += \ + li_cstring \ + li_cwstring include $(srcdir)/../common.mk diff --git a/Examples/test-suite/tcl/primitive_types_runme.tcl b/Examples/test-suite/tcl/primitive_types_runme.tcl index f10e1b0cb..fa4c46ba5 100644 --- a/Examples/test-suite/tcl/primitive_types_runme.tcl +++ b/Examples/test-suite/tcl/primitive_types_runme.tcl @@ -18,4 +18,16 @@ if {[val_uchar 10] != 10 } { error "bad uchar map" } if {[val_ushort 10] != 10 } { error "bad ushort map" } +if {[val_double 10] != 10 } { error "bad double map" } +if {[val_float 10] != 10 } { error "bad double map" } + + + +if [catch { val_float hello } ] {} else { error "bad double map" } + +if {[val_char c] != "c" } { error "bad char map" } +if {[val_char "c"] != "c" } { error "bad char map" } +if {[val_char 101] != "e" } { error "bad char map" } + + |