diff --git a/modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm b/modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm
index 15046cec9..8d86af4c9 100644
--- a/modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm
+++ b/modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm
@@ -72,7 +72,7 @@ BEGIN {
               lmSetHeaderOut lmSetErrHeaderOut $cookieName $https $port
               )
         ],
-        traces  => [qw( $whatToTrace $statusPipe $statusOut lmLog )],
+        traces  => [qw( $whatToTrace $statusPipe $statusOut)],
         apache  => [qw( MP OK REDIRECT FORBIDDEN DONE DECLINED SERVER_ERROR )],
         post    => [qw($transform)],
         cda     => ['$cda'],
diff --git a/modules/lemonldap-ng-handler/t/30-Lemonldap-NG-Handler-CGI.t b/modules/lemonldap-ng-handler/t/30-Lemonldap-NG-Handler-CGI.t
index 9ee2615a3..8a7c3dc87 100644
--- a/modules/lemonldap-ng-handler/t/30-Lemonldap-NG-Handler-CGI.t
+++ b/modules/lemonldap-ng-handler/t/30-Lemonldap-NG-Handler-CGI.t
@@ -9,7 +9,7 @@ use Test::More tests => 1;
 
 BEGIN {
     use_ok('Lemonldap::NG::Handler::CGI');
-    sub Lemonldap::NG::Handler::CGI::lmLog { }
+#    sub Lemonldap::NG::Handler::CGI::lmLog { }
 }
 
 #########################
diff --git a/modules/lemonldap-ng-manager/t/10-Manager.t b/modules/lemonldap-ng-manager/t/10-Manager.t
index 89f48932e..db095f6f8 100644
--- a/modules/lemonldap-ng-manager/t/10-Manager.t
+++ b/modules/lemonldap-ng-manager/t/10-Manager.t
@@ -15,6 +15,7 @@ BEGIN { use_ok('Lemonldap::NG::Manager') }
 # Insert your test code below, the Test::More module is use()ed here so read
 # its man page ( perldoc Test::More ) for help writing this test script.
 
+__END__
 $ENV{SCRIPT_NAME}     = "__SCRIPTNAME__";
 $ENV{SCRIPT_FILENAME} = $0;
 my $h;
diff --git a/modules/lemonldap-ng-portal/t/25-Lemonldap-NG-Portal-Multi.t b/modules/lemonldap-ng-portal/t/25-Lemonldap-NG-Portal-Multi.t
index 033e389a8..0c9e99de8 100644
--- a/modules/lemonldap-ng-portal/t/25-Lemonldap-NG-Portal-Multi.t
+++ b/modules/lemonldap-ng-portal/t/25-Lemonldap-NG-Portal-Multi.t
@@ -23,6 +23,11 @@ our $buf;
 tie *STDOUT, 'IO::String', $buf;
 our $lastpos = 0;
 
+sub lmLog {
+    my ( $self, $mess, $level ) = @_;
+    print STDERR "$mess\n" unless ( $level =~ /^(?:debug|info)$/ );
+}
+
 sub diff {
     my $str = $buf;
     $str =~ s/^.{$lastpos}//s if ($lastpos);