From 4a9a4f2778c28ff60286cf1f76b51c7b9cd022ea Mon Sep 17 00:00:00 2001
From: Xavier Guimard <xavier.guimard@laposte.net>
Date: Fri, 3 Jun 2016 04:30:34 +0000
Subject: [PATCH] Little test problem (#595)

---
 lemonldap-ng-portal/t/11-Notifications-DBI.t | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lemonldap-ng-portal/t/11-Notifications-DBI.t b/lemonldap-ng-portal/t/11-Notifications-DBI.t
index 19c604582..1b0f1e2a1 100644
--- a/lemonldap-ng-portal/t/11-Notifications-DBI.t
+++ b/lemonldap-ng-portal/t/11-Notifications-DBI.t
@@ -2,8 +2,6 @@ use Test::More;
 use strict;
 use IO::String;
 
-require 't/test-lib.pm';
-
 my $res;
 my $file = 't/notifications.db';
 eval { unlink $file };
@@ -13,6 +11,9 @@ SKIP: {
     if ($@) {
         skip 'DBD::SQLite not found', 1;
     }
+
+    require 't/test-lib.pm';
+
     my $dbh = DBI->connect("dbi:SQLite:dbname=$file");
     $dbh->do(
 'CREATE TABLE notifications (uid text,ref text,date datetime,xml text,cond text,done datetime)'
@@ -90,7 +91,7 @@ qq{INSERT INTO notifications VALUES ('dwho','testref','2016-05-30 00:00:00','<?x
     count(2);
 
     # Try to validate notification
-    my $str =
+    $str =
 'reference1x1=testref&check1x1x1=accepted&url=aHR0cDovL3Rlc3QxLmV4YW1wbGUuY29tLw==';
     ok(
         $res = &client->_post(
@@ -116,8 +117,8 @@ qq{INSERT INTO notifications VALUES ('dwho','testref','2016-05-30 00:00:00','<?x
 
     clean_sessions();
 
+    eval { unlink $file };
+
 }
+done_testing( eval { count() } );
 
-eval { unlink $file };
-
-done_testing( count() );