X-Git-Url: http://wagnertech.de/git?p=kivitendo-erp.git;a=blobdiff_plain;f=Test%2Fperl%2Ftest_action.pl;fp=Test%2Fperl%2Ftest_action.pl;h=abf7379886ffd721368d65d39bacaa70f4707718;hp=069cc1491943b143f04d248f21713bcfc73c19b6;hb=47db6ae13df64092d401896ec476b9335e9ec807;hpb=5349a1ed016ae603b39d73747eccc6792707db1c

diff --git a/Test/perl/test_action.pl b/Test/perl/test_action.pl
index 069cc1491..abf737988 100755
--- a/Test/perl/test_action.pl
+++ b/Test/perl/test_action.pl
@@ -2,9 +2,10 @@
 use strict;
 
 use lib "/opt/kivitendo-erp";
+use lib "perl";
 use SL::LXDebug;
 use SL::mebil::Mapping;
-use Test::perl::ErrorChannel;
+use ErrorChannel;
 
 $::lxdebug = new LXDebug;
 
@@ -26,14 +27,14 @@ my $errch = new ErrorChannel;
 my $mapper = new SL::mebil::Mapping($errch, $dbh);
 
 my $command = $ARGV[0];
-if ($command eq "GetMapping") {
+if ($command eq "ShowMapping") {
 	my $mapping = $mapper->get_mapping();
 	foreach (@$mapping) {
 		print $_->{fromacc}."\n";
 	}
 	die ("Kein Mapping vorhanden.") unless (scalar(@$mapping) > 0);
 } elsif ($command eq "CalcMapping") {
-	die ("NIY.");
+	(my $fromacc, my $toacc) = $mapper->calc_mapping(2022);
 } else {
 	die "Invalid command: $command";
 }