--- parser3/tests/223-curl.html	2016/08/03 21:19:24	1.1
+++ parser3/tests/223-curl.html	2024/12/13 12:58:34	1.3
@@ -4,7 +4,11 @@ $hHeader[
 	$.[^#0A^taint[as-is][^#0Aфыв]][зна^#0Aчение]
 ]
 
-$hForm[$hHeader]
+$hForm[^hash::create[$hHeader]
+	$.table[^table::create{value
+value
+значение}]
+]
 
 ^do[POST in ^$response:charset (UTF-8) w/o file;;$hForm]
 
@@ -55,7 +59,7 @@ $f[^curl:load[
 
 $text[^taint[as-is][$f.text]]
 # replace boundary by fixed string
-$text[^text.match[(-{10,12})-*[0-9a-fA-F]+(--)?][g]{${match.1}boundary-value$match.2}]
+$text[^text.match[(-{12})-*[0-9a-zA-Z]+(--)?][g]{${match.1}boundary-value$match.2}]
 # cut off the post's body is any
 $text[^text.match[POST:(.*)<EOF>][]{$post[$match.1]}]
 
@@ -63,7 +67,7 @@ $text[^text.match[POST:(.*)<EOF>][]{$pos
 $t[^table::create[nameless]{^taint[as-is][^text.replace[^table::create{a	b
  = 	^taint[^#09]
 ^taint[^#0A]	^taint[^#0A]}]]}]
-#$t[^t.select(!$h.[$t.0])]
+$t[^t.select($t.0 ne 'CONTENT_LENGTH')]
 ^t.sort{$t.0}
 
 # print all