 	)
 
 
+(defun opac3-cur-file ()
+  "Return the filename (without directory) of the current buffer"
+  (file-name-nondirectory (buffer-file-name (current-buffer)))
+  )
+
 
 (defun opac3-debug-phpunit-function()
 	"Run phpunit on this function with debugger activated"
 	(interactive)
-	(opac3-compile-phpunit (cdr (phpunit-function-ap)) t)
-	)
-
-
-(defun opac3-run-phpunit()
-	"Run all phpunit tests"
-	(interactive)
-	(opac3-compile-phpunit)
+	(opac3-run-phpunit-filtered-function t)
 	)
 
 
 (defun opac3-strftime(start end) 
+	"Interprets region as a timestamp and converts into human date"
 	(interactive "r")
 	(let ((selected-text (buffer-substring start end)))
 		(geben-eval-expression (concat "strftime('%Y-%m-%d %H:%M:%S', " selected-text " )")))



(defun opac3-eval-region(start end) 
	(interactive "r")
	(let ((selected-text (buffer-substring start end)))
		(geben-eval-expression selected-text))

		("\C-crm" . opac3-run-phpunit-filtered-custom)
		("\C-crl" . opac3-run-last-phpunit-command)
		("\C-crp" . opac3-run-phpunit)
		("\C-crd" . opac3-debug-phpunit-function)
		("\C-ce" . opac3-eval-region)
		("\C-cf" . opac3-strftime))
	:after-hook 'opac3-mode-hook)

(provide 'opac3)
