Skip to content
Projeler
Gruplar
Parçacıklar
Yardım
Yükleniyor...
Oturum aç / Kaydol
Gezinmeyi değiştir
C
core
Proje
Proje
Ayrıntılar
Etkinlik
Cycle Analytics
Depo (repository)
Depo (repository)
Dosyalar
Kayıtlar (commit)
Dallar (branch)
Etiketler
Katkıda bulunanlar
Grafik
Karşılaştır
Grafikler
Konular (issue)
0
Konular (issue)
0
Liste
Pano
Etiketler
Kilometre Taşları
Birleştirme (merge) Talepleri
0
Birleştirme (merge) Talepleri
0
CI / CD
CI / CD
İş akışları (pipeline)
İşler
Zamanlamalar
Grafikler
Paketler
Paketler
Wiki
Wiki
Parçacıklar
Parçacıklar
Üyeler
Üyeler
Collapse sidebar
Close sidebar
Etkinlik
Grafik
Grafikler
Yeni bir konu (issue) oluştur
İşler
Kayıtlar (commit)
Konu (issue) Panoları
Kenar çubuğunu aç
LibreOffice
core
Commits
54d70501
Kaydet (Commit)
54d70501
authored
Mar 11, 2013
tarafından
Noel Power
Dosyalara gözat
Seçenekler
Dosyalara Gözat
İndir
Eposta Yamaları
Sade Fark
remove some rtl:: and RTL_CONSTASCII_USTRINGPARAM foo
Change-Id: I68e2891999f306865d00b33fdfef3bc539a34e93
üst
0f7798d8
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
12 deletions
+13
-12
test_vba.cxx
basic/qa/cppunit/test_vba.cxx
+13
-12
No files found.
basic/qa/cppunit/test_vba.cxx
Dosyayı görüntüle @
54d70501
...
...
@@ -28,8 +28,10 @@ namespace
// Declares the method as a test to call
CPPUNIT_TEST
(
testMiscVBAFunctions
);
// not much point even trying to run except on windows
#if defined(WNT)
CPPUNIT_TEST
(
testObjAssignWithDefaultMember
);
//CPPUNIT_TEST(testOle);
#endif
// End of test suite definition
CPPUNIT_TEST_SUITE_END
();
...
...
@@ -50,8 +52,7 @@ bool VBATest::hasOLEEnv()
uno
::
Reference
<
lang
::
XMultiComponentFactory
>
xSMgr
=
xContext
->
getServiceManager
();
xOLEFactory
=
uno
::
Reference
<
lang
::
XMultiServiceFactory
>
(
xSMgr
->
createInstanceWithContext
(
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"com.sun.star.bridge.OleObjectFactory"
)
),
"com.sun.star.bridge.OleObjectFactory"
,
xContext
),
uno
::
UNO_QUERY
);
}
}
...
...
@@ -100,7 +101,7 @@ void VBATest::testMiscVBAFunctions()
fprintf
(
stderr
,
"macro returned:
\n
%s
\n
"
,
OUStringToOString
(
pReturn
->
GetOUString
(),
RTL_TEXTENCODING_UTF8
).
getStr
()
);
}
CPPUNIT_ASSERT_MESSAGE
(
"No return variable huh?"
,
pReturn
!=
NULL
);
CPPUNIT_ASSERT_MESSAGE
(
"Result not as expected"
,
pReturn
->
GetOUString
()
==
rtl
::
OUString
(
"OK"
)
);
CPPUNIT_ASSERT_MESSAGE
(
"Result not as expected"
,
pReturn
->
GetOUString
()
==
"OK"
);
}
}
...
...
@@ -115,30 +116,30 @@ void VBATest::testObjAssignWithDefaultMember()
"ole_ObjAssignToNothing.vb"
,
};
rtl
::
OUString
sMacroPathURL
=
getURLFromSrc
(
"/basic/qa/vba_tests/"
);
OUString
sMacroPathURL
=
getURLFromSrc
(
"/basic/qa/vba_tests/"
);
uno
::
Sequence
<
uno
::
Any
>
aArgs
(
1
);
// path to test document
rtl
::
OUString
sPath
=
getPathFromSrc
(
"/basic/qa/vba_tests/data/"
);
sPath
+=
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"ADODBdata.xls"
)
);
sPath
=
sPath
.
replaceAll
(
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"/"
)
),
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"
\\
"
)
)
);
OUString
sPath
=
getPathFromSrc
(
"/basic/qa/vba_tests/data/"
);
sPath
+=
OUString
(
"ADODBdata.xls"
);
sPath
=
sPath
.
replaceAll
(
"/"
,
"
\\
"
);
aArgs
[
0
]
=
uno
::
makeAny
(
sPath
);
for
(
sal_uInt32
i
=
0
;
i
<
SAL_N_ELEMENTS
(
macroSource
);
++
i
)
{
rtl
::
OUString
sMacroURL
(
sMacroPathURL
);
sMacroURL
+=
rtl
::
OUString
::
createFromAscii
(
macroSource
[
i
]
);
OUString
sMacroURL
(
sMacroPathURL
);
sMacroURL
+=
OUString
::
createFromAscii
(
macroSource
[
i
]
);
MacroSnippet
myMacro
;
myMacro
.
LoadSourceFromFile
(
sMacroURL
);
SbxVariableRef
pReturn
=
myMacro
.
Run
(
aArgs
);
if
(
pReturn
)
{
fprintf
(
stderr
,
"macro result for %s
\n
"
,
macroSource
[
i
]
);
fprintf
(
stderr
,
"macro returned:
\n
%s
\n
"
,
rtl
::
OUStringToOString
(
pReturn
->
GetOUString
(),
RTL_TEXTENCODING_UTF8
).
getStr
()
);
fprintf
(
stderr
,
"macro returned:
\n
%s
\n
"
,
OUStringToOString
(
pReturn
->
GetOUString
(),
RTL_TEXTENCODING_UTF8
).
getStr
()
);
}
CPPUNIT_ASSERT_MESSAGE
(
"No return variable huh?"
,
pReturn
!=
NULL
);
CPPUNIT_ASSERT_MESSAGE
(
"Result not as expected"
,
pReturn
->
GetOUString
()
==
rtl
::
OUString
(
"OK"
)
);
CPPUNIT_ASSERT_MESSAGE
(
"Result not as expected"
,
pReturn
->
GetOUString
()
==
"OK"
);
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment