diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2011-11-03 02:20:50 -0400 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2011-11-03 02:20:50 -0400 |
| commit | 45b823e71d667785d1d70314cec13e3ac2bab2ef (patch) | |
| tree | 8358dcefd8ff82719e36b9e3199b34e3d470b602 /tests/008/students.txr | |
| parent | 75c7caa0d251cc30246512fd377377fad95b46f4 (diff) | |
| download | txr-45b823e71d667785d1d70314cec13e3ac2bab2ef.tar.gz txr-45b823e71d667785d1d70314cec13e3ac2bab2ef.tar.bz2 txr-45b823e71d667785d1d70314cec13e3ac2bab2ef.zip | |
* tests/008/students.txr: Use disciplined collect with :vars.
Diffstat (limited to 'tests/008/students.txr')
| -rw-r--r-- | tests/008/students.txr | 5 |
1 files changed, 1 insertions, 4 deletions
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> |