From eed4bea0be5e6a437943a58152e4f8ebde40fd66 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Wed, 19 May 2004 12:48:32 +0000
Subject: Fix whitespace

---
 tests/opt.test | 39 ++-------------------------------------
 1 file changed, 2 insertions(+), 37 deletions(-)

diff --git a/tests/opt.test b/tests/opt.test
index 1ed075d..b7e3a55 100644
--- a/tests/opt.test
+++ b/tests/opt.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: opt.test,v 1.8 2000/07/18 21:30:41 ericm Exp $
+# RCS: @(#) $Id: opt.test,v 1.9 2004/05/19 12:48:32 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -39,7 +39,6 @@ test opt-2.1 {OptKeyDelete} {
 	    [info exists ::tcl::OptDesc(testkey)]
 } {testkey 1 {} 0}
 
-
 test opt-3.1 {OptParse / temp key is removed} {
     set n $::tcl::OptDescN
     set prev [array names ::tcl::OptDesc]
@@ -50,8 +49,6 @@ test opt-3.1 {OptParse / temp key is removed} {
 	    [info exists ::tcl::OptDesc($n)]\
 	    [expr {"[lsort $prev]"=="[lsort [array names ::tcl::OptDesc]]"}]
 } {1 {} {} 0 1}
-
-
 test opt-3.2 {OptParse / temp key is removed even on errors} {
     set n $::tcl::OptDescN
     catch {::tcl::OptKeyDelete $n}
@@ -65,7 +62,6 @@ test opt-4.1 {OptProc} {
     ::tcl::OptKeyDelete optTest
 } {}
 
-
 test opt-5.1 {OptProcArgGiven} {
     ::tcl::OptProc optTest {{-foo}} {
 	if {[::tcl::OptProcArgGiven "-foo"]} {
@@ -85,7 +81,6 @@ test opt-6.1 {OptKeyParse} {
     ------------ ---- ----- ----
     ( -help                 gives this help )}}
 
-
 test opt-7.1 {OptCheckType} {
     list \
 	    [::tcl::OptCheckType 23 int] \
@@ -102,7 +97,6 @@ test opt-7.1 {OptCheckType} {
 	    [catch {::tcl::OptCheckType foo choice {x y Foo z}}]
 } {23 23.0 1 -blah {a b c} maYbe 1 1 1 1 1 1}
 
-
 test opt-8.1 {List utilities} {
     ::tcl::Lempty {}
 } 1
@@ -112,37 +106,32 @@ test opt-8.2 {List utilities} {
 test opt-8.3 {List utilities} {
     ::tcl::Lget {a {b c d} e} {1 2}
 } d
-
 test opt-8.4 {List utilities} {
     set l {a {b c d e} f}
     ::tcl::Lvarset l {1 2} D
     set l
 } {a {b c D e} f}
-
 test opt-8.5 {List utilities} {
     set l {a b c}
     ::tcl::Lvarset1 l 6 X
     set l
 } {a b c {} {} {} X}
-
 test opt-8.6 {List utilities} {
     set l {a {b c 7 e} f}
     ::tcl::Lvarincr l {1 2}
     set l
 } {a {b c 8 e} f}
-
 test opt-8.7 {List utilities} {
     set l {a {b c 7 e} f}
     ::tcl::Lvarincr l {1 2} -9
     set l
 } {a {b c -2 e} f}
-
+# 8.8 and 8.9 missing?
 test opt-8.10 {List utilities} {
     set l {a {b c 7 e} f}
     ::tcl::Lvarpop l
     set l
 } {{b c 7 e} f}
-
 test opt-8.11 {List utilities} {
     catch {unset x}
     set l {a {b c 7 e} f}
@@ -157,7 +146,6 @@ test opt-9.1 {Misc utilities} {
     ::tcl::SetMax v 6
     set v
 } 7
-
 test opt-9.2 {Misc utilities} {
     catch {unset v}
     ::tcl::SetMin v 3
@@ -176,21 +164,18 @@ test opt-10.1 {ambigous flags} {
     -fla      boolflag (false) 
     -flag2xyz boolflag (false) 
     -flag3xyz boolflag (false) }
-
 test opt-10.2 {non ambigous flags} {
     ::tcl::OptProc optTest {{-flag1xyz} {-other} {-flag2xyz} {-flag3xyz}} {
 	return $flag2xyz
     }
     optTest -fLaG2
 } 1
-
 test opt-10.3 {non ambigous flags because of exact match} {
     ::tcl::OptProc optTest {{-flag1x} {-other} {-flag1} {-flag1xy}} {
 	return $flag1
     }
     optTest -flAg1
 } 1
-
 test opt-10.4 {ambigous flags, not exact match} {
     ::tcl::OptProc optTest {{-flag1xy} {-other} {-flag1} {-flag1xyz}} {
 	return $flag1
@@ -201,8 +186,6 @@ test opt-10.4 {ambigous flags, not exact match} {
     -flag1xy  boolflag (false) 
     -flag1xyz boolflag (false) }
 
-
-
 # medium size overall test example: (defined once)
 ::tcl::OptProc optTest {
     {cmd -choice {print save delete} "sub command to choose"}
@@ -218,8 +201,6 @@ test opt-10.5 {medium size overall test} {
     list [catch {optTest} msg] $msg
 } {1 {no value given for parameter "cmd" (use -help for full usage) :
     cmd choice (print save delete) sub command to choose}}
-
-
 test opt-10.6 {medium size overall test} {
     list [catch {optTest -help} msg] $msg
 } {1 {Usage information:
@@ -231,19 +212,15 @@ test opt-10.6 {medium size overall test} {
     arg2         string   ()      this is help
     ?arg3?       int      (7)     optional number
     -moreflags   boolflag (false) }}
-
 test opt-10.7 {medium size overall test} {
     optTest save tst
 } {save 1 tst 7 0}
-
 test opt-10.8 {medium size overall test} {
     optTest save -allowBoing false -- 8
 } {save 0 8 7 0}
-
 test opt-10.9 {medium size overall test} {
     optTest save tst -m --
 } {save 1 tst 7 1}
-
 test opt-10.10 {medium size overall test} {
     list [catch {optTest save tst foo} msg] [lindex [split $msg "\n"] 0]
 } {1 {too many arguments (unexpected argument(s): foo), usage:}}
@@ -268,15 +245,3 @@ test opt-11.2 {default value for args} {
 # cleanup
 ::tcltest::cleanupTests
 return
-
-
-
-
-
-
-
-
-
-
-
-
-- 
cgit v0.12