blob: 020c1245ba5953a41ac8ee78b298758cf7b6fbba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
'
' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
'
' Test built-in compatibility versions of methods whose absence
' is really felt in VBA, and large numbers of macros import from
' the system.
'
Option VBASupport 1
Option Explicit
Private Declare Function QueryPerformanceCounter Lib "kernel32" (ByRef lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByRef lpFrequency As Currency) As Long
Function doUnitTest() As String
TestUtil.TestInit()
verify_win32compat
doUnitTest = TestUtil.GetResult()
End Function
Sub verify_win32compat()
Dim freq As Currency
Dim count_a As Currency
Dim count_b As Currency
Dim success As Long
On Error GoTo errorHandler
success = QueryPerformanceFrequency(freq)
TestUtil.Assert(success <> 0, "QueryPerformanceFrequency")
TestUtil.Assert(freq > 0, "QueryPerformanceFrequency", "perf. frequency is incorrect " & freq)
success = QueryPerformanceCounter(count_a)
TestUtil.Assert(success <> 0, "QueryPerformanceCounter(count_a)")
success = QueryPerformanceCounter(count_b)
TestUtil.Assert(success <> 0, "QueryPerformanceCounter(count_b)")
TestUtil.Assert(count_a < count_b, "count mismatch " & count_a & " is > " & count_b)
Exit Sub
errorHandler:
TestUtil.ReportErrorHandler("verify_win32compat", Err, Error$, Erl)
End Sub
|
