| <?xml version="1.0" encoding="UTF-8"?> |
| <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> |
| <script:module xmlns:script="http://openoffice.org/2000/script" script:name="frame_XController" script:language="StarBasic"> |
| |
| |
| '************************************************************************* |
| ' |
| ' Licensed to the Apache Software Foundation (ASF) under one |
| ' or more contributor license agreements. See the NOTICE file |
| ' distributed with this work for additional information |
| ' regarding copyright ownership. The ASF licenses this file |
| ' to you under the Apache License, Version 2.0 (the |
| ' "License"); you may not use this file except in compliance |
| ' with the License. You may obtain a copy of the License at |
| ' |
| ' http://www.apache.org/licenses/LICENSE-2.0 |
| ' |
| ' Unless required by applicable law or agreed to in writing, |
| ' software distributed under the License is distributed on an |
| ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| ' KIND, either express or implied. See the License for the |
| ' specific language governing permissions and limitations |
| ' under the License. |
| ' |
| '************************************************************************* |
| |
| |
| |
| |
| |
| '************************************************************************* |
| ' This Interface/Service test depends on the following GLOBAL variables, |
| ' which must be specified in the object creation: |
| |
| ' - Global oFrameToAttach As Object |
| ' - Global oModelToAttach As Object |
| ' - Global bHasNoViewData As Boolean |
| ' - Global oObjToSuspend As Object |
| ' - Global bHasNoModel As Boolean |
| |
| '************************************************************************* |
| |
| |
| |
| |
| |
| Sub RunTest() |
| |
| '************************************************************************* |
| ' INTERFACE: |
| ' com.sun.star.frame.XController |
| '************************************************************************* |
| On Error Goto ErrHndl |
| Dim bOK As Boolean |
| |
| Test.StartMethod("getViewData()") |
| bOK = true |
| if (bHasNoViewData) then |
| Out.Log("This object has no ViewData - nothing to test") |
| else |
| oViewData = oObj.getViewData() |
| bOK = bOK AND NOT isNULL(oViewData) |
| end if |
| Test.MethodTested("getViewData()", bOK) |
| |
| Test.StartMethod("restoreViewData()") |
| bOK = true |
| if (bHasNoViewData) then |
| Out.Log("This object has no ViewData - nothing to test") |
| else |
| oObj.restoreViewData(oViewData) |
| end if |
| Test.MethodTested("restoreViewData()", bOK) |
| |
| Test.StartMethod("getFrame()") |
| bOK = true |
| oFrame = oObj.getFrame() |
| bOK = bOK AND hasUnoInterfaces(oFrame, "com.sun.star.frame.XFrame") |
| Test.MethodTested("getFrame()", bOK) |
| |
| Test.StartMethod("getModel()") |
| bOK = true |
| oModel = oObj.getModel() |
| if (bHasNoModel) then |
| bOK = bOK AND isNull(oModel) |
| Out.Log("The object has no Model. Retunrned value must be NULL") |
| else |
| bOK = bOK AND NOT isNull(oModel) AND hasUnoInterfaces(oModel, "com.sun.star.frame.XModel") |
| end if |
| Test.MethodTested("getModel()", bOK) |
| |
| Test.StartMethod("attachFrame()") |
| bOK = true |
| Dim attachedFrame As Object |
| attachedFrame = oObj.getFrame() |
| oFrameToAttach.Name = "XController" |
| oObj.attachFrame(oFrameToAttach) |
| bOK = bOK AND oObj.getFrame.Name = oFrameToAttach.Name |
| ' return previous frame. |
| oObj.attachFrame(attachedFrame) |
| Test.MethodTested("attachFrame()", bOK) |
| |
| Test.StartMethod("attachModel()") |
| bOK = true |
| if bHasNoModel then |
| Out.Log("The object has no Model. Nothing to test.") |
| else |
| oObj.attachModel(oModelToAttach) |
| if isNull(oObj.getModel()) then |
| Out.Log("The model is NULL after setModel() call") |
| bOK = false |
| else |
| bOK = bOK AND oModelToAttach.location = oObj.getModel.location |
| end if |
| end if |
| Test.MethodTested("attachModel()", bOK) |
| |
| Test.StartMethod("suspend()") |
| bOK = true |
| bOK = bOK AND oObjToSuspend.suspend(true) |
| Test.MethodTested("suspend()", bOK) |
| |
| Exit Sub |
| ErrHndl: |
| Test.Exception() |
| bOK = false |
| resume next |
| End Sub |
| </script:module> |