Return to 014.html CVS log

Up to [parser3project] / parser3 / tests

- tests for ^hash.containts and ^hash.delete were added
- more tests for .add, .sub, .union, .intersects and .intersections

@main[]
^setdata[]
^$a: ^print[$a]
^$b: ^print[$b]
<br />

^a.add[$b]
^^a.add[^$b]: ^print[$a]

^setdata[]
^a.sub[$b]
^^a.sub[^$b]: ^print[$a]

^setdata[]
$c[^a.intersection[$b]]
^$c[^^a.intersection[^$b]]: ^print[$c]

^setdata[]
$c[^a.union[$b]]
^$c[^^a.union[^$b]]: ^print[$c]

^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] $.3[a3]]
$b[    	$.2[b2] $.3[b3] $.4[b4]]


@print[h][t;k;v]
$t[^table::create{key	value
^h.foreach[k;v]{$k	$v}[^#0A]
}]
^t.sort{$t.key}
^t.menu{$t.key='$t.value'}[, ]<br />