Something went wrong. Try again.
Reactos
Something went wrong. Try again.
12345678910111213141516171819202122232425262728293031'' 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 winetestSet 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()