strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tdf#163219: sc_scriptforge_test: Add unittest

Browse source 
Change-Id: I045f9e8ae8805c81f455e4171be95e1222ee908f
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/174765
Tested-by: Jenkins
Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>
This commit is contained in:
Xisco Fauli 2024-10-10 16:44:15 +02:00
parent c0e792cc6e
commit 4c17c2303d
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
sc/qa/extras/scriptforge.cxx
View file

@ -45,6 +45,30 @@ CPPUNIT_TEST_FIXTURE(ScScriptForgeTest, testSetValue)
CPPUNIT_ASSERT_EQUAL(u"10"_ustr, pDoc->GetString(ScAddress(0, 0, 0)));
}
CPPUNIT_TEST_FIXTURE(ScScriptForgeTest, testShowProgressBar)
{
createScDoc();
// insert initial library
css::uno::Reference<css::document::XEmbeddedScripts> xDocScr(mxComponent, UNO_QUERY_THROW);
auto xLibs = xDocScr->getBasicLibraries();
auto xLibrary = xLibs->createLibrary(u"TestLibrary"_ustr);
xLibrary->insertByName(u"TestModule"_ustr,
uno::Any(u"Function Test as String\n"
" GlobalScope.BasicLibraries.LoadLibrary(\"ScriptForge\")\n"
" ui = CreateScriptService(\"UI\")\n"
" ui.ShowProgressBar\n"
" Test = \"OK\"\n"
"End Function\n"_ustr));
// Without the fix in place, this test would have crashed
Any aRet = executeMacro(
u"vnd.sun.Star.script:TestLibrary.TestModule.Test?language=Basic&location=document"_ustr);
OUString sResult;
aRet >>= sResult;
CPPUNIT_ASSERT_EQUAL(u"OK"_ustr, sResult);
}
ScScriptForgeTest::ScScriptForgeTest()
: ScModelTestBase(u"/sc/qa/extras/testdocuments"_ustr)
{