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

diff --git a/t/connection.t b/t/connection.t
index 6ce7931..92b9317 100644
--- a/t/connection.t
+++ b/t/connection.t
@@ -17,6 +17,14 @@ set ready_args ""
 
 $f1 on_ready [list apply {{name future} {set $name [$future get]}} "[namespace current]::ready_args" ]
 
+$f1 retain
+
 $f1 await_ready
 
-is $ready_args [exec hostname] "hostname returned ok"
+set my_host [exec hostname]
+
+is [$f1 get] $my_host "hostname retuend ok via get"
+
+$f1 free
+
+is $ready_args $my_host "hostname returned ok via on_ready"