Initial version of module files for scripting tests.

5 files changed, 660 insertions, 0 deletions

diff --git a/scripting/workben/mod/_scripting/Dispatch.java b/scripting/workben/mod/_scripting/Dispatch.java
new file mode 100644
index 000000000000..7871c583f1ee
--- /dev/null
+++ b/scripting/workben/mod/_scripting/Dispatch.java
@@ -0,0 +1,142 @@
+/*************************************************************************
+ *
+ *  $RCSfile: Dispatch.java,v $
+ *
+ *  $Revision: 1.1 $
+ *
+ *  last change:$Date: 2002-11-20 14:32:06 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  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., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (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.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+package mod._scripting;
+
+import java.net.URLEncoder;
+import java.io.PrintWriter;
+
+import lib.StatusException;
+import lib.TestCase;
+import lib.TestEnvironment;
+import lib.TestParameters;
+
+import util.utils;
+import util.SOfficeFactory;
+
+import com.sun.star.lang.XMultiServiceFactory;
+import com.sun.star.lang.XComponent;
+
+import com.sun.star.uno.XInterface;
+import com.sun.star.uno.UnoRuntime;
+
+import com.sun.star.frame.XModel;
+import com.sun.star.frame.XFrame;
+import com.sun.star.frame.XDesktop;
+
+
+import com.sun.star.util.URL;
+import com.sun.star.util.XURLTransformer;
+
+
+
+public class Dispatch extends TestCase {
+    //private String scriptURL = "script://MemoryUtils.MemUsage";
+    private String scriptURL = "script://HighlightText.showForm";
+    public void initialize( TestParameters tParam, PrintWriter log ) {
+    }
+
+    public synchronized TestEnvironment createTestEnvironment(
+        TestParameters tParam, PrintWriter log ) throws StatusException {
+    log.println("creating test environment");
+        XInterface oObj = null;
+        URL dispatchURL = null;
+        try {
+
+            XMultiServiceFactory xMSF = tParam.getMSF();
+            SOfficeFactory SOF = null;
+            SOF = SOfficeFactory.getFactory( xMSF );
+            String docPath = util.utils.getFullTestDocName( "ExampleSpreadSheetLatest.sxc" );
+            XComponent doc = SOF.loadDocument("file://" + docPath );
+            XModel model = ( XModel ) UnoRuntime.queryInterface( XModel.class,
+                doc );
+            XFrame frame = model.getCurrentController().getFrame();
+            oObj = ( XInterface )xMSF.createInstanceWithArguments( "com.sun.star.comp.ScriptProtocolHandler", new Object[] { frame } );
+
+            XURLTransformer xParser=(XURLTransformer)
+                UnoRuntime.queryInterface(XURLTransformer.class,
+                    tParam.getMSF().createInstance
+                        ("com.sun.star.util.URLTransformer"));
+            // Because it's an in/out parameter we must use an array of
+            // URL objects.
+            URL[] aParseURL = new URL[1];
+            aParseURL[0] = new URL();
+            aParseURL[0].Complete = scriptURL;
+            xParser.parseStrict(aParseURL);
+            dispatchURL = aParseURL[0];
+
+        } catch (com.sun.star.uno.Exception e) {
+            e.printStackTrace();
+            throw new StatusException("Can't create object environment", e) ;
+        }
+
+        TestEnvironment tEnv = new TestEnvironment(oObj) ;
+        tEnv.addObjRelation( "XDispatchProvider.URL", scriptURL );
+        tEnv.addObjRelation( "XDispatch.URL", dispatchURL );
+        return tEnv ;
+    }
+
+    public synchronized void disposeTestEnvironment( TestEnvironment tEnv,
+            TestParameters tParam) {
+    }
+}
+
+
diff --git a/scripting/workben/mod/_scripting/Function.java b/scripting/workben/mod/_scripting/Function.java
new file mode 100644
index 000000000000..eee5aac85b0c
--- /dev/null
+++ b/scripting/workben/mod/_scripting/Function.java
@@ -0,0 +1,124 @@
+/*************************************************************************
+ *
+ *  $RCSfile: Function.java,v $
+ *
+ *  $Revision: 1.1 $
+ *
+ *  last change:$Date: 2002-11-20 14:32:07 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  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., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (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.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+package mod._scripting;
+
+import com.sun.star.uno.XInterface;
+import java.io.PrintWriter;
+import lib.StatusException;
+import lib.TestCase;
+import lib.TestEnvironment;
+import lib.TestParameters;
+import util.utils;
+import java.net.URLEncoder;
+import com.sun.star.lang.XMultiServiceFactory;
+import com.sun.star.uno.UnoRuntime;
+
+import com.sun.star.frame.XModel;
+import com.sun.star.frame.XFrame;
+import com.sun.star.lang.XComponent;
+import com.sun.star.frame.XDesktop;
+
+import util.SOfficeFactory;
+
+import drafts.com.sun.star.script.framework.provider.XFunction;
+import drafts.com.sun.star.script.framework.provider.XFunctionProvider;
+
+public class Function extends TestCase {
+    //private String script = "script://MemoryUtils.MemUsage";
+    private String script = "script://HighlightText.showForm";
+    public void initialize( TestParameters tParam, PrintWriter log ) {
+    }
+
+    public synchronized TestEnvironment createTestEnvironment(
+        TestParameters tParam, PrintWriter log ) throws StatusException {
+        XInterface oObj = null;
+    log.println("creating test environment");
+        try {
+
+            XMultiServiceFactory xMSF = tParam.getMSF();
+            SOfficeFactory SOF = null;
+            SOF = SOfficeFactory.getFactory( xMSF );
+            String docPath = util.utils.getFullTestDocName( "ExampleSpreadSheetLatest.sxc" );
+            XComponent doc = SOF.loadDocument("file://" + docPath );
+            XModel model = ( XModel ) UnoRuntime.queryInterface( XModel.class,
+                doc );
+            oObj  =
+                (XInterface)xMSF.createInstanceWithArguments( "drafts.com.sun.star.script.framework.provider.FunctionProvider", new Object[]{ model } );
+            XFunctionProvider provider = ( XFunctionProvider )UnoRuntime.queryInterface( XFunctionProvider.class, oObj );
+            oObj = provider.getFunction( script );
+
+        } catch (com.sun.star.uno.Exception e) {
+            e.printStackTrace();
+            throw new StatusException("Can't create object environment", e) ;
+        }
+
+        TestEnvironment tEnv = new TestEnvironment(oObj) ;
+
+        return tEnv ;
+    }
+
+    public synchronized void disposeTestEnvironment( TestEnvironment tEnv,
+            TestParameters tParam) {
+    }
+}
+
+
diff --git a/scripting/workben/mod/_scripting/FunctionProvider.java b/scripting/workben/mod/_scripting/FunctionProvider.java
new file mode 100644
index 000000000000..8d949be40a6f
--- /dev/null
+++ b/scripting/workben/mod/_scripting/FunctionProvider.java
@@ -0,0 +1,115 @@
+/*************************************************************************
+ *
+ *  $RCSfile: FunctionProvider.java,v $
+ *
+ *  $Revision: 1.1 $
+ *
+ *  last change:$Date: 2002-11-20 14:32:07 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  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., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (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.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+package mod._scripting;
+
+import com.sun.star.uno.XInterface;
+import java.io.PrintWriter;
+import lib.StatusException;
+import lib.TestCase;
+import lib.TestEnvironment;
+import lib.TestParameters;
+import util.utils;
+import java.net.URLEncoder;
+import com.sun.star.lang.XMultiServiceFactory;
+import com.sun.star.uno.UnoRuntime;
+
+import com.sun.star.frame.XModel;
+import com.sun.star.frame.XDesktop;
+
+public class FunctionProvider extends TestCase {
+
+    String docPath = null;
+    public void initialize( TestParameters tParam, PrintWriter log ) {
+    }
+
+    public synchronized TestEnvironment createTestEnvironment(
+        TestParameters tParam, PrintWriter log ) throws StatusException {
+        XInterface oObj = null;
+    log.println("creating test environment");
+        try {
+
+            XMultiServiceFactory xMSF = tParam.getMSF();
+
+            Object xInterface = xMSF.createInstance( "com.sun.star.frame.Desktop" );
+            XDesktop dtop = ( XDesktop )UnoRuntime.queryInterface( XDesktop.class,
+                xInterface );
+
+            XModel model = dtop.getCurrentFrame().getController().getModel();
+            oObj  =
+                (XInterface)xMSF.createInstanceWithArguments( "drafts.com.sun.star.script.framework.provider.FunctionProvider", new Object[]{ model } );
+
+
+        } catch (com.sun.star.uno.Exception e) {
+            throw new StatusException("Can't create object environment", e) ;
+        }
+
+        TestEnvironment tEnv = new TestEnvironment(oObj) ;
+
+        return tEnv ;
+    }
+
+    public synchronized void disposeTestEnvironment( TestEnvironment tEnv,
+            TestParameters tParam) {
+    }
+}
+
+
diff --git a/scripting/workben/mod/_scripting/ScriptInfo.java b/scripting/workben/mod/_scripting/ScriptInfo.java
new file mode 100644
index 000000000000..5b7bf61f8be8
--- /dev/null
+++ b/scripting/workben/mod/_scripting/ScriptInfo.java
@@ -0,0 +1,142 @@
+/*************************************************************************
+ *
+ *  $RCSfile: ScriptInfo.java,v $
+ *
+ *  $Revision: 1.1 $
+ *
+ *  last change:$Date: 2002-11-20 14:32:07 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  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., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (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.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+package mod._scripting;
+
+import com.sun.star.uno.XInterface;
+import java.io.PrintWriter;
+import lib.StatusException;
+import lib.TestCase;
+import lib.TestEnvironment;
+import lib.TestParameters;
+import util.utils;
+import java.net.URLEncoder;
+import com.sun.star.lang.XMultiServiceFactory;
+import com.sun.star.ucb.XSimpleFileAccess;
+import com.sun.star.uno.UnoRuntime;
+
+import drafts.com.sun.star.script.framework.storage.XScriptInfoAccess;
+import drafts.com.sun.star.script.framework.storage.XScriptInfo;
+
+public class ScriptInfo extends TestCase {
+
+    String docPath = null;
+    public void initialize( TestParameters tParam, PrintWriter log ) {
+        // Get path to test documents
+        String rootDocPath = ( String )tParam.get( "DOCPTH" );
+        System.out.println( "DOCPTH is " + rootDocPath );
+        rootDocPath = util.utils.getFullTestDocName( "ExampleSpreadSheetLatest.sxc" );
+        if ( rootDocPath != null && rootDocPath.length() > 1 ){
+            // convert all "\\" to "/", necessary for UCB
+            if ( rootDocPath.indexOf( "\\" ) > 0 ){
+                rootDocPath = rootDocPath.replace( '\\','/' );
+        }
+            rootDocPath = "file://" + rootDocPath;
+            System.out.println("After processing the path is " + rootDocPath);
+        // encode the ulr (for UCB)
+            String encodedPath = URLEncoder.encode( rootDocPath );
+            System.out.println("The encoded path is " + encodedPath );
+            docPath = "vnd.sun.star.pkg://" + encodedPath;
+            System.out.println( "docPath path is " + docPath );
+        }
+
+    }
+
+    public synchronized TestEnvironment createTestEnvironment(
+        TestParameters tParam, PrintWriter log ) throws StatusException {
+
+    log.println("creating test environment");
+        if ( docPath == null ){
+            log.println("Testdata not set up, docPath is null");
+            throw new StatusException(
+                "Can't create object environment, no test document available",
+                new Exception() ) ;
+        }
+
+        XInterface oObj = null;
+        XSimpleFileAccess access = null;
+        try {
+            XMultiServiceFactory xMSF = tParam.getMSF();
+            Object xInterface =
+                xMSF.createInstance( "com.sun.star.ucb.SimpleFileAccess" );
+            access = ( XSimpleFileAccess )
+                UnoRuntime.queryInterface( XSimpleFileAccess.class, xInterface );
+            Object storageObj = ( XInterface )xMSF.createInstanceWithArguments(
+                "drafts.com.sun.star.script.framework.storage.ScriptStorage",
+                new Object[]{ access, new Integer(99), docPath } );
+            XScriptInfoAccess infoAccess = ( XScriptInfoAccess )UnoRuntime.queryInterface(XScriptInfoAccess.class, storageObj);
+            XScriptInfo[] infos = infoAccess.getImplementations("script://MemoryUtils.MemUsage?location=document");
+           oObj = infos[0];
+        } catch (com.sun.star.uno.Exception e) {
+            throw new StatusException("Can't create object environment", e) ;
+        }
+
+        TestEnvironment tEnv = new TestEnvironment(oObj) ;
+
+        return tEnv ;
+    }
+
+    public synchronized void disposeTestEnvironment( TestEnvironment tEnv,
+            TestParameters tParam) {
+    }
+}
+
+
diff --git a/scripting/workben/mod/_scripting/ScriptStorage.java b/scripting/workben/mod/_scripting/ScriptStorage.java
new file mode 100644
index 000000000000..133ae004b6dd
--- /dev/null
+++ b/scripting/workben/mod/_scripting/ScriptStorage.java
@@ -0,0 +1,137 @@
+/*************************************************************************
+ *
+ *  $RCSfile: ScriptStorage.java,v $
+ *
+ *  $Revision: 1.1 $
+ *
+ *  last change:$Date: 2002-11-20 14:32:08 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  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., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (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.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+package mod._scripting;
+
+import com.sun.star.uno.XInterface;
+import java.io.PrintWriter;
+import lib.StatusException;
+import lib.TestCase;
+import lib.TestEnvironment;
+import lib.TestParameters;
+import util.utils;
+import java.net.URLEncoder;
+import com.sun.star.lang.XMultiServiceFactory;
+import com.sun.star.ucb.XSimpleFileAccess;
+import com.sun.star.uno.UnoRuntime;
+
+public class ScriptStorage extends TestCase {
+
+    String docPath = null;
+    public void initialize( TestParameters tParam, PrintWriter log ) {
+        // Get path to test documents
+        String rootDocPath = ( String )tParam.get( "DOCPTH" );
+        System.out.println( "DOCPTH is " + rootDocPath );
+        rootDocPath = util.utils.getFullTestDocName( "ExampleSpreadSheetLatest.sxc" );
+        if ( rootDocPath != null && rootDocPath.length() > 1 ){
+            // convert all "\\" to "/", necessary for UCB
+            if ( rootDocPath.indexOf( "\\" ) > 0 ){
+                rootDocPath = rootDocPath.replace( '\\','/' );
+        }
+            rootDocPath = "file://" + rootDocPath;
+            System.out.println("After processing the path is " + rootDocPath);
+        // encode the ulr (for UCB)
+            String encodedPath = URLEncoder.encode( rootDocPath );
+            System.out.println("The encoded path is " + encodedPath );
+            docPath = "vnd.sun.star.pkg://" + encodedPath;
+            System.out.println( "docPath path is " + docPath );
+        }
+
+    }
+
+    public synchronized TestEnvironment createTestEnvironment(
+        TestParameters tParam, PrintWriter log ) throws StatusException {
+
+    log.println("creating test environment");
+        if ( docPath == null ){
+            log.println("Testdata not set up, docPath is null");
+            throw new StatusException(
+                "Can't create object environment, no test document available",
+                new Exception() ) ;
+        }
+
+        XInterface oObj = null;
+        XSimpleFileAccess access = null;
+        try {
+            XMultiServiceFactory xMSF = tParam.getMSF();
+            Object xInterface =
+                xMSF.createInstance( "com.sun.star.ucb.SimpleFileAccess" );
+            access = ( XSimpleFileAccess )
+                UnoRuntime.queryInterface( XSimpleFileAccess.class, xInterface );
+            oObj = ( XInterface )xMSF.createInstanceWithArguments(
+                "drafts.com.sun.star.script.framework.storage.ScriptStorage",
+                new Object[]{ access, new Integer(99), docPath } );
+
+        } catch (com.sun.star.uno.Exception e) {
+            throw new StatusException("Can't create object environment", e) ;
+        }
+
+        TestEnvironment tEnv = new TestEnvironment(oObj) ;
+
+        return tEnv ;
+    }
+
+    public synchronized void disposeTestEnvironment( TestEnvironment tEnv,
+            TestParameters tParam) {
+    }
+}
+
+