diff --git a/t/get_all_domains.pl b/t/get_all_domains.pl
index c105189..fdc4f2f 100755
--- a/t/get_all_domains.pl
+++ b/t/get_all_domains.pl
@@ -10,30 +10,14 @@ use Data::Dump qw( dump );
 
 use lib '../';
 use app::app;
-
-sub initco {
-
-    my $cfg = new Config::Simple('./config.ini');
-    my $app = app->new( zdir => $cfg->param('zones_path'),
-        dbname => $cfg->param('dbname'),
-        dbhost => $cfg->param('host'),
-        dbport => $cfg->param('port'),
-        dbuser => $cfg->param('user'),
-        dbpass => $cfg->param('passwd'),
-        sgbd => $cfg->param('sgbd'),
-        dnsapp => $cfg->param('dnsapp') );
-
-    $app->init();
-
-    return $app;
-}
+use initco;
 
 if( @ARGV != 0 ) {
     say "usage : ./get_all_domains.pl";
     exit 1;
 }
 
-my $app = initco();
+my $app = initco::initco();
 
 my %domains = $app->get_all_domains();
 
diff --git a/t/get_all_users.pl b/t/get_all_users.pl
index b422c33..7c8d9f4 100755
--- a/t/get_all_users.pl
+++ b/t/get_all_users.pl
@@ -10,30 +10,14 @@ use Data::Dump qw( dump );
 
 use lib '../';
 use app::app;
-
-sub initco {
-
-    my $cfg = new Config::Simple('./config.ini');
-    my $app = app->new( zdir => $cfg->param('zones_path'),
-        dbname => $cfg->param('dbname'),
-        dbhost => $cfg->param('host'),
-        dbport => $cfg->param('port'),
-        dbuser => $cfg->param('user'),
-        dbpass => $cfg->param('passwd'),
-        sgbd => $cfg->param('sgbd'),
-        dnsapp => $cfg->param('dnsapp') );
-
-    $app->init();
-
-    return $app;
-}
+use initco;
 
 if( @ARGV != 0 ) {
     say "usage : ./get_all_domains.pl";
     exit 1;
 }
 
-my $app = initco();
+my $app = initco::initco();
 
 my %users = $app->get_all_users();
 
diff --git a/t/get_domains.pl b/t/get_domains.pl
index 6cec119..cba903d 100755
--- a/t/get_domains.pl
+++ b/t/get_domains.pl
@@ -10,30 +10,14 @@ use Data::Dump qw( dump );
 
 use lib '../';
 use app::app;
-
-sub initco {
-
-    my $cfg = new Config::Simple('./config.ini');
-    my $app = app->new( zdir => $cfg->param('zones_path'),
-        dbname => $cfg->param('dbname'),
-        dbhost => $cfg->param('host'),
-        dbport => $cfg->param('port'),
-        dbuser => $cfg->param('user'),
-        dbpass => $cfg->param('passwd'),
-        sgbd => $cfg->param('sgbd'),
-        dnsapp => $cfg->param('dnsapp') );
-
-    $app->init();
-
-    return $app;
-}
+use initco;
 
 if( @ARGV < 2) {
     say "usage : ./auth.pl login mdp";
     exit 1;
 }
 
-my $app = initco();
+my $app = initco::initco();
 my ($auth_ok, $user, $isadmin) = $app->auth($ARGV[0], $ARGV[1]);
 
 if($auth_ok) {