From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 8 Sep 2012 20:45:52 +0000 (+0000)
Subject: direct test for get
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9540dca14bd5b1d4edd1889ead07c2fa4d92af6c;p=scpubgit%2FTenDotTcl.git

direct test for get
---

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"