suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PR 5440 requests that the 'electric' > in XML boxes work properly in

Browse Source 
this situation:

   <a x="<b

and, in particular, not do this:

   <a x="<b></b>

Looking into this a bit, it isnt' clear how to do this without actually
parsing the whole buffer, something that doesn't seem to be worth
the effort with the amount of use that the XML boxes seem to get

So, for now: closes PR 5440
This commit is contained in:
Robby Findler 2011-09-29 11:12:40 -05:00
parent ac8990d519
commit 2c018a749c
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/stepper/find-tag-test.rkt
View File

@ -15,6 +15,9 @@
(check-equal? (find-tag/end "<a>") "a")
(check-equal? (find-tag/end "<abcdef>") "abcdef")
(check-equal? (find-tag/end "<abcdef x=\"3\">") "abcdef")
(check-equal? (find-tag/end "<abcdef >") "abcdef")
(check-equal? (find-tag/end "<a><b>") "b")
(check-equal? (find-tag/end "<a x=\"z\"><b>") "b")
(check-equal? (find-tag/end "<a></a>") #f)
@ -24,3 +27,11 @@
(check-equal? (find-tag/end "<!-->") #f)
(check-equal? (find-tag/end "<>") #f)
;; would be nice to make these two tests work, but
;; it isn't clear what the right predicate is when
;; searching backwards to get thse right but
;; not also get this one wrong:
;; "<a x="z"><b>
; (check-equal? (find-tag/end "<a y=\"<b>") #f)
; (check-equal? (find-tag/end "<a y=\"<b><c>") #f)