--- parser3/src/www/htdocs/Attic/index.html	2001/09/11 08:43:39	1.307
+++ parser3/src/www/htdocs/Attic/index.html	2001/09/11 09:26:44	1.310
@@ -1,10 +1,18 @@
 @main[]
-^testdom3[]
+^testdom4[]
+#^testdom3[]
 #^testdom2[]
 #^testdom1[]
 #^testdom0[]
 OK
 
+@testdom4[]
+$dom[^dom::set{<?xml version="1.0" encoding="windows-1251"?>
+
+<doc>testing ïðîâåðêà ÏÐÎÂÅÐÊÀ. ^$form:a='$form:a'</doc>
+}]
+$response:body[^dom.file[$.encoding[windows-1251]]]
+
 @testdom3[]
 $dom[^dom::load[test.xml]]
 $dom[^dom.xslt[test.xsl;$.param1(48)]]
@@ -21,13 +29,13 @@ $dom[^dom::load[test.xml]]
 @testdom1[]
 $dom[^dom::load[test.xml]]
 $dom[^dom.xslt[test.xsl;$.param1(48)]]
-$response:body[^dom.file[windows-1251]]
+$response:body[^dom.file[$.encoding[windows-1251]]]
 
 @testdom0[]
 $dom[^dom::load[test.xml]]
-^dom.save[windows-1251;write.xml]
-^dom.string[windows-1251]
-$ôàéë[^dom.file[windows-1251]]
+^dom.save[$.encoding[windows-1251];write.xml]
+^dom.string[$.encoding[windows-1251]]
+$ôàéë[^dom.file[$.encoding[windows-1251]]]
 ^ôàéë.save[binary;writefile.xml]
 $response:body[$ôàéë]
 OK
\ No newline at end of file