scrobj/tests: Add scriptlet tests.

Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>

configure

@@ -20773,6 +20773,7 @@ wine_fn_config_makefile dlls/schannel/tests enable_tests
 wine_fn_config_makefile dlls/schedsvc enable_schedsvc
 wine_fn_config_makefile dlls/schedsvc/tests enable_tests
 wine_fn_config_makefile dlls/scrobj enable_scrobj
+wine_fn_config_makefile dlls/scrobj/tests enable_tests
 wine_fn_config_makefile dlls/scrrun enable_scrrun
 wine_fn_config_makefile dlls/scrrun/tests enable_tests
 wine_fn_config_makefile dlls/scsiport.sys enable_scsiport_sys

configure.ac

@@ -3641,6 +3641,7 @@ WINE_CONFIG_MAKEFILE(dlls/schannel/tests)
 WINE_CONFIG_MAKEFILE(dlls/schedsvc)
 WINE_CONFIG_MAKEFILE(dlls/schedsvc/tests)
 WINE_CONFIG_MAKEFILE(dlls/scrobj)
+WINE_CONFIG_MAKEFILE(dlls/scrobj/tests)
 WINE_CONFIG_MAKEFILE(dlls/scrrun)
 WINE_CONFIG_MAKEFILE(dlls/scrrun/tests)
 WINE_CONFIG_MAKEFILE(dlls/scsiport.sys)

dlls/scrobj/tests/Makefile.in

@@ -0,0 +1,8 @@
+TESTDLL   = scrobj.dll
+IMPORTS   = oleaut32 ole32 advapi32 uuid
+
+C_SRCS = \
+	scrobj.c
+
+RC_SRCS = \
+	rsrc.rc

dlls/scrobj/tests/rsrc.rc

@@ -0,0 +1,20 @@
+/*
+ * Copyright 2019 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
+ */
+
+/* @makedep: scrobj.wsc */
+scrobj.wsc 40 "scrobj.wsc"

dlls/scrobj/tests/scrobj.wsc

@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+<component>
+  <registration description="WineTest object" progid="WineTest" version="1.23" classid="{a8a83483-a6ac-474d-b22a-9a5f2d68cb7f}">
+  </registration>
+  <public>
+    <method name="vbAddOne">
+      <PARAMETER name="n"></PARAMETER>
+    </method>
+    <method name="jsAddTwo">
+      <Parameter name="n"/>
+    </method>
+    <method name="wtTest">
+      <Parameter name="i"/>
+    </method>
+  </public>
+  <script language="VBScript">
+  <![CDATA[
+Option explicit
+Function vbAddOne( n )
+    vbAddOne = n + 1
+End Function
+]]>
+  </script>
+  <script language="JScript">
+  function jsAddTwo(n) { return n + 2; }
+  </script>
+  <script language="WTScript">WTTest body</script>
+</component>