diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/prefix.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/prefix.test b/tests/prefix.test index e4b8cc3..1540f75 100644 --- a/tests/prefix.test +++ b/tests/prefix.test @@ -15,6 +15,7 @@ source [file dirname [info script]]/testing.tcl needs cmd tcl::prefix prefix +testConstraint namespace [expr {[info commands namespace] ne ""}] test string-26.1 {tcl::prefix, too few args} -body { tcl::prefix match a @@ -146,4 +147,10 @@ test string-28.13 {tcl::prefix longest} { tcl::prefix longest {ax\x90 bep ax\x91} a } ax +test string-29.1 {tcl::prefix from another namespace} namespace { + namespace eval abc { + tcl::prefix longest {apa bepa cepa depa} cepa + } +} cepa + testreport |