--- parser3/www/htdocs/Attic/_bug.html 2004/10/07 09:23:44 1.69
+++ parser3/www/htdocs/Attic/_bug.html 2005/01/20 14:10:29 1.80
@@ -1,10 +1,29 @@
-^connect[oracle://iagency:pwd@oracle]{
- ^string:sql{select 2*2 from dual}
- ^try{
- ^string:sql{select 2*2x from dual}
+@main[]
+^first[]
+^if(def $error){
+ ^if(^error.pos[koshmar]>=0){
+ $error, TODO:recover
}{
- $exception.handled(1)
- exception($exception.comment) handled
+ $error, TODO:die
}
- ^string:sql{select 2*2 from dual}
}
+@first[]
+^second[]
+^if(!def $error){
+ working1
+}
+@second[]
+^if(^math:random(2)){
+ $error[koshmar,test1]
+}
+^if(!def $error){
+ working2
+
+ ^if(^math:random(2)){
+ $error[uzhas,test2]
+ }
+ ^if(!def $error){
+ working3
+ }
+}
+