Jacek Caban : vbscript: Added isObject tests.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 1b854ba0c4917356e27fba80afc13e73f4e7aa87
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=1b854ba0c4917356e27fba80afc13e73f4e7aa87

Author: Jacek Caban <jacek at codeweavers.com>
Date:   Mon Sep 19 14:08:57 2011 +0200

vbscript: Added isObject tests.

---

 dlls/vbscript/tests/api.vbs |   35 +++++++++++++++++++++++++++++++++++
 dlls/vbscript/tests/rsrc.rc |    3 +++
 dlls/vbscript/tests/run.c   |    1 +
 3 files changed, 39 insertions(+), 0 deletions(-)

diff --git a/dlls/vbscript/tests/api.vbs b/dlls/vbscript/tests/api.vbs
new file mode 100644
index 0000000..2b2cf64
--- /dev/null
+++ b/dlls/vbscript/tests/api.vbs
@@ -0,0 +1,35 @@
+'
+' 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 reportSuccess()
diff --git a/dlls/vbscript/tests/rsrc.rc b/dlls/vbscript/tests/rsrc.rc
index 834df1d..0ca68d4 100644
--- a/dlls/vbscript/tests/rsrc.rc
+++ b/dlls/vbscript/tests/rsrc.rc
@@ -16,5 +16,8 @@
  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  */
 
+/* @makedep: api.vbs */
+api.vbs 40 "api.vbs"
+
 /* @makedep: lang.vbs */
 lang.vbs 40 "lang.vbs"
diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c
index 9aba091..b631c88 100644
--- a/dlls/vbscript/tests/run.c
+++ b/dlls/vbscript/tests/run.c
@@ -1098,6 +1098,7 @@ static void run_tests(void)
     CHECK_CALLED(testobj_propput_i);
 
     run_from_res("lang.vbs");
+    run_from_res("api.vbs");
 
     test_gc();
 }