45 lines
923 B
Factor
Executable File
45 lines
923 B
Factor
Executable File
IN: tools.profiler.tests
|
|
USING: tools.profiler tools.test kernel memory math threads
|
|
alien tools.profiler.private sequences ;
|
|
|
|
[ t ] [
|
|
\ length profile-counter
|
|
10 [ { } length drop ] times
|
|
\ length profile-counter =
|
|
] unit-test
|
|
|
|
[ ] [ [ 10 [ gc ] times ] profile ] unit-test
|
|
|
|
[ ] [ [ 1000 sleep ] profile ] unit-test
|
|
|
|
[ ] [ profile. ] unit-test
|
|
|
|
[ ] [ vocabs-profile. ] unit-test
|
|
|
|
[ ] [ "kernel.private" vocab-profile. ] unit-test
|
|
|
|
[ ] [ \ + usage-profile. ] unit-test
|
|
|
|
: callback-test ( -- callback ) "void" { } "cdecl" [ ] alien-callback ;
|
|
|
|
: indirect-test ( callback -- ) "void" { } "cdecl" alien-indirect ;
|
|
|
|
: foobar ;
|
|
|
|
[
|
|
[ ] [ callback-test indirect-test ] unit-test
|
|
foobar
|
|
] profile
|
|
|
|
[ 1 ] [ \ foobar profile-counter ] unit-test
|
|
|
|
: fooblah { } [ ] each ;
|
|
|
|
: foobaz fooblah fooblah ;
|
|
|
|
[ foobaz ] profile
|
|
|
|
[ 1 ] [ \ foobaz profile-counter ] unit-test
|
|
|
|
[ 2 ] [ \ fooblah profile-counter ] unit-test
|