diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | tests/008/students.txr | 5 |
2 files changed, 5 insertions, 4 deletions
@@ -1,5 +1,9 @@ 2011-11-03 Kaz Kylheku <kaz@kylheku.com> + * tests/008/students.txr: Use disciplined collect with :vars. + +2011-11-03 Kaz Kylheku <kaz@kylheku.com> + * tests/008/students.txr: Regexes removed. 2011-11-02 Kaz Kylheku <kaz@kylheku.com> diff --git a/tests/008/students.txr b/tests/008/students.txr index 7d555227..8cf437cb 100644 --- a/tests/008/students.txr +++ b/tests/008/students.txr @@ -1,5 +1,5 @@ <Students> -@(collect) +@(collect :vars (NAME GENDER YEAR MONTH DAY (PET_TYPE "none") (PET_NAME ""))) @ (cases) <Student Name="@NAME" Gender="@GENDER" DateOfBirth="@YEAR-@MONTH-@DAY"@(skip) @ (or) @@ -7,9 +7,6 @@ @ (end) @ (maybe) <Pet Type="@PET_TYPE" Name="@PET_NAME" /> -@ (or) -@ (bind PET_TYPE "none") -@ (bind PET_NAME "") @ (end) @(until) </Students> |