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

diff --git a/t/connection.t b/t/connection.t
index 41e0e2c..e0425c9 100644
--- a/t/connection.t
+++ b/t/connection.t
@@ -23,15 +23,9 @@ 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"