diff options
| author | Ian Roxborough <irox@redhat.com> | 2001-09-09 19:49:03 +0000 |
|---|---|---|
| committer | Ian Roxborough <irox@redhat.com> | 2001-09-09 19:49:03 +0000 |
| commit | 57e8350a3895a1579b77cc134d6d7d49b056678e (patch) | |
| tree | 7584c16f5407dd1371b8290109b3b822067afd5a /itcl/iwidgets3.0.0/tests/messagedialog.test | |
| parent | 7467241ff2a5cd6da7bbecb7111fc0dc3211c7de (diff) | |
| download | gdb-57e8350a3895a1579b77cc134d6d7d49b056678e.tar.gz | |
Itcl import for Tcl/Tk8.3 upgradeITCL_TCL_8_3
Diffstat (limited to 'itcl/iwidgets3.0.0/tests/messagedialog.test')
| -rw-r--r-- | itcl/iwidgets3.0.0/tests/messagedialog.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/itcl/iwidgets3.0.0/tests/messagedialog.test b/itcl/iwidgets3.0.0/tests/messagedialog.test index 3f99bea684e..5a76c0b72c0 100644 --- a/itcl/iwidgets3.0.0/tests/messagedialog.test +++ b/itcl/iwidgets3.0.0/tests/messagedialog.test @@ -14,6 +14,9 @@ # # @(#) $Id$ +package require tcltest +namespace import -force ::tcltest::* + package require Iwidgets 3.0 if {[string compare test [info procs test]] == 1} { @@ -43,7 +46,7 @@ incr c # test Messagedialog-2.$o {configuration option} { llength [.md configure] -} {24} +} {26} incr o @@ -145,3 +148,6 @@ test Messagedialog-1.$c {Messagedialog construction} { destroy .md update } {} + +::tcltest::cleanupTests +exit |