Examples/test-suite/tcl/primitive_types_runme.tcl

   1
   2 if [ catch { load ./primitive_types[info sharedlibextension] primitive_types} err_msg ] {
   3         puts stderr "Could not load shared object:\n$err_msg"
   4 }
   5
   6
   7 if {[val_int 10] != 10 }  { error "bad int map"  }
   8 if {[val_schar 10] != 10 } { error "bad char map" }
   9 if {[val_short 10] != 10 } { error "bad schar map" }
  10
  11
  12 if [catch { val_schar 10000 } ] {} else { error "bad schar map" }
  13 if [catch { val_uint  -100 } ]  {} else { error "bad uint map"  }
  14 if [catch { val_uchar -100 } ]  {} else { error "bad uchar map" }
  15
  16 if {[val_uint 10] != 10 }  { error "bad uint map"  }
  17 if {[val_uchar 10] != 10 } { error "bad uchar map" }
  18 if {[val_ushort 10] != 10 } { error "bad ushort map" }
  19
  20
  21 if {[val_double 10] != 10 } { error "bad double map" }
  22 if {[val_float 10] != 10 } { error "bad double map" }
  23
  24
  25
  26 if [catch { val_float hello } ] {} else { error "bad double map" }
  27
  28 if {[val_char c] != "c" } { error "bad char map" }
  29 if {[val_char "c"] != "c" } { error "bad char map" }
  30 if {[val_char 101] != "e" } { error "bad char map" }
  31
  32
  33