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

[ti...@cvs.perl.org]

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';
}