Test the path_filter function

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>

diff --git a/tests/all.tcl b/tests/all.tcl
new file mode 100644 (file)
index 0000000..63f567e
--- /dev/null
+++ b/tests/all.tcl
@@ -0,0 +1,5 @@
+package require Tcl 8.4
+package require tcltest 2
+tcltest::configure -testdir [file dirname [info script]]
+eval [linsert $argv 0 tcltest::configure]
+tcltest::runAllTests

diff --git a/tests/path_filter.test b/tests/path_filter.test
new file mode 100644 (file)
index 0000000..3f9322c
--- /dev/null
+++ b/tests/path_filter.test
@@ -0,0 +1,26 @@
+package require tcltest
+namespace import -force tcltest::*
+
+# Load gitk as library for testing from the parent of the test directory
+source [file join [file dirname [testsDirectory]] gitk]
+
+
+set tests {
+    1  ""   gitk   0
+    2  .    gitk   1
+    3  ./   gitk   1
+    4  po   po/de.po  1
+    5  ./po po/de.po 1
+    6  po   gitk   0
+    7  po   a/b    0
+    8  a    a/b/c  1
+}
+foreach {id filter name result} $tests {
+    test path_filter-$id "path_filter $filter $name" -body {
+        path_filter $filter $name
+    } -result $result
+}
+unset tests
+
+::tcltest::cleanupTests
+return
\ No newline at end of file