9fc2c47d53
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1908 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
70 lines
1.4 KiB
Plaintext
70 lines
1.4 KiB
Plaintext
================================================================
|
|
Logtalk - Open source object-oriented logic programming language
|
|
Release 2.30.2
|
|
|
|
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
|
================================================================
|
|
|
|
|
|
% start by loading the example by choosing one of the loader files
|
|
% (you must quit and restart Logtalk for each testing scenario):
|
|
|
|
|
|
% run benchmarks with event support turned on:
|
|
|
|
| ?- logtalk_load(benchmarks(loader_events)).
|
|
...
|
|
|
|
|
|
% run benchmarks with event support turned off:
|
|
|
|
| ?- logtalk_load(benchmarks(loader_no_events)).
|
|
...
|
|
|
|
|
|
% run benchmarks with event support turned off and using static binding:
|
|
|
|
| ?- logtalk_load(benchmarks(loader_static_binding)).
|
|
...
|
|
|
|
|
|
% list all the benchmark tests:
|
|
|
|
| ?- benchmarks::benchmark(Id, Goal).
|
|
|
|
Goal = my_length([0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19],_)
|
|
Id = s1 ? ;
|
|
|
|
Goal = object::length([0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19],_)
|
|
Id = s2 ? ;
|
|
|
|
Goal = create_object(xpto,[],[],[]),abolish_object(xpto)
|
|
Id = d1 ? ;
|
|
|
|
Goal = plain_dyndb
|
|
Id = d2 ? ;
|
|
|
|
Goal = database::this_dyndb
|
|
Id = d3 ? ;
|
|
|
|
Goal = database::self_dyndb
|
|
Id = d4 ? ;
|
|
|
|
Goal = database::obj_dyndb
|
|
Id = d5
|
|
|
|
yes
|
|
|
|
|
|
% run all the benchmark tests the default number of times:
|
|
|
|
| ?- benchmarks::run.
|
|
...
|
|
|
|
|
|
% or run specific benchmark tests individually, for example:
|
|
|
|
|
|
| ?- benchmarks::run(s1, 1000000).
|
|
...
|