add missing test for text% tab fix

Merge to 5.2
2011-10-13 06:03:10 -06:00 · 2011-10-13 06:03:10 -06:00 · 6d608e392c
commit 6d608e392c
parent 5fb2f56fdf
1 changed files with 10 additions and 0 deletions
--- a/collects/tests/gracket/wxme.rkt
+++ b/collects/tests/gracket/wxme.rkt
@ -1414,6 +1414,16 @@
  (expect (send t paragraph-end-position 3) 9)
  (expect (send t line-end-position 3) 9))

+;; ----------------------------------------
+;; tabs
+
+(let ([t1 (new text%)])
+  (send t1 set-admin (new test-editor-admin%))  
+  (send t1 set-tabs '(100 200 300 400 500 600 700 800 900 1000 100) 1 #t)
+  (send t1 insert "Hello\tWorld")
+  (send t1 get-extent (box 0) (box 0)))
+
+
 ;; ----------------------------------------

 (done)