|
version 1.48, 2004/06/18 15:55:47
|
version 1.103, 2005/11/22 11:21:35
|
|
Line 1
|
Line 1
|
| ^connect[oracle://mts_imprimatur2:imp2@mts]{ |
^for[i](1;200){ |
| # ^void:sql{create table paf(a clob)} |
<hr> |
| # ^void:sql{insert into paf (a) values (/**a**/'a')} |
$original[^for[j](1;$i){$j}] |
| # ^void:sql{insert into paf (a) values (:unk)} |
$original |
| ^void:sql{delete from pif} |
<br> |
| ^void:sql{call paf(:a)}[ |
$encoded[^original.base64[]] |
| $.bind[ |
$encoded |
| $.a[2] |
<br> |
| ] |
$decoded[^string:base64[$encoded]] |
| ] |
$decoded |
| ^int:sql{select count(*) from pif} |
^if($decoded ne $original){^throw[bug;here]} |
| "^string:sql{select a from pif}" |
|
| |
|
| # ^string:sql{select a from paf} |
|
| OK |
|
| } |
} |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to _bug.html CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / www / htdocs