[svn:dbi] r15584 - dbi/trunk/t

[timbo]

Author: timbo
Date: Fri Mar 22 13:12:13 2013
New Revision: 15584

Modified:
   dbi/trunk/t/87gofer_cache.t

Log:
minor cleanups for the t/87gofer_cache.t test

Modified: dbi/trunk/t/87gofer_cache.t
==============================================================================
--- dbi/trunk/t/87gofer_cache.t (original)
+++ dbi/trunk/t/87gofer_cache.t Fri Mar 22 13:12:13 2013
@@ -31,7 +31,7 @@
     my $cache_obj = shift;
 
     my $tmp;
-    print " using $cache_obj for $dsn\n";
+    print "\n --- using $cache_obj for $dsn\n";
 
     my $dbh = DBI->connect($dsn, undef, undef, {
         go_cache => $cache_obj,
@@ -60,18 +60,18 @@
     is $go_transport->cache_miss, $expected;
     is $go_transport->cache_store, $expected;
 
-    is $go_transport->transmit_count, $expected, 'should make 1 round trip';
+    is $go_transport->transmit_count, $expected, "should make $expected round 
trip";
     $go_transport->transmit_count(0);
     is $go_transport->transmit_count, 0, 'transmit_count should be 0';
 
     # request 2
     ok my $rows2 = $dbh->selectall_arrayref("select name from ?", {}, ".");
     is_deeply $rows2, $rows1;
-    is $go_transport->transmit_count, 0, 'should make 1 round trip';
+    is $go_transport->transmit_count, 0, 'should make 0 round trip';
 
-    is $go_transport->cache_hit, $expected;
-    is $go_transport->cache_miss, $expected;
-    is $go_transport->cache_store, $expected;
+    is $go_transport->cache_hit, $expected, 'cache_hit';
+    is $go_transport->cache_miss, $expected, 'cache_miss';
+    is $go_transport->cache_store, $expected, 'cache_store';
 }