home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / tcl7.0b1 / tests / misc.test < prev    next >
Encoding:
Text File  |  1993-02-06  |  3.0 KB  |  66 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.2 93/02/06 16:01:46 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. } {1 {missing close-brace for variable name} missing\ close-brace\ for\ variable\ name\n\ \ \ \ while\ executing\n\"winfo\ name\ \$\{zz)\n\t#\ this\ is\ a\ bogus\ comment\n\t#\ this\ is\ a\ bogus\ comment\n\t#\ this\ is\ a\ bogus\ comment\n\t#\ this\ is\ a\ bogus\ comment\n\t#\ this\ is\ a\ bogus\ commen\ ...\"\n\ \ \ \ (parsing\ index\ for\ array\ \"a\")\n\ \ \ \ invoked\ from\ within\n\"set\ tst\ \$a(\[winfo\ name\ \$\{zz)\n\t#\ this\ is\ a\ bogus\ comment\n\t#\ this\ is\ a\ bogus\ comment\n\t#\ this\ is\ a\ bogus\ comment\n\t#\ this\ is\ a\ bogus\ comment\n\t#\ this\ is\ a\ \ ...\"\n\ \ \ \ (procedure\ \"tstProc\"\ line\ 4)\n\ \ \ \ invoked\ from\ within\n\"tstProc\"}
  66.