Merged revisions 69460,69467,69470 via svnmerge from

svn+ssh://pythondev/python/trunk

........
  r69460 | guilherme.polo | 2009-02-09 14:09:17 -0200 (Mon, 09 Feb 2009) | 1 line

  Turned setup_master public
........
  r69467 | guilherme.polo | 2009-02-09 17:21:21 -0200 (Mon, 09 Feb 2009) | 2 lines

  Some tests for Tkinter.Text.search
........
  r69470 | guilherme.polo | 2009-02-09 17:57:04 -0200 (Mon, 09 Feb 2009) | 1 line

  Checking for tk availability before continuing (basically the same that is done in test_ttk_guionly)
........

1 files changed, 22 insertions, 0 deletions

diff --git a/Lib/test/test_tk.py b/Lib/test/test_tk.py
new file mode 100644
index 0000000..8b21a0f
--- /dev/null
+++ b/Lib/test/test_tk.py
@@ -0,0 +1,22 @@
+import tkinter
+from tkinter.test import runtktests
+from test import support
+
+try:
+    tkinter.Button()
+except tkinter.TclError as msg:
+    # assuming tk is not available
+    raise support.TestSkipped("tk not available: %s" % msg)
+
+def test_main(enable_gui=False):
+    if enable_gui:
+        if support.use_resources is None:
+            support.use_resources = ['gui']
+        elif 'gui' not in support.use_resources:
+            support.use_resources.append('gui')
+
+    support.run_unittest(
+            *runtktests.get_tests(text=False, packages=['test_tkinter']))
+
+if __name__ == '__main__':
+    test_main(enable_gui=True)