|
|
| version 1.30, 2004/03/10 10:04:30 | version 1.104, 2005/11/22 11:31:58 |
|---|---|
| Line 1 | Line 1 |
| @main[] | |
| $request:charset[windows-1251] | |
| $response:charset[windows-1251] | |
| $response:content-type[text/html] | |
| $xdoc[^xdoc::load[_bug.xml]] | |
| #^xdoc.string[] | |
| $nodes[^xdoc.select[//x:second][ | |
| $.x[http://pif.design.ru/] | |
| ]] | |
| ^nodes._count[] | |
| ^for[i](1;100){ | |
| <hr> | |
| $original[^for[j](1;$i){$j}] | |
| $original[^file::create[text;original.txt;$original]] | |
| $original.text | |
| <br> | |
| $encoded[^original.base64[]] | |
| $encoded | |
| <br> | |
| $decoded[^file::base64[$encoded]] | |
| $decoded.text | |
| ^if($decoded.text ne $original.text){^throw[bug;here]} | |
| } |