Annotation of parser3/tests/343.html, revision 1.1
1.1 ! moko 1: @main[]
! 2:
! 3: $f1[^file::create[ัะตัั]]
! 4: ^show[f1;$f1]
! 5:
! 6: $f2[^file::create[$f1; $.to-charset[windows-1251] $.content-type[text/plain^; charset=Windows-1251] ]]
! 7: ^show[f2;$f2]
! 8:
! 9: $f3[^file::create[$f2; $.mode[binary] ]]
! 10: ^show[f2 binary;$f3]
! 11:
! 12: $f[^file::create[$f2; $.mode[text] ]]
! 13: ^show[f text from text, no transcode;$f]
! 14:
! 15: $f[^file::create[$f3]]
! 16: ^show[binary from binary, no transcode;$f]
! 17:
! 18: $f[^file::create[$f2; $.from-charset[Windows-1251] ]]
! 19: ^show[f text from text with transcode;$f]
! 20:
! 21: $f[^file::create[$f3; $.mode[text] ]]
! 22: ^show[f text from binary, automatic transcode;$f]
! 23:
! 24: ^try-catch{ ^file::create[$f3; $.no-such-option[] ] }
! 25: ^try-catch{ ^file::create[$f3; $.from-charset[Windows-1251] ] }
! 26: ^try-catch{ ^file::create[$f2; $.mode[binary] $.from-charset[Windows-1251] ] }
! 27:
! 28: @show[title;f]
! 29: $title : ^json:string[$f; $.file[text] ]
E-mail: