--- parser3/tests/344.html	2016/08/02 14:56:21	1.1
+++ parser3/tests/344.html	2016/08/02 15:19:23	1.3
@@ -7,5 +7,28 @@ $f1[^file::load[binary;247_utf8_bom.txt]
 $f[^file::create[$f1; $.mode[text] ]]
 ^show[f text from binary, automatic transcode by UTF-8 preambule;$f]
 
+$f[^file::create[$f1; $.mode[text] $.content-type[text/plain^; charset=Windows-1251] ]]
+^show[f text from binary no transcode as charset specified in content-type;$f]
+
+$f[^file::create[$f1; $.mode[text] $.from-charset[Windows-1251] ]]
+^show[f text from binary no transcode as from-charset specified;$f]
+
+$f1[^file::load[binary;247_utf8.txt]]
+^show[f1;$f1]
+
+$f[^file::create[$f1; $.mode[text] ]]
+^show[f text from binary, no transcode;$f]
+
+$f[^file::create[$f1; $.mode[text] $.from-charset[UTF-8] ]]
+^show[f text from binary transcode using from-charset;$f]
+
+^try-catch{ ^file::create[$f1; $.to-charset[UTF-8] $.charset[UTF-8] ] }
+
 @show[title;f]
-$title : ^json:string[$f; $.file[text] ]
+$title : {
+"name":"$f.name",
+"size":$f.size,
+"mode":"$f.mode",
+"content-type":"^taint[json;$f.content-type]",
+"text":"$f.text"
+}
\ No newline at end of file