Tcl Library Source Code

Changes On Branch tkt-ced089d5fe-multiplexer
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes In Branch tkt-ced089d5fe-multiplexer Excluding Merge-Ins

This is equivalent to a diff from e0daa48093 to 917237676c

2015-06-08
20:30
multiplexer - Ticket [ced089d5fe]. Merged testsuite fix. Thanks Aspect. check-in: debee3c876 user: aku tags: trunk
20:26
Update to trunk Closed-Leaf check-in: 917237676c user: aku tags: tkt-ced089d5fe-multiplexer
20:25
Update to trunk Leaf check-in: 2da77f541a user: aku tags: tkt-785d2954d4-jsonc
20:17
Fixed trunk split check-in: e0daa48093 user: aku tags: trunk
20:15
Modified zipfile::decode to exploit the native zip functions in the Tcl core when running in 8.6+. Adapted Pat Thoyts' example from the wiki (from http://wiki.tcl.tk/15158) to build complete zip archives in one call. As zipfile::encode is better at building archives in a piecemeal fashion, this new package is called zipfile::mkzip. In addition to building zip archive files, mkzip will also populate the VFS for zip enabled shells, as well as build zipkits. check-in: e01c4af189 user: hypnotoad tags: trunk
20:15
Ticket [4a4e443ce9]. Merge fix into main line. check-in: 06fb32c333 user: aku tags: trunk
2015-06-04
06:40
multiplexer - Tkt [ced089d5fe] - Applied patch, fixing testsuite. check-in: 9bfb503d18 user: aku tags: tkt-ced089d5fe-multiplexer

Changes to modules/multiplexer/multiplexer.test.

191
192
193
194
195
196
197
198
199
200
201
202


203
204
205
206
207


208
209
210
211
212
213
214

test multiplexer-5.2 {add access filter which denies access} {
    set ::forever {}
    set mp [multiplexer::create]
    ${mp}::Init 37465
    ${mp}::AddAccessFilter DenyAccessFilter
    set sk1 [socket localhost 37465]
    set sk2 [socket localhost 37465]
    update
    fconfigure $sk1 -buffering none
    if { [catch {
	puts $sk1 "boom"


    } err] } {
	set result "socket blocked"
    } else {
	set result "socket not blocked"
    }


    ${mp}::destroy
    set result
} {socket blocked}


testsuiteCleanup
return







|
|
|
|
|
>
>
|
|
|
|
|
>
>

|





191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218

test multiplexer-5.2 {add access filter which denies access} {
    set ::forever {}
    set mp [multiplexer::create]
    ${mp}::Init 37465
    ${mp}::AddAccessFilter DenyAccessFilter
    set sk1 [socket localhost 37465]
    after idle {
	update
	fconfigure $sk1 -buffering none
	if { [catch {
	    puts $sk1 "boom"
	    after 200	;# delay to overcome nagle - see ticket [ced089d5fe]
	    puts $sk1 "tish"
	} err] } {
	    set ::forever "socket blocked"
	} else {
	    set ::forever "socket not blocked"
	}
    }
    vwait ::forever
    ${mp}::destroy
    set forever
} {socket blocked}


testsuiteCleanup
return