| ' |
| ' 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 x |
| |
| Class EmptyClass |
| End Class |
| |
| Call ok(isObject(new EmptyClass), "isObject(new EmptyClass) is not true?") |
| Set x = new EmptyClass |
| Call ok(isObject(x), "isObject(x) is not true?") |
| Call ok(isObject(Nothing), "isObject(Nothing) is not true?") |
| Call ok(not isObject(true), "isObject(true) is true?") |
| Call ok(not isObject(4), "isObject(4) is true?") |
| Call ok(not isObject("x"), "isObject(""x"") is true?") |
| Call ok(not isObject(Null), "isObject(Null) is true?") |
| |
| Call ok(getVT(err) = "VT_DISPATCH", "getVT(err) = " & getVT(err)) |
| |
| Call reportSuccess() |
