1
# ---------------------------------------------------------------------------
3
# - afnix:sys module test unit -
4
# ---------------------------------------------------------------------------
5
# - This program is free software; you can redistribute it and/or modify -
6
# - it provided that this copyright notice is kept intact. -
8
# - This program is distributed in the hope that it will be useful, but -
9
# - without any warranty; without even the implied warranty of -
10
# - merchantability or fitness for a particular purpose. In no event shall -
11
# - the copyright holder be liable for any direct, indirect, incidental or -
12
# - special damages arising in any way out of the use of this software. -
13
# ---------------------------------------------------------------------------
14
# - copyright (c) 1999-2015 amaury darsch -
15
# ---------------------------------------------------------------------------
17
# @info performance meter unit
18
# @author amaury darsch
21
interp:library "afnix-sys"
23
# create a default performance meter
24
trans perf (afnix:sys:Meter)
25
assert "Meter" (perf:repr)
29
const info "afnix performance meter"
30
perf:set-name-info name info
31
assert name (perf:get-name)
32
assert info (perf:get-info)
34
# check default time/counter numbers
35
assert 1 (perf:get-meter-number)
36
assert 0 (perf:get-counter-number)
38
# check reference time
39
assert 0 (perf:get-reference-time 0)
40
trans tref (perf:set-reference-time)
41
assert tref (perf:get-reference-time 0)
43
trans tmtr (perf:stamp 0)
44
assert tmtr (perf:get-meter 0)
47
trans perf (afnix:sys:Meter 1 0)
48
# check default time/counter numbers
49
assert 0 (perf:get-meter-number)
50
assert 1 (perf:get-counter-number)
53
assert 0 (perf:get-counter 0)
54
trans pcnt (perf:mark 0)
56
assert pcnt (perf:get-counter 0)