--- parser3/www/htdocs/Attic/_bug.html 2004/02/25 13:40:23 1.10
+++ parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:31:58 1.104
@@ -1,17 +1,13 @@
-@main[]
-$request:charset[UTF-8]
-#$response:charset[UTF-8]
-$response:charset[windows-1251]
-$response:content-type[$.value[text/html]$.charset[$response:charset]]
-$xdoc[^xdoc::create{
-
-исходный
-
-}]
-$xdoc[^xdoc.transform[_bug.xsl]]
-^xdoc.string[]
-#^xdoc.save[_bug-koi.xml;$.encoding[koi8-r]]
-#^xdoc.save[_bug-in-request-charset.xml]
+^for[i](1;100){
-$request:charset/$response:charset
\ No newline at end of file
+$original[^for[j](1;$i){$j}]
+$original[^file::create[text;original.txt;$original]]
+$original.text
+
+$encoded[^original.base64[]]
+$encoded
+
+$decoded[^file::base64[$encoded]]
+$decoded.text
+^if($decoded.text ne $original.text){^throw[bug;here]}
+}