Attachment "tabify.patch" to
ticket [521590ffff]
added by
jenglish
2002-02-23 03:28:15.
? man.macros
Index: tabify.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/textutil/tabify.tcl,v
retrieving revision 1.5
diff -c -r1.5 tabify.tcl
*** tabify.tcl 18 Sep 2001 17:52:44 -0000 1.5
--- tabify.tcl 22 Feb 2002 20:27:16 -0000
***************
*** 262,267 ****
--- 262,268 ----
set inLst [split $string \n]
# now work on each line
+ set outLst [list]
foreach line $inLst {
lappend outLst [tabifyLine $line $num]
}
***************
*** 282,287 ****
--- 283,289 ----
set inLst [split $string \n]
+ set outLst [list]
foreach line $inLst {
lappend outLst [untabifyLine $line $num]
}
Index: tabify.test
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/textutil/tabify.test,v
retrieving revision 1.2
diff -c -r1.2 tabify.test
*** tabify.test 17 Sep 2001 21:40:50 -0000 1.2
--- tabify.test 22 Feb 2002 20:27:16 -0000
***************
*** 137,139 ****
--- 137,148 ----
test tabify-3.7 {version 2: untabify, tab size 8, multi line} {
::textutil::untabify2 "line 1\t\n\tline 2\nline 3\t\n\tline 4\n"
} "line 1 \n line 2\nline 3 \n line 4\n"
+
+ #
+ # Edge cases: test for empty string
+ #
+ test tabify-4.1 {tabify empty string} { textutil::tabify "" } ""
+ test tabify-4.2 {untabify empty string} { textutil::untabify ""} ""
+ test tabify-4.3 {tabify2 empty string} { textutil::tabify2 "" } ""
+ test tabify-4.4 {untabify2 empty string} { textutil::untabify2 ""} ""
+
