--- parser3/tests/256.html	2010/09/29 03:25:51	1.1
+++ parser3/tests/256.html	2024/05/20 23:02:35	1.9
@@ -1,11 +1,11 @@
-@main[]
+@main[]
 $a[^hash::create[]]
 $b[$.a[$a]]
 $a.b[$b]
 
 $h[
 	$.hash[
-		$.void[]
+		$.void[$void]
 		$.bool-true(true)
 		$.bool-false(false)
 		$.int(1)
@@ -24,13 +24,18 @@ $h[
 	]
 
 	$.date[
-		$.value[^date::create(2006;08;18;06;09;00)]
+		$.value[^date::create(2026;08;18;06;09;00)]
 
 		$._options[
 			$.0[$.date[unix-timestamp]]
 			$.1[$.date[gmt-string]]
-			$.2[$.date[sql-string]]
-			$.3[$.date[$handler]]
+			$.2[$.date[iso-string]]
+			$.3[$.date[sql-string]]
+			$.4[$.date[$handler]]
+			$.5[
+				$.date[unsupported]
+				$.exception(true)
+			]
 		]
 	]
 
@@ -48,6 +53,12 @@ $h[
 			$.1[$.table[object] $.indent(true)]
 			$.2[$.table[array]]
 			$.3[$.table[array] $.indent(true)]
+			$.4[$.table[compact]]
+			$.5[$.table[compact] $.indent(true)]
+			$.6[
+				$.table[unsupported]
+				$.exception(true)
+			]
 		]
 	]
 
@@ -56,6 +67,14 @@ $h[
 
 		$._options[
 			$.0[$.my[$handler]]
+			$.1[
+				$.my[$unknown]
+				$.exception(true)
+			]
+			$.2[
+				$.my[$main]
+				$.exception(true)
+			]
 		]
 	]
 
@@ -68,15 +87,19 @@ $h[
 			$.0[$.file[text]]
 			$.1[$.file[base64] $.indent(true)]
 			$.2[$.file[$handler]]
+			$.3[$.file[stat]]
+			$.4[
+				$.file[unsupported]
+				$.exception(true)
+			]
 		]
 	]
 
 	$.image[
 		$.value[^image::create(100;100;0)]
 		$._options[
-			$.0[$.skip-unknown(true)]
 			$.1[$.image[$handler]]
-			$.2[$.exception(true)]
+			$.2[$.exception(false)]
 		]
 	]
 
@@ -88,9 +111,21 @@ $h[
 		]
 	]
 
+	$.xdoc[
+		$.value[^xdoc::create{<?xml version="1.0"?><r><t z="1"/></r>}]
+		$._options[
+			$.0[]
+			$.1[$.xdoc[
+				$.omit-xml-declaration[yes]
+				$.indent[yes]
+			]]
+		]
+	]
 ]
 
 ^h.table.table_named_3.append{v7	v8	v9	v0}
+^h.table.table_named_3.append{vA"}
+^h.table.table_named_3.append{vB\}
 
 $s[^h.foreach[k;v]{
 	<h3>$k</h3>
@@ -115,16 +150,16 @@ $bShouldBeException($options.exception)
 	$result[^json:string[$value;$options]^if($bShouldBeException){. FAILED. EXCEPTION SHOULD BE HERE}]
 }{
 	$exception.handled(true)
-	$result[Exception^if($bShouldBeException){. That's OK} ($exception.comment)]
+	$result["exception":"$exception.source, ^taint[as-is;$exception.comment]^if($bShouldBeException){. That's OK}"]
 }
 
 
-@handler[v;p][kk;vv]
+@handler[k;v;p][kk;vv]
 $result[^switch[$v.CLASS_NAME]{
 	^case[date]{"new Date(^v.unix-timestamp[])"}
 	^case[file]{{"file":{"name":"$v.name", "text":"$v.text", "params":"-params-"}}}
 	^case[image]{"image []"}
-	^case[DEFAULT]{"$v.CLASS_NAME"}
+	^case[DEFAULT]{"$v.CLASS_NAME at key $k, with ^p._count[] option"}
 }]