diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-11 09:38:07 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-11 09:38:07 (GMT) |
commit | c09aee52fbaeb3d3323d506b2ed648d06c21954f (patch) | |
tree | d4bf85c7822c11af68ee141b079a3e9963cb97b4 /tests | |
parent | ce11fef50dff5048c2dfa81c6639fbb6a65b51e0 (diff) | |
parent | 30f60173c4738c76675b58db3a7a5aaa62ca79ea (diff) | |
download | tcl-c09aee52fbaeb3d3323d506b2ed648d06c21954f.zip tcl-c09aee52fbaeb3d3323d506b2ed648d06c21954f.tar.gz tcl-c09aee52fbaeb3d3323d506b2ed648d06c21954f.tar.bz2 |
Merge trunk.
Various Tcl_NewIntObj/Tcl_NewBooleanObj -> Tcl_NewLongObj modifications
Diffstat (limited to 'tests')
-rw-r--r-- | tests/oo.test | 19 | ||||
-rw-r--r-- | tests/zlib.test | 19 |
2 files changed, 38 insertions, 0 deletions
diff --git a/tests/oo.test b/tests/oo.test index 5d34077..49fe150 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -2204,6 +2204,25 @@ test oo-19.2 {OO: varname method: Bug 2883857} -setup { } -cleanup { SpecialClass destroy } -result ::oo_test::x(y) +test oo-19.3 {OO: varname method and variable decl: Bug 3603695} -setup { + oo::class create testClass { + variable foo + export varname + constructor {} { + variable foo x + } + method bar {obj} { + my varname foo + $obj varname foo + } + } +} -body { + testClass create A + testClass create B + lsearch [list [A varname foo] [B varname foo]] [B bar A] +} -cleanup { + testClass destroy +} -result 0 test oo-20.1 {OO: variable method} -body { oo::class create testClass { diff --git a/tests/zlib.test b/tests/zlib.test index 891dba0..c469eea 100644 --- a/tests/zlib.test +++ b/tests/zlib.test @@ -366,6 +366,25 @@ test zlib-8.15 {transformtion and fconfigure} -setup { catch {close $inSide} catch {$strm close} } -result {358 358} +test zlib-8.16 {Bug 3603553: buffer transfer with large writes} -setup { + # Actual data isn't very important; needs to be substantially larger than + # the internal buffer (32kB) and incompressible. + set largeData {} + for {set i 0;expr srand(1)} {$i < 100000} {incr i} { + append largeData [lindex "a b c d e f g h i j k l m n o p" \ + [expr {int(16*rand())}]] + } + set file [makeFile {} test.gz] +} -constraints zlib -body { + set f [open $file wb] + fconfigure $f -buffering none + zlib push gzip $f + puts -nonewline $f $largeData + close $f + file size $file +} -cleanup { + removeFile $file +} -result 57647 test zlib-9.1 "check fcopy with push" -constraints zlib -setup { set sfile [makeFile {} testsrc.gz] |