diff --git a/test/qp-check.php b/test/qp-check.php
new file mode 100644
--- /dev/null
+++ b/test/qp-check.php
@@ -0,0 +1,87 @@
+<?php // -*- php -*-
+// Copyright (C) 2012, Wolfgang Scherer, <Wolfgang.Scherer at gmx.de>
+// Sponsored by WIEDENMANN SEILE GMBH, http://www.wiedenmannseile.de
+//
+// This file is part of Wiedenmann Vacation.
+//
+// This program is free software; you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published
+// by the Free Software Foundation; either version 3 of the License, or
+// (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful, but
+// WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+// General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program. If not, see <http://www.gnu.org/licenses/>,
+// or write to Wolfgang Scherer, <Wolfgang.Scherer at gmx.de>
+
+// $_REQUEST['_DEBUG_'] = 1;
+// $_REQUEST['_DEBUG_TEST_'] = 1;
+require_once(dirname(__FILE__) . '/../lib/util.php');
+
+$msg = get_text('vacation');
+
+echo "--------------------------------------------------\n";
+$vacationa = vacation_split($msg, False);
+$subject = $vacationa[0];
+$headers = $vacationa[1];
+$body = $vacationa[2];
+
+$msg = vacation_join($subject, $body, $headers);
+echo $msg."\n";
+
+echo "--------------------------------------------------\n";
+$vacationa = vacation_split($msg, True);
+$subject = $vacationa[0];
+$headers = $vacationa[1];
+$body = $vacationa[2];
+
+$msg = vacation_join($subject, $body);
+echo $msg."\n";
+
+echo "--------------------------------------------------\n";
+$vacationa = vacation_split($msg, True);
+$subject = $vacationa[0];
+$headers = $vacationa[1];
+$body = $vacationa[2];
+
+$msg = vacation_join($subject . 'äöü', $body);
+echo $msg."\n";
+
+echo "--------------------------------------------------\n";
+$vacationa = vacation_split($msg, True);
+$subject = $vacationa[0];
+$headers = $vacationa[1];
+$body = $vacationa[2];
+
+echo 'Subject: '.$subject."\n";
+echo 'Headers: '. $headers."\n";
+echo 'Body: '.$body."\n";
+
+echo "--------------------------------------------------\n";
+$msg = vacation_join($subject, $body);
+echo $msg."\n";
+
+//
+// :ide-menu: Emacs IDE Menu - Buffer @BUFFER@
+// . M-x `eIDE-menu' ()(eIDE-menu "z")
+// :ide: COMPILE: PHP _DEBUG_=2 _DEBUG_TEST_=2
+// . (compile (concat "php " (file-name-nondirectory (buffer-file-name)) " _DEBUG_=2 _DEBUG_TEST_=2"))
+
+// :ide: QUO: $this->
+// . (insert "$this->" )
+
+// :ide: COMPILE: PHP w/o args
+// . (compile (concat "php " (file-name-nondirectory (buffer-file-name)) ""))
+
+// :ide: COMPILE: PHP _DEBUG_=1 _DEBUG_TEST_=1
+// . (compile (concat "php " (file-name-nondirectory (buffer-file-name)) " _DEBUG_=1 _DEBUG_TEST_=1"))
+
+//
+// Local Variables:
+// mode: php
+// End:
+?>