* tests/bind.test:

	* tests/canvImg.test:
	* tests/canvPsArc.tcl:
	* tests/canvPsImg.tcl: (new file)
	* tests/canvRect.test:
	* tests/canvText.test:
	* tests/canvas.test:
	* tests/defs.tcl:
	* tests/entry.test:
	* tests/event.test:
	* tests/font.test:
	* tests/frame.test:
	* tests/imgPhoto.test:
	* tests/safe.test:
	* tests/scale.test:
	* tests/scrollbar.test:
	* tests/select.test:
	* tests/text.test:
	* tests/textDisp.test:
	* tests/textTag.test:
	* tests/unixFont.test:
	* tests/unixWm.test:
	* tests/visual_bb.test:
	* tests/winClipboard.test: tests for the dash patch changes

1 files changed, 9 insertions, 6 deletions

diff --git a/tests/unixFont.test b/tests/unixFont.test
index 896eda9..687faed 100644
--- a/tests/unixFont.test
+++ b/tests/unixFont.test
@@ -12,7 +12,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: unixFont.test,v 1.3 1999/04/16 01:51:42 stanton Exp $
+# RCS: @(#) $Id: unixFont.test,v 1.4 1999/12/14 06:53:15 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -50,7 +50,7 @@ proc getsize {} {
     return "[winfo reqwidth .b.l] [winfo reqheight .b.l]"
 }
 
-test unixfont-1.1 {TkpGetNativeFont procedure: not native} {
+test unixfont-1.1 {TkpGetNativeFont procedure: not native} {noExceed} {
     list [catch {font measure {} xyz} msg] $msg
 } {1 {font "" doesn't exist}}
 test unixfont-1.2 {TkpGetNativeFont procedure: native} {
@@ -61,19 +61,22 @@ test unixfont-2.1 {TkpGetFontFromAttributes procedure: no family} {
     font actual {-size 10}
     set x {}
 } {}
-test unixfont-2.2 {TkpGetFontFromAttributes procedure: Times relatives} {
+test unixfont-2.2 {TkpGetFontFromAttributes procedure: Times relatives} \
+	{noExceed} {
     set x {}
     lappend x [lindex [font actual {-family "Times New Roman"}] 1]
     lappend x [lindex [font actual {-family "New York"}] 1]
     lappend x [lindex [font actual {-family "Times"}] 1]
 } {times times times}
-test unixfont-2.3 {TkpGetFontFromAttributes procedure: Courier relatives} {
+test unixfont-2.3 {TkpGetFontFromAttributes procedure: Courier relatives} \
+	{noExceed} {
     set x {}
     lappend x [lindex [font actual {-family "Courier New"}] 1]
     lappend x [lindex [font actual {-family "Monaco"}] 1]
     lappend x [lindex [font actual {-family "Courier"}] 1]
 } {courier courier courier}
-test unixfont-2.4 {TkpGetFontFromAttributes procedure: Helvetica relatives} {
+test unixfont-2.4 {TkpGetFontFromAttributes procedure: Helvetica relatives} \
+	{noExceed} {
     set x {}
     lappend x [lindex [font actual {-family "Arial"}] 1]
     lappend x [lindex [font actual {-family "Geneva"}] 1]
@@ -92,7 +95,7 @@ test unixfont-2.7 {TkpGetFontFromAttributes: fixed family not available!} {
 test unixfont-2.8 {TkpGetFontFromAttributes: loop over returned font names} {
     lindex [font actual {-family fixed -size 31}] 1
 } {fixed}
-test unixfont-2.9 {TkpGetFontFromAttributes: reject adobe courier if possible} {
+test unixfont-2.9 {TkpGetFontFromAttributes: reject adobe courier if possible} {noExceed} {
     lindex [font actual {-family courier}] 1
 } {courier}
 test unixfont-2.10 {TkpGetFontFromAttributes: scalable font found} {