Best way to test Proc speed

[ComputerTech]

So is this a good/best way to test the proc speed?

Code: Select all

bind PUB - "!test" speed:test

proc speed:test {nick host hand chan text} {
set start [clock clicks]
putquick "MODE $chan +o $nick"
set end [clock clicks]
puthelp "PRIVMSG $chan : Timespan: [expr ($end-$start)/1000.0]ms"
}

(Found this code from http://forum.egghelp.org/viewtopic.php?t=20784 | thanks to caesar)

[willyw]

Check out:

http://www.tcl.tk/man/tcl8.6/TclCmd/time.htm

You'll find it interesting.

After that, you might like to visit:

https://www.tcl.tk/man/tcl8.5/tutorial/Tcl39.html

too.

I hope this helps.

[ComputerTech]

thanks willyw, appreciate it

[ComputerTech]

Just thought i'd post my finished working proc speed test code

Code: Select all

bind PUB - "!speed" do:test

proc proc:name {nick host hand chan text} {
putserv "PRIVMSG $chan :foo"
}

proc do:test {nick host hand chan text} {
set foo [ time {proc:name $nick $host $hand $chan $text} 1]
set aoo [lindex [split $foo] 0]
set qoo "[expr {$aoo / 1000.00}]ms"
puthelp "PRIVMSG $chan :Proc Name : $tproc"
puthelp "PRIVMSG $chan :Proc Speed: $qoo"
}

[caesar]

The clock clicks should yield the same results.

[ComputerTech]

Just curious why the "time" command yields different milliseconds each time

Code: Select all

125 microseconds per iteration
% time {puts "hello"} 1
hello
121 microseconds per iteration
% time {puts "hello"} 1
hello
126 microseconds per iteration
% time {puts "hello"} 1
hello
126 microseconds per iteration
% time {puts "hello"} 1
hello
126 microseconds per iteration
% time {puts "hello"} 1
hello
123 microseconds per iteration
% time {puts "hello"} 1
hello
92 microseconds per iteration
%

^^ on tclsh

[CrazyCat]

Just because the cpu could be used for other / different things and not 100% of the cpu (nor the same percentage) is dedicated to tclsh.

[ComputerTech]

Okay, so what would be an alternative way to test proc speed and not rely on CPU ? would need exact 0.00seconds to compare different procs

thanks in advanced

[CrazyCat]

You can't.
"Proc speed" means nothing, it can only be compared to another one.

But you can use time with a greater number of iteration (I usually use 1000), it will give you an average speed which is more relevant

Edit: you can find short infos on https://wiki.tcl-lang.org/page/How+to+M ... erformance

[ComputerTech]

Thanks CrazyCat