1<?xml version="1.0" encoding="UTF-8"?>
2<script:module xmlns:script="http://openoffice.org/2000/script" script:name="task_XJob" script:language="StarBasic">
3
4'*************************************************************************
5'
6' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
7'
8' Copyright 2000, 2010 Oracle and/or its affiliates.
9'
10' OpenOffice.org - a multi-platform office productivity suite
11'
12' This file is part of OpenOffice.org.
13'
14' OpenOffice.org is free software: you can redistribute it and/or modify
15' it under the terms of the GNU Lesser General Public License version 3
16' only, as published by the Free Software Foundation.
17'
18' OpenOffice.org is distributed in the hope that it will be useful,
19' but WITHOUT ANY WARRANTY; without even the implied warranty of
20' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21' GNU Lesser General Public License version 3 for more details
22' (a copy is included in the LICENSE file that accompanied this code).
23'
24' You should have received a copy of the GNU Lesser General Public License
25' version 3 along with OpenOffice.org.  If not, see
26' <http://www.openoffice.org/license.html>
27' for a copy of the LGPLv3 License.
28'
29'*************************************************************************
30'*************************************************************************
31
32'*************************************************************************
33' This Interface/Service test depends on the following GLOBAL variables,
34' which must be specified in the object creation:
35
36'	Global vXJobArgs(0 to n) as Variant
37'   Example:
38'	Dim vXJobArg0(0 to 0) as new com.sun.star.beans.NamedValue
39'	Dim vXJobArg1(0 to 0) as new com.sun.star.beans.NamedValue
40'	vXJobArgs0(0).Name = "MyProperty": vXJobArg0(0).Vaue = "MyValue"
41'	vXJobArgs1(0).Name = "MyProperty": vXJobArg0(0).Vaue = "My2ndValue"
42'	vXJobArgs(0) = vXJobArg0()
43'	vXJobArgs(1) = vXJobArg1()
44
45
46'*************************************************************************
47
48
49' Be sure that all variables are dimensioned:
50option explicit
51
52
53
54
55Sub RunTest()
56
57'*************************************************************************
58' INTERFACE:
59' com.sun.star.task.XJob
60'*************************************************************************
61On Error Goto ErrHndl
62    Dim bOK As Boolean
63    Dim bRun as Boolean
64	Dim n as Integer
65
66    out.dbg("Start tests of com.sun.star.task.XJob #########")
67    ReCreateObj()
68
69    Test.StartMethod("execute()")
70
71	bOK = TRUE
72	for n = 0 to uBound(vXJobArgs())
73        bRun = FALSE
74		out.dbg("running vXJobArgs(" + n + ")")
75		bRun = oObj.execute(vXJobArgs(n))
76        bOK = bOK AND bRun
77        out.dbg("Result: " + bRun)
78	next n
79    Test.MethodTested("execute()", bOK)
80
81
82Exit Sub
83ErrHndl:
84    Test.Exception()
85    bOK = false
86    resume next
87End Sub
88</script:module>
89