diff --git a/tests/workflow/getByDocument.php b/tests/workflow/getByDocument.php
new file mode 100644
index 0000000..2269f50
--- /dev/null
+++ b/tests/workflow/getByDocument.php
@@ -0,0 +1,20 @@
+<?php
+
+require_once('../../config/dmsDefaults.php');
+
+require_once(KT_LIB_DIR . '/documentmanagement/Document.inc');
+require_once(KT_LIB_DIR . '/workflow/workflow.inc.php');
+require_once(KT_LIB_DIR . '/workflow/workflowutil.inc.php');
+
+$oDocument =& Document::get(4);
+
+$res = KTWorkflow::getByDocument($oDocument);
+if (PEAR::isError($res)) {
+    print "FAILED\n";
+    var_dump($res);
+}
+$iWorkflowId = $res->getId();
+if ($iWorkflowId != 1) {
+    print "FAILED\n";
+    print $iWorkflowId;
+}
diff --git a/tests/workflow/startWorkflowOnObject.php b/tests/workflow/startWorkflowOnObject.php
new file mode 100644
index 0000000..1d167e3
--- /dev/null
+++ b/tests/workflow/startWorkflowOnObject.php
@@ -0,0 +1,15 @@
+<?php
+
+require_once('../../config/dmsDefaults.php');
+
+require_once(KT_LIB_DIR . '/documentmanagement/Document.inc');
+require_once(KT_LIB_DIR . '/workflow/workflow.inc.php');
+require_once(KT_LIB_DIR . '/workflow/workflowutil.inc.php');
+
+$oDocument =& Document::get(4);
+$oWorkflow =& KTWorkflow::get(1);
+
+$res = KTWorkflowUtil::startWorkflowOnDocument($oWorkflow, $oDocument);
+if (PEAR::isError($res)) {
+    var_dump($res);
+}