--- parser3/tests/014.html	2003/07/24 11:25:57	1.2
+++ parser3/tests/014.html	2010/07/25 06:28:14	1.6
@@ -1,29 +1,41 @@
 @main[]
 ^setdata[]
+^$a: ^print[$a]
+^$b: ^print[$b]
+<br />
+
 ^a.add[$b]
-add:$a.3<br>
+^^a.add[^$b]: ^print[$a]
 
 ^setdata[]
 ^a.sub[$b]
-sub2:$a.2<br>
-sub1:$a.1<br>
-
-^setdata[]
-$c[^a.union[$b]]
-union3:$c.3<br>
-union2:$c.2<br>
+^^a.sub[^$b]: ^print[$a]
 
 ^setdata[]
 $c[^a.intersection[$b]]
-intersection3:$c.3<br>
-intersection2:$c.2<br>
+^$c[^^a.intersection[^$b]]: ^print[$c]
 
 ^setdata[]
-intersects:^if(^a.intersects[$b]){y;n}<br>
-intersects2:^if(^a.intersects[ ]){y;n}<br>
+$c[^a.union[$b]]
+^$c[^^a.union[^$b]]: ^print[$c]
 
-<hr>
+^setdata[]
+^^a.intersects[^$b]? ^if(^a.intersects[$b]){y;n}<br />
+^^a.intersects[ ]? ^if(^a.intersects[ ]){y;n}<br />
+^^a.intersects[^$.5[x5]]? ^if(^a.intersects[$.5[x5]]){y;n}<br />
+
+^^c.contains[1] ? ^if(^c.contains[1]){y;n}<br />
+^c.delete[2]
+^^c.delete[2], ^^c.contains[2] ? ^if(^c.contains[2]){y;n}<br />
+
+^^c.delete[^$empty]^c.delete[$empty]<br />
+^^c.delete[]: ^try{^c.delete[]}{$exception.handled(1)error}<br />
+^print[$c]
+<hr />
 
 @setdata[]
-$a[$.1[a1] $.2[a2]]
-$b[        $.2[b2] $.3[b3]]
+$a[$.1[a1] $.2[a2] $.3[a3]]
+$b[    	$.2[b2] $.3[b3] $.4[b4]]
+
+@print[h]
+^h.foreach[k;v]{$k='$v'}[, ]<br />