--- parser3/www/htdocs/Attic/_bug.html 2004/09/01 12:21:43 1.64 +++ parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:38:44 1.84.4.13 @@ -1,13 +1,13 @@ -
-^mail:send[
- $.from[from]
- $.to[to]
- $.html{
- cid=xxx
- }
- $.file[
- $.value[^file::load[binary;_bug.html]]
-# $.content-disposition[inline]
- $.content-disposition[]
- ]
-]
\ No newline at end of file
+^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]}
+}