develooper Front page | perl.dbi.changes | Postings from March 2013

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

From:
timbo
Date:
March 22, 2013 20:12
Subject:
[svn:dbi] r15584 - dbi/trunk/t
Message ID:
20130322201215.48BFB184B1B@xx12.develooper.com
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';
 }
 
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About