add await_get and switch code to use it

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

diff --git a/t/connection.t b/t/connection.t
index 41e0e2c..e0425c9 100644 (file)
--- 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"