home *** CD-ROM | disk | FTP | other *** search
/ Serving the Web / ServingTheWeb1995.disc1of1.iso / linux / slacksrce / tcl / tcl+tk+t / tcl7.3l1 / tcl7 / tcl7.3 / tests / misc.test < prev    next >
Encoding:
Text File  |  1993-10-07  |  2.9 KB  |  85 lines
  1. # Commands covered:  various
  2. #
  3. # This file contains a collection of miscellaneous Tcl tests that
  4. # don't fit naturally in any of the other test files.  Many of these
  5. # tests are pathological cases that caused bugs in earlier Tcl
  6. # releases.
  7. #
  8. # Copyright (c) 1992-1993 The Regents of the University of California.
  9. # All rights reserved.
  10. #
  11. # Permission is hereby granted, without written agreement and without
  12. # license or royalty fees, to use, copy, modify, and distribute this
  13. # software and its documentation for any purpose, provided that the
  14. # above copyright notice and the following two paragraphs appear in
  15. # all copies of this software.
  16. #
  17. # IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
  18. # DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
  19. # OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
  20. # CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  21. #
  22. # THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
  23. # INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
  24. # AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
  25. # ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
  26. # PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  27. #
  28. # $Header: /user6/ouster/tcl/tests/RCS/misc.test,v 1.3 93/10/07 11:41:23 ouster Exp $ (Berkeley)
  29.  
  30. if {[string compare test [info procs test]] == 1} then {source defs}
  31.  
  32. test misc-1.1 {error in variable ref. in command in array reference} {
  33.     proc tstProc {} {
  34.     global a
  35.     
  36.     set tst $a([winfo name $zz])
  37.     # this is a bogus comment
  38.     # this is a bogus comment
  39.     # this is a bogus comment
  40.     # this is a bogus comment
  41.     # this is a bogus comment
  42.     # this is a bogus comment
  43.     # this is a bogus comment
  44.     # this is a bogus comment
  45.     }
  46.     set msg {}
  47.     list [catch tstProc msg] $msg
  48. } {1 {can't read "zz": no such variable}}
  49. test misc-1.2 {error in variable ref. in command in array reference} {
  50.     proc tstProc {} "
  51.     global a
  52.     
  53.     set tst \$a(\[winfo name \$\{zz)
  54.     # this is a bogus comment
  55.     # this is a bogus comment
  56.     # this is a bogus comment
  57.     # this is a bogus comment
  58.     # this is a bogus comment
  59.     # this is a bogus comment
  60.     # this is a bogus comment
  61.     # this is a bogus comment
  62.     "
  63.     set msg {}
  64.     list [catch tstProc msg] $msg $errorInfo
  65. } [list 1 {missing close-brace for variable name} \
  66. [format {missing close-brace for variable name
  67.     while executing
  68. "winfo name $%szz)
  69.     # this is a bogus comment
  70.     # this is a bogus comment
  71.     # this is a bogus comment
  72.     # this is a bogus comment
  73.     # this is a bogus commen ..."
  74.     (parsing index for array "a")
  75.     invoked from within
  76. "set tst $a([winfo name $%szz)
  77.     # this is a bogus comment
  78.     # this is a bogus comment
  79.     # this is a bogus comment
  80.     # this is a bogus comment
  81.     # this is a  ..."
  82.     (procedure "tstProc" line 4)
  83.     invoked from within
  84. "tstProc"} \{ \{]]
  85.