X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fconnection.t;h=e0425c97854ac8023da13c0fc493da6ed6f8bba3;hb=47f04c562fa3f1001830a48ec4a9e15717d71976;hp=6ce79311fa424e6e117126cb756839f17c18d479;hpb=0e93bc12741bd93c6e35d81da4a44b32f7a8cdf9;p=scpubgit%2FTenDotTcl.git

diff --git a/t/connection.t b/t/connection.t
index 6ce7931..e0425c9 100644
--- a/t/connection.t
+++ b/t/connection.t
@@ -7,16 +7,26 @@ set connector [ten::connector::perl %AUTO%]
 
 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 await_ready
+set my_host [exec hostname]
+
+is [$f1 await_get] $my_host "hostname returned ok via get"
+
+is $ready_args $my_host "hostname returned ok via on_ready"
 
-is $ready_args [exec hostname] "hostname returned ok"
+done_testing