mirror of
https://github.com/reactos/reactos.git
synced 2024-11-05 22:26:39 +00:00
31 lines
983 B
Text
31 lines
983 B
Text
|
'
|
||
|
|
' Copyright 2011 Jacek Caban for CodeWeavers
|
||
|
|
'
|
||
|
|
' This library is free software; you can redistribute it and/or
|
||
|
|
' modify it under the terms of the GNU Lesser General Public
|
||
|
|
' License as published by the Free Software Foundation; either
|
||
|
|
' version 2.1 of the License, or (at your option) any later version.
|
||
|
|
'
|
||
|
|
' This library is distributed in the hope that it will be useful,
|
||
|
|
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
|
|
' Lesser General Public License for more details.
|
||
|
|
'
|
||
|
|
' You should have received a copy of the GNU Lesser General Public
|
||
|
|
' License along with this library; if not, write to the Free Software
|
||
|
|
' Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
||
|
|
'
|
||
|
|
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Dim winetest
|
||
|
|
Set winetest = CreateObject("Wine.Test")
|
||
|
|
|
||
|
|
Sub ok(expr, msg)
|
||
|
|
Call winetest.ok(expr, msg)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Call ok(WScript is WSH, "WScript is not WSH")
|
||
|
|
|
||
|
|
Call winetest.reportSuccess()
|