diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-12-05 15:48:30 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-12-12 13:44:24 +1000 |
| commit | 3128c766f3750d3729635b63c3743620d2a5b9b4 (patch) | |
| tree | 4e469baff30892179f4645f867ab2de06d1a7b3a /tests | |
| parent | fbe15cd90944bfce18b02c84643a3830e7bd187b (diff) | |
| download | jimtcl-3128c766f3750d3729635b63c3743620d2a5b9b4.zip jimtcl-3128c766f3750d3729635b63c3743620d2a5b9b4.tar.gz jimtcl-3128c766f3750d3729635b63c3743620d2a5b9b4.tar.bz2 | |
Add test of tcl::prefix from a namespace
Signed-off-by: Steve Bennett <steveb@workware.net.au>
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 |