direct test for get

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

diff --git a/t/connection.t b/t/connection.t
index 6ce7931..92b9317 100644 (file)
--- 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"