--- parser3/src/www/htdocs/Attic/index.html	2001/08/21 11:12:20	1.269
+++ parser3/src/www/htdocs/Attic/index.html	2001/08/29 17:50:13	1.284
@@ -3,10 +3,95 @@ t.p
 dtf.p
 
 @main[]
+^t3partycooki[]
+#^t3partycookie[]
+#^tcookie[]
+#^tfilemove[]
+#^treplace[]
+#^measuretest[]
+#^savetest[]
+#^oratestinsert[]
+#^oratestread[]
+#^process_check[]
+#^ffcheck[]^[xxx]
+
 #$ORIGINS(1)
-#^func(0)<hr>
+#^list[]
 #^tests[]
-^list[]
+#^func(0)<hr>
+
+@t3partycookie2[]
+#z<img width=100 height=100 src=http://i/cgi-bin/p3p.cgi>z
+z<img width=100 height=100 src=http://i.office.design.ru/cgi-bin/p3p.cgi>z
+
+@t3partycookie[]
+z<img width=100 height=100 src=http://rotabanner.adex.ru/cgi-bin/banner/mail>z
+
+@tcookie[]
+$response:P3P[policyref="http://parser3/w3c/paf.xml"]
+$cookie:test[$form:x^math:random(100)]
+$env:HTTP_COOKIE<br>
+get:$cookie:test
+#<img src=http://parser3.office.design.ru/?x=coffice>
+
+@tfilemove[]
+^file:move[a/a;b/b]
+
+@treplace[]
+$шило-на-мыло[^table::set{a	b
+шило	мыло
+}]
+$строка[бывает шило в задице]
+^строка.replace[$шило-на-мыло]<BR>
+
+@measuretest[]
+$im[^image::measure[mm3.gif]]
+x:y=${im.width}:${im.height}<BR>
+
+@savetest[]
+$file[^file::load[text;index.html]]
+^file.save[binary;/some/dir/here.dat]
+OK
+	
+@oratestinsert[]
+^connect[oracle://mts_admin:admin_pwd@ORACLE.PAF.OFFICE.DESIGN.RU]{
+#^void:sql{create table lobtest(test clob)}
+^void:sql{insert into lobtest values (/**test**/'бу''квы')}
+$table[^table::sql{select * from lobtest}]
+^table.menu{^table.line[] <!--. $table.test -->}
+}
+
+@oratestread[]
+^connect[oracle://mts_admin:admin_pwd@ORACLE.PAF.OFFICE.DESIGN.RU]{
+^rem{
+$tables[^table::sql{select table_name from user_tables}]
+^tables.menu{
+	$tables.table_name<br>
+}
+<hr>
+}
+$news[^table::sql{select * from news}[$.limit(2)]]
+^rem{
+news columns:<br>
+$news_columns[^news.columns[]]
+^news_columns.menu{
+	$news_columns.column<br>
+}
+<hr>
+}
+news description:<br>
+^news.menu{
+<hr>
+	$news.description
+}
+}
+
+@process_check[]
+$f[^file::load[text;process.tpl]]
+^process[$f.text]
+
+@ffcheck[]
+^file:find[bug/index.html]{not found}
 
 @list[]
 $list[^file:list[.;.*\.html^$]]