--- parser3/www/htdocs/Attic/_bug.html 2005/01/20 14:10:29 1.80
+++ parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:31:58 1.104
@@ -1,29 +1,13 @@
-@main[]
-^first[]
-^if(def $error){
- ^if(^error.pos[koshmar]>=0){
- $error, TODO:recover
- }{
- $error, TODO:die
- }
+^for[i](1;100){
+
+$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]}
}
-@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
- }
-}
-