diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/awt/XListBox/awt_XListBox.xba')
| -rw-r--r-- | qadevOOo/tests/basic/ifc/awt/XListBox/awt_XListBox.xba | 239 |
1 files changed, 239 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/awt/XListBox/awt_XListBox.xba b/qadevOOo/tests/basic/ifc/awt/XListBox/awt_XListBox.xba new file mode 100644 index 000000000000..f7ebe0b1603d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XListBox/awt_XListBox.xba @@ -0,0 +1,239 @@ +<?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="awt_XListBox" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org 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 version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +Dim bIL_itemStateChanged, bAL_actionPerformed As Boolean + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XListBox +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("addItemListener()") + Dim oIListener As Object + oIListener = createUnoListener("IL_", "com.sun.star.awt.XItemListener") + bIL_itemStateChanged = False + oObj.addItemListener(oIListener) + Out.Log("Can be checked only interactively !!!") + bOK = True + Test.MethodTested("addItemListener()", bOK) + + Test.StartMethod("removeItemListener()") + oObj.removeItemListener(oIListener) + bOK = True + Test.MethodTested("removeItemListener()", bOK) + + Test.StartMethod("addActionListener()") + Dim oAListener As Object + oAListener = createUnoListener("AL_", "com.sun.star.awt.XActionListener") + bAL_actionPerformed = False + Out.Log("Can be checked only interactively !!!") + oObj.addActionListener(oAListener) + bOK = True + Test.MethodTested("addActionListener()", bOK) + + Test.StartMethod("removeActionListener()") + oObj.removeActionListener(oAListner) + bOK = True + Test.MethodTested("removeActionListener()", bOK) + + Test.StartMethod("getItemCount()") + Dim itemCount As Integer + itemCount = oObj.getItemCount() + bOK = itemCount > 0 Or itemCount = 0 + Test.MethodTested("getItemCount()", bOK) + + Test.StartMethod("addItem()") + oObj.addItem("Item1", itemCount) + bOK = oObj.getItemCount() = (itemCount + 1) + Test.MethodTested("addItem()", bOK) + + Test.StartMethod("addItems()") + Dim oldCount As Integer + oldCount = oObj.getItemCount() + Dim items As Variant + items = Array("Item2", "Item3") + oObj.addItems(items, oldCount) + bOK = oObj.getItemCount() = (oldCount + 2) + Test.MethodTested("addItems()", bOK) + + Test.StartMethod("getItem()") + Dim item As String + item = oObj.getItem(itemCount) + bOK = (item = "Item1") + Test.MethodTested("getItem()", bOK) + + Test.StartMethod("getItems()") + Dim itms As Variant + itms = oObj.getItems() + bOK = True + Dim i As Integer + Dim iName As String + For i = itemCount to itemCount + 2 + iName = "Item" + (i + 1) + bOK = bOK And (iName = itms(i)) + Next i + Test.MethodTested("getItems()", bOK) + + Test.StartMethod("getSelectedItemPos()") + oObj.selectItemPos(1, True) + bOK = (oObj.getSelectedItemPos() = 1) + Test.MethodTested("getSelectedItemPos()", bOK) + + Test.StartMethod("setMultipleMode()") + oObj.setMultipleMode(True) + bOK = True + Test.MethodTested("setMultipleMode()", bOK) + + Test.StartMethod("selectItemsPos()") + Dim selItems As Variant + selItems = Array(0, 2) + oObj.selectItemsPos(selItems, True) + bOK = True + Test.MethodTested("selectItemsPos()", bOK) + + Test.StartMethod("getSelectedItemsPos()") + Dim cnt As Integer + cnt = oObj.getItemCount() + For i = 0 to cnt + oObj.selectItemPos(i, False) + Next i + selItems = Array(0, 2) + oObj.selectItemsPos(selItems, True) + Dim selItemsPos As Variant + selItemsPos = oObj.getSelectedItemsPos() + Out.Log("Selected items position:") + For i = 0 to ubound(selItemsPos) + Out.log(selItemsPos(i)) + Next i + bOK = (ubound(selItemsPos) = 1) And (selItemsPos(0) = "0") And (selItemsPos(1) = "2") + Test.MethodTested("getSelectedItemsPos()", bOK) + + Test.StartMethod("selectItem()") + bOK = true + oObj.selectItem("Item3", True) + Test.MethodTested("selectItem()", bOK) + + Test.StartMethod("getSelectedItem()") + cnt = oObj.getItemCount() + For i = 0 to cnt + oObj.selectItemPos(i, False) + Next i + oObj.selectItem("Item3", True) + bOK = (oObj.getSelectedItem() = "Item3") + Test.MethodTested("getSelectedItem()", bOK) + + Test.StartMethod("getSelectedItems()") + bOK = true + cnt = oObj.getItemCount() + For i = 0 to cnt + oObj.selectItemPos(i, False) + Next i + oObj.selectItemsPos(selItems, True) + items = oObj.getSelectedItems() + Out.Log("Selected items:") + For i = 0 to ubound(items) + Out.log(items(i)) + Next i + bOK = (ubound(items) = 1) And (oObj.getItem(0) = items(0)) And (oObj.getItem(2) = items(1)) + Test.MethodTested("getSelectedItems()", bOK) + + Test.StartMethod("selectItemPos()") + cnt = oObj.getItemCount() + For i = 0 to cnt + oObj.selectItemPos(i, False) + Next i + oObj.selectItemPos(1, True) + bOK = True + Test.MethodTested("selectItemPos()", bOK) + + Test.StartMethod("isMutipleMode()") + bOK = oObj.isMutipleMode() + Test.MethodTested("isMutipleMode()", bOK) + + Test.StartMethod("makeVisible()") + bOK = true + oObj.makeVisible(2) + Test.MethodTested("makeVisible()", bOK) + + Test.StartMethod("getDropDownLineCount()") + Dim lineCount As Integer + lineCount = oObj.getDropDownLineCount() + bOK = True + Test.MethodTested("getDropDownLineCount()", bOK) + + Test.StartMethod("setDropDownLineCount()") + oObj.setDropDownLineCount(lineCount + 1) + bOK = oObj.getDropDownLineCount() = (lineCount + 1) + Test.MethodTested("setDropDownLineCount()", bOK) + + Test.StartMethod("removeItems()") + cnt = oObj.getItemCount() + oObj.removeItems(0, cnt) + bOK = oObj.getItemCount() = 0 + Test.MethodTested("removeItems()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Sub IL_itemStateChanged + bIL_itemStateChanged = True + Out.Log("CallBack for ItemListener itemStateChanged was called.") +End Sub + +Sub AL_actionPerformed + bAL_actionPerformed = True + Out.Log("CallBack for ActionListener actionPerformed was called.") +End Sub + +Sub AL_disposing +End Sub + +Sub IL_disposing +End Sub +</script:module> |