regtest.tcl

   1 # REGTEST 1
   2 # 27Jan2005 - SIGSEGV for bug on Jim_DuplicateObj().
   3
   4 for {set i 0} {$i < 100} {incr i} {
   5     set a "x"
   6     lappend a n
   7 }
   8 puts "TEST 1 PASSED"
   9
  10 # REGTEST 2
  11 # 29Jan2005 - SEGFAULT parsing script composed of just one comment.
  12 eval {#foobar}
  13 puts "TEST 2 PASSED"
  14
  15 # REGTEST 3
  16 # 29Jan2005 - "Error in Expression" with correct expression
  17 set x 5
  18 expr {$x-5}
  19 puts "TEST 3 PASSED"
  20
  21 # REGTEST 4
  22 # 29Jan2005 - SIGSEGV when run this code, due to expr's bug.
  23 proc fibonacci {x} {
  24     if {$x <= 1} {
  25     expr 1
  26     } else {
  27     expr {[fibonacci [expr {$x-1}]] + [fibonacci [expr {$x-2}]]}
  28     }
  29 }
  30 fibonacci 6
  31 puts "TEST 4 PASSED"
  32
  33 # REGTEST 5
  34 # 06Mar2005 - This looped forever...
  35 for {set i 0} {$i < 10} {incr i} {continue}
  36 puts "TEST 5 PASSED"
  37
  38 # REGTEST 6
  39 # 07Mar2005 - Unset create variable + dict is using dict syntax sugar at
  40 #             currently non-existing variable
  41 catch {unset thisvardoesnotexists(thiskeytoo)}
  42 if {[catch {set thisvardoesnotexists}] == 0} {
  43   puts "TEST 6 FAILED - unset created dict for non-existing variable"
  44   break
  45 }
  46 puts "TEST 6 PASSED"
  47
  48 # REGTEST 7
  49 # 04Nov2008 - variable parsing does not eat last brace
  50 set a 1
  51 list ${a}
  52 puts "TEST 7 PASSED"
  53
  54 # REGTEST 8
  55 # 04Nov2008 - string toupper/tolower do not convert to string rep
  56 string tolower [list a]
  57 string toupper [list a]
  58 puts "TEST 8 PASSED"
  59
  60 # REGTEST 9
  61 # 04Nov2008 - crash on exit when replacing Tcl proc with C command. Requires the aio extension
  62 proc open {args} {}
  63 catch {package require aio}
  64 # Note, crash on exit, so don't say we passed!
  65
  66 # REGTEST 10
  67 # 05Nov2008 - incorrect lazy expression evaluation with unary not
  68 expr {1 || !0}
  69 puts "TEST 10 PASSED"
  70
  71 # REGTEST 11
  72 # 14 Feb 2010 - access static variable in deleted proc
  73 proc a {} {{x 1}} { rename a ""; incr x }
  74 a
  75 puts "TEST 11 PASSED"
  76
  77 # TAKE THE FOLLOWING puts AS LAST LINE
  78
  79 puts "--- ALL TESTS PASSED ---"