Тестирование нагрузки на сервер

Sikoz 02.11.2004 18:43

Попытался найти в форуме, не нашел, в результате родил вот это:)

$d1[^date::now[]]
^for[i](0;200){
$rr[^file::load[text;http://$env:SERVER_NAME]] 
^if(^math:random(10) == 5){^memory:compact[]}
}
$d2[^date::now[]]
Заграчено
^eval((^d2.unix-timestamp[] - ^d1.unix-timestamp[]) / 200)[%.3f]
секунд на 1 страницу

Что с локального компьютера, что с соседнего (100Mbit сетка) - результаты одинаковые, хотя если уменьшать цикл - результат растет. Потянет такой вариант?

---