|
|
| version 1.80, 2005/01/20 14:10:29 | version 1.104, 2005/11/22 11:31:58 |
|---|---|
| Line 1 | Line 1 |
| @main[] | ^for[i](1;100){ |
| ^first[] | <hr> |
| ^if(def $error){ | $original[^for[j](1;$i){$j}] |
| ^if(^error.pos[koshmar]>=0){ | $original[^file::create[text;original.txt;$original]] |
| $error, TODO:recover | $original.text |
| }{ | <br> |
| $error, TODO:die | $encoded[^original.base64[]] |
| } | $encoded |
| <br> | |
| $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 | |
| } | |
| } | |