--- parser3/www/htdocs/Attic/_bug.html 2005/07/29 06:17:38 1.92 +++ parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:31:58 1.104 @@ -1,10 +1,13 @@ -@USE -/_bug_derived.p -#/_bug.p - -@main[] -$bug[^bug_derived::create[value from ctor]] -read:$bug.paf
-write:$bug.paf[works]
-read:$bug.paf
- +^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]} +}