--- parser3/src/www/htdocs/Attic/index.html	2001/08/23 11:08:52	1.274
+++ parser3/src/www/htdocs/Attic/index.html	2001/08/24 08:16:15	1.278
@@ -3,7 +3,9 @@ t.p
 dtf.p
 
 @main[]
-^oratest[]
+#^savetest[]
+^oratestinsert[]
+#^oratestread[]
 #^process_check[]
 #^ffcheck[]^[xxx]
 
@@ -11,8 +13,22 @@ dtf.p
 #^list[]
 #^tests[]
 #^func(0)<hr>
+
+@savetest[]
+$file[^file::load[text;index.html]]
+^file.save[binary;/some/dir/here.dat]
+OK
 	
-@oratest[]
+@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**/'бу''квы')}
+OK
+$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}]