summaryrefslogtreecommitdiff
path: root/basic/qa/cppunit/basictest.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'basic/qa/cppunit/basictest.cxx')
-rw-r--r--basic/qa/cppunit/basictest.cxx3
1 files changed, 3 insertions, 0 deletions
diff --git a/basic/qa/cppunit/basictest.cxx b/basic/qa/cppunit/basictest.cxx
index 9a414b7f5e1a..3a22c84e9007 100644
--- a/basic/qa/cppunit/basictest.cxx
+++ b/basic/qa/cppunit/basictest.cxx
@@ -108,12 +108,15 @@ bool MacroSnippet::Compile()
bool MacroSnippet::HasError() const { return mbError; }
+const ErrCode& MacroSnippet::getError() const { return maErrCode; }
+
IMPL_LINK( MacroSnippet, BasicErrorHdl, StarBASIC *, /*pBasic*/, bool)
{
fprintf(stderr,"(%d:%d)\n",
StarBASIC::GetLine(), StarBASIC::GetCol1());
fprintf(stderr,"Basic error: %s\n", OUStringToOString( StarBASIC::GetErrorText(), RTL_TEXTENCODING_UTF8 ).getStr() );
mbError = true;
+ maErrCode = StarBASIC::GetErrorCode();
return false;
}