diff --git a/lemonldap-ng-portal/t/29-AuthGPG.t b/lemonldap-ng-portal/t/29-AuthGPG.t
index 127737d9d..ff58a65ed 100644
--- a/lemonldap-ng-portal/t/29-AuthGPG.t
+++ b/lemonldap-ng-portal/t/29-AuthGPG.t
@@ -60,6 +60,7 @@ SKIP: {
     expectOK($res);
     expectCookie($res);
 }
+
 count($mainTests);
 clean_sessions();
-done_testing( count() );
+done_testing();
diff --git a/lemonldap-ng-portal/t/56-CheckDevOps-with-Download.t b/lemonldap-ng-portal/t/56-CheckDevOps-with-Download.t
index fa1a545ab..408049593 100644
--- a/lemonldap-ng-portal/t/56-CheckDevOps-with-Download.t
+++ b/lemonldap-ng-portal/t/56-CheckDevOps-with-Download.t
@@ -114,7 +114,8 @@ ok( $res->[2]->[0] =~ m%\^/deny: <span trspan="forbidden">%, 'deny' )
   or explain( $res->[2]->[0], 'deny' );
 ok( $res->[2]->[0] =~ m%\$uid eq qq{dwho}"%, 'file' )
   or explain( $res->[2]->[0], 'file' );
-ok( $res->[2]->[0] !~ m%Mail: dwho\@badwolf.org<br/>%, 'Hearder Mail not found' )
+ok( $res->[2]->[0] !~ m%Mail: dwho\@badwolf.org<br/>%,
+    'Hearder Mail not found' )
   or explain( $res->[2]->[0], 'No hearder Mail' );
 ok( $res->[2]->[0] =~ m%UA: <br/>%, 'Hearder UA found' )
   or explain( $res->[2]->[0], 'Hearder UA' );
@@ -151,10 +152,8 @@ ok( $res->{MSG} eq 'checkDevOps', 'MSG found' )
 count(8);
 
 $client->logout($id);
-
 clean_sessions();
-
-done_testing( count() );
+done_testing();
 
 # Redefine LWP methods for tests
 no warnings 'redefine';
@@ -180,4 +179,4 @@ sub LWP::UserAgent::request {
     $httpResp->header( 'Content-Length', length($s) );
     $httpResp->content($s);
     return $httpResp;
-}
\ No newline at end of file
+}
diff --git a/lemonldap-ng-portal/t/56-CheckDevOps.t b/lemonldap-ng-portal/t/56-CheckDevOps.t
index 84460974e..81115ae59 100644
--- a/lemonldap-ng-portal/t/56-CheckDevOps.t
+++ b/lemonldap-ng-portal/t/56-CheckDevOps.t
@@ -148,7 +148,8 @@ ok( $res->[2]->[0] =~ m%Name: Doctor Who<br/>%, 'Hearder Name found' )
   or explain( $res->[2]->[0], 'Hearder Name' );
 ok( $res->[2]->[0] =~ m%User: dwho<br/>%, 'Hearder User found' )
   or explain( $res->[2]->[0], 'Hearder User' );
-ok( $res->[2]->[0] !~ m%Mail: dwho\@badwolf.org<br/>%, 'Hearder Mail not found' )
+ok( $res->[2]->[0] !~ m%Mail: dwho\@badwolf.org<br/>%,
+    'Hearder Mail not found' )
   or explain( $res->[2]->[0], 'No hearder Mail' );
 ok( $res->[2]->[0] !~ m%UA: <br/>%, 'Hearder UA not found' )
   or explain( $res->[2]->[0], 'No hearder UA' );
@@ -274,7 +275,5 @@ ok( $res->{MSG} eq 'PE81', 'PE81 found' )
 count(5);
 
 $client->logout($id);
-
 clean_sessions();
-
-done_testing( count() );
+done_testing();