Testfall: Debug-Meldungen nur bei einzelner Ausführung

https://perlmaven.com/diag-note-explain

diff --git a/t/pay_posting_import/datev_import.t b/t/pay_posting_import/datev_import.t
index c164046cfd1683a7665388f50b8b0d296a4b7467..91934de9059b9996aacaeb46549008b9c675b66f 100644 (file)
--- a/t/pay_posting_import/datev_import.t
+++ b/t/pay_posting_import/datev_import.t
@@ -18,7 +18,7 @@ Support::TestSetup::login();
 my $dbh = SL::DB->client->dbh;
 my @charts = qw(379000 136900 372000 372500 373000 374000 377000 494700);
 local $::locale = Locale->new('en');
 my $dbh = SL::DB->client->dbh;
 my @charts = qw(379000 136900 372000 372500 373000 374000 377000 494700);
 local $::locale = Locale->new('en');

-diag("init csv");
+note("init csv");

 clear_up();
 
 # datev naming convention and expected filename entry in $::form
 clear_up();
 
 # datev naming convention and expected filename entry in $::form