X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/525c5931383d1c7281c2d7bcabffe317c60ffe02..4058a47f317770d5cc5f5aa6b9f965b793f263bd:/Test/perl/test_action.pl

diff --git a/Test/perl/test_action.pl b/Test/perl/test_action.pl
new file mode 100755
index 000000000..660b7f343
--- /dev/null
+++ b/Test/perl/test_action.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+use strict;
+
+use SL::Controller::Mebil;
+use SL::LXDebug;
+
+$::lxdebug = new LXDebug;
+
+my $m = new SL::Controller::Mebil;
+$m->action_calcmap;