From: Michael Wagner <michael@wagnertech.de>
Date: Tue, 8 Mar 2022 19:31:17 +0000 (+0100)
Subject: epic-ts
X-Git-Tag: kivitendo-mebil_0.1-0~9^2~1^2~1
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9c454191438763ec271c715cb2d2b81cc9e647ea;p=kivitendo-erp.git

epic-ts
---

diff --git a/Test/perl/test_action.pl b/Test/perl/test_action.pl
index 4e78f919f..904bb23bc 100755
--- a/Test/perl/test_action.pl
+++ b/Test/perl/test_action.pl
@@ -1,15 +1,28 @@
 #!/usr/bin/perl
 use strict;
 
-use SL::Controller::Mebil;
+#use SL::Controller::Mebil;
 use SL::DB;
+use SL::Form;
 use SL::LXDebug;
 
 $::lxdebug = new LXDebug;
+#$::form    = new Form;
 
-my $db = new SL::DB;
+#my $dbh = $::form->get_standard_dbh;
 
-my $dbi = $db->dbi_connect("dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo");
+SL::DB->register_db(
+  driver   => 'Pg',
+  database => 'dev_db',
+  host     => 'localhost',
+  username => 'kivitendo',
+  password => 'kivitemdo',
+);
+
+#my $db = SL::DB::client;
+
+#my $dbh = SL::DB::dbi_connect("dbi:driver=Pg;dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo");
+my $db = SL::DB->new;
 
 my $m = new SL::Controller::Mebil;
 $m->action_calcmap;