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