[scpubgit/TenDotTcl.git] / t / connection.t

BEGIN { exec(tclsh => 't/tcl/harness.tcl' => $0) }

package require ten
package require json::write

set connector [ten::connector::perl %AUTO%]

set conn [$connector connect]

set f1 [
  $conn send call [ json::write string class_call_handler ] \
    0 [ json::write string call ] \
    [ json::write string Sys::Hostname ] [ json::write string hostname ]
]

set ready_args ""

$f1 on_ready [list apply {{name future} {set $name [$future get]}} "[namespace current]::ready_args" ]

$f1 await_ready

is $ready_args [exec hostname] "hostname returned ok"
Commit	Line	Data
0e93bc12	1	BEGIN { exec(tclsh => 't/tcl/harness.tcl' => $0) }
	2
	3	package require ten
	4	package require json::write
	5
	6	set connector [ten::connector::perl %AUTO%]
	7
	8	set conn [$connector connect]
	9
	10	set f1 [
	11	$conn send call [ json::write string class_call_handler ] \
	12	0 [ json::write string call ] \
	13	[ json::write string Sys::Hostname ] [ json::write string hostname ]
	14	]
	15
	16	set ready_args ""
	17
	18	$f1 on_ready [list apply {{name future} {set $name [$future get]}} "[namespace current]::ready_args" ]
	19
	20	$f1 await_ready
	21
	22	is $ready_args [exec hostname] "hostname returned ok"