From 45b823e71d667785d1d70314cec13e3ac2bab2ef Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 3 Nov 2011 02:20:50 -0400
Subject: * tests/008/students.txr: Use disciplined collect with :vars.

---
 tests/008/students.txr | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'tests/008')

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>
-- 
cgit v1.2.3