From 7789da656e85b8db331ed17b4618ce34fb7b24fe Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Fri, 22 Aug 2014 12:26:54 -0300 Subject: [PATCH] Bug 12808: remove useless diags from t/db_dependent/Context.t Sponsored-by: Universidad Nacional de Cordoba Signed-off-by: Chris Cormack Signed-off-by: Jonathan Druart --- t/db_dependent/Context.t | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/t/db_dependent/Context.t b/t/db_dependent/Context.t index 70ced26..feb2a43 100755 --- a/t/db_dependent/Context.t +++ b/t/db_dependent/Context.t @@ -10,8 +10,8 @@ use vars qw($debug $koha $dbh $config $ret); BEGIN { $debug = $ENV{DEBUG} || 0; - diag("Note: The overall number of tests may vary by configuration."); - diag("First we need to check your environmental variables"); + # Note: The overall number of tests may vary by configuration. + # First we need to check your environmental variables for (qw(KOHA_CONF PERL5LIB)) { ok($ret = $ENV{$_}, "ENV{$_} = $ret"); } @@ -28,7 +28,6 @@ ok( 'Final linear version is less than or equal to kohaversion.pl' ); my @keys = keys %$koha; -diag("Number of keys in \%\$koha: " . scalar @keys); my $width = 0; if (ok(@keys)) { $width = (sort {$a <=> $b} map {length} @keys)[-1]; @@ -42,8 +41,7 @@ foreach (sort @keys) { } ok($config = $koha->{config}, 'Getting $koha->{config} '); -diag "Testing syspref caching."; - +# Testing syspref caching my $module = new Test::MockModule('C4::Context'); $module->mock( '_new_dbh', -- 2.0.0.rc2