epic-ts

diff --git a/Test/perl/test_action.pl b/Test/perl/test_action.pl
index 660b7f3..4e78f91 100755 (executable)
--- a/Test/perl/test_action.pl
+++ b/Test/perl/test_action.pl
@@ -2,9 +2,14 @@
 use strict;
 
 use SL::Controller::Mebil;
+use SL::DB;
 use SL::LXDebug;
 
 $::lxdebug = new LXDebug;
 
+my $db = new SL::DB;
+
+my $dbi = $db->dbi_connect("dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo");
+
 my $m = new SL::Controller::Mebil;
 $m->action_calcmap;