--- parser3/tests/346-curl.html	2016/08/03 20:33:56	1.2
+++ parser3/tests/346-curl.html	2024/12/13 13:54:03	1.10
@@ -1,12 +1,109 @@
-^try-catch{ ^curl:info[] }
-^try-catch{ ^curl:options[ $.charset[UTF-8] ] }
-^try-catch{ ^curl:options[ $.url[http://parser.ru/] ] }
+@main[]
 
-^curl:session{ $s[^curl:version[]] }
+1. ^try-catch{ ^curl:info[] }
+2. ^try-catch{ ^curl:options[ $.charset[UTF-8] ] }
+3. ^try-catch{ ^curl:options[ $.url[http://parser.ru/] ] }
 
-^try-catch{ ^curl:options[ $.library[no-such-library.so] ] }
+4. ^curl:session{ $s[^curl:version[]] }
+
+5. ^try-catch{ ^curl:options[ $.library[no-such-library.so] ] }
+
+^curl:session{
+	6. ^try-catch{ ^curl:options[ $.url[ftp://parser.ru/] ] }
+	7. ^try-catch{ ^curl:options[ $.httppost[ $.name[ $.hash[] ]] ] }
+	8. ^try-catch{ ^curl:options[ $.httppost[string] ] }
+	8.1. ^try-catch{ ^curl:options[ $.httppost{code} ] }
+
+	8.2. ^try-catch{ ^curl:options[ $.httpheader[string] ] }
+	8.3. ^try-catch{ ^curl:options[ $.httpheader{code} ] }
+	8.4. ^try-catch{ ^curl:options[ $.httpheader{  } ] }
+
+	9. ^try-catch{ ^curl:options[ $.no-such-option[] ] }
+	10. ^try-catch{ ^curl:info[no-such-info] }
+	11. ^json:string[^curl:info[]]
+
+	^curl:options[
+		$.url[http://www.parser.ru/_/tests/readme]
+		$.timeout(5)
+	]
+
+	12. $f[^curl:load[
+		$.range[4-] 
+	]]
+
+	$f.text $f.CONTENT-RANGE
+
+	13. $f[^curl:load[
+		$.range[33-]
+	]]
+
+	$f.text $f.CONTENT-RANGE
+
+	13.1. ^try-catch{ ^curl:options[ $.http_version[unknown] ] }
+	13.2. ^try-catch{ ^curl:options[ $.http_version[1.0] ] }
+}
+
+14. ^show[text;
+	$.postfields[test]
+	$.useragent[^taint[parser 3]]
+
+	$.name[test.txt]
+	$.mode[binary]
+	$.content-type[something/text]
+]
+
+15. ^show[binary;
+	$.postfields[^file::load[binary;155.cfg]]
+]
 
 ^curl:session{
-    ^try-catch{ ^curl:options[ $.url[ftp://parser.ru/] ] }
-    ^json:string[^curl:info[]]
+
+16. ^show[empty post;
+	$.post(true)
+]
+
+17. ^show[empty get;
+	$.httppost[]
+	$.post(false)
+]
+
+}
+
+18. ^show[empty custompost;
+	$.customrequest[POST]
+]
+
+19. ^try-catch-filtered{ ^curl:load[ $.url[http://no-such-domain.parser.ru/] ] }
+
+@show[title;options][f;text;t;post]
+
+$f[^curl:load[
+	$options
+	$.timeout(5)
+	$.url[http://www.parser.ru/_/tests/223.pl]
+]]
+
+$title : {
+"name":"$f.name",
+"size":$f.size,
+"mode":"$f.mode",
+"content-type":"^taint[json;$f.content-type]",
 }
+
+$text[^taint[as-is][$f.text]]
+# cut off the post's body is any
+$text[^text.match[POST:(.*)<EOF>][]{$post[$match.1]}]
+
+# create table with http headers
+$t[^table::create[nameless]{^taint[as-is][^text.replace[^table::create{a	b
+ = 	^taint[^#09]
+^taint[^#0A]	^taint[^#0A]}]]}]
+^t.sort{$t.0}
+
+# print all
+<h3>Headers</h3>
+<pre>^t.menu{$t.0	: $t.1}[^#0A]</pre>
+
+<h3>Body</h3>
+<pre>^taint[as-is][$post]</pre>
+<hr />