set conn [$connector connect]
+proc jws {args} {
+ set ret {}
+ foreach str $args {
+ lappend ret [ json::write string $str ]
+ }
+ return $ret
+}
+
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 ]
+ $conn send call {*}[jws class_call_handler 0 call Sys::Hostname hostname]
]
set ready_args ""
$f1 on_ready [list apply {{name future} {set $name [$future get]}} "[namespace current]::ready_args" ]
-$f1 retain
-
-$f1 await_ready
-
set my_host [exec hostname]
-is [$f1 get] $my_host "hostname retuend ok via get"
-
-$f1 free
+is [$f1 await_get] $my_host "hostname returned ok via get"
is $ready_args $my_host "hostname returned ok via on_ready"
+
+done_testing