From 976d04a682097c79e2144b66410f123ebd52cbcd Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Thu, 23 Jul 2009 14:30:24 +0000
Subject: [PATCH] DBD-SQLite: don't need to show diagnostics twice

---
 t/02_logon.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/02_logon.t b/t/02_logon.t
index 0fec83e..1704275 100644
--- a/t/02_logon.t
+++ b/t/02_logon.t
@@ -14,6 +14,7 @@ use Test::NoWarnings;
 
 plan tests => 9 * @CALL_FUNCS + 1;
 
+my $show_diag = 0;
 foreach my $call_func (@CALL_FUNCS) {
 
 	# Ordinary connect
@@ -21,7 +22,7 @@ foreach my $call_func (@CALL_FUNCS) {
 		my $dbh = connect_ok();
 		ok( $dbh->{sqlite_version}, '->{sqlite_version} ok' );
 		is( $dbh->{AutoCommit}, 1, 'AutoCommit is on by default' );
-		diag("sqlite_version=$dbh->{sqlite_version}");
+		diag("sqlite_version=$dbh->{sqlite_version}") unless $show_diag++;
 		ok( $dbh->$call_func('busy_timeout'), 'Found initial busy_timeout' );
 		ok( $dbh->$call_func(5000, 'busy_timeout') );
 		is( $dbh->$call_func('busy_timeout'), 5000, 'Set busy_timeout to new value' );