1 files changed, 0 insertions, 107 deletions
diff --git a/qadevOOo/tests/basic/ifc/form/XSubmit/form_XSubmit.xba b/qadevOOo/tests/basic/ifc/form/XSubmit/form_XSubmit.xba
deleted file mode 100644
index 596faa3e214e..000000000000
--- a/qadevOOo/tests/basic/ifc/form/XSubmit/form_XSubmit.xba
+++ /dev/null
@@ -1,107 +0,0 @@
-<?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="form_XSubmit" 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
-
-
-
-Sub RunTest()
-
-'*************************************************************************
-' INTERFACE: 
-' com.sun.star.form.XSubmit
-'*************************************************************************
-On Error Goto ErrHndl
-    Dim bOK As Boolean
-    Dim list1 As Object, list2 As Object
-    Dim event As new com.sun.star.awt.MouseEvent
-
-    Test.StartMethod("addSubmitListener()")
-    
-    l1Called = 0 : l2Called = 0 
-
-    bOK = true
-    list1 = createUnoListener("L1_", "com.sun.star.form.XSubmitListener")
-    list2 = createUnoListener("L2_", "com.sun.star.form.XSubmitListener")
-
-    Out.Log("add two listeners")
-    oObj.addSubmitListener(list1)
-    oObj.addSubmitListener(list2)
-
-    Test.StartMethod("removeSubmitListener()")
-    Out.Log("remove listener 1")
-    oObj.removeSubmitListener(list1)
-
-    Test.StartMethod("submit()")
-
-    l1Called = false
-    l2Called = false
-    
-    oObj.TargetURL = "someserver"
-    oObj.submit(NULL_OBJECT, event)
-    
-    wait(500)
-    
-    Out.Log("Listener1 was called " + l1Called + " times."
-    Out.Log("Listener2 was called " + l2Called + " times."
-
-    Test.MethodTested("addSubmitListener()", l2Called = 1)
-    Test.MethodTested("submit()", l2Called > 0)
-    Test.MethodTested("removeSubmitListener()", l1Called = 0)
-
-    Out.Log("remove listener 2")
-    oObj.removeSubmitListener(list2)
-
-Exit Sub
-ErrHndl:
-    Test.Exception()
-    bOK = false
-    resume next
-End Sub
-
-Dim l1Called As Integer
-Dim l2Called As Integer
-
-Function L1_approveSubmit() As Boolean
-    l1Called = l1Called + 1
-    L1_approveSubmit = true
-End Function
-
-Function L2_approveSubmit() As Boolean
-    l2Called = l2Called + 1
-    L2_approveSubmit = true
-End Function
-</script:module>