1 BEGIN { exec(tclsh => 't/tcl/harness.tcl' => $0) }
4 package require json::write
6 set connector [ten::connector::perl %AUTO%]
8 set conn [$connector connect]
13 lappend ret [ json::write string $str ]
19 $conn send call {*}[jws class_call_handler 0 call Sys::Hostname hostname]
24 $f1 on_ready [list apply {{name future} {set $name [$future get]}} "[namespace current]::ready_args" ]
26 set my_host [exec hostname]
28 is [$f1 await_get] $my_host "hostname returned ok via get"
30 is $ready_args $my_host "hostname returned ok via on_ready"