paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-12 02:18:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: testcase for utf8 in exceptions

Browse Source 
git-svn-id: trunk@41266 -
This commit is contained in:
martin 2013-05-18 23:51:24 +00:00
parent 5eda51845b
commit c07a177c41
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/test/Gdbmi/TestApps/ExceptPrg.pas
View File

@ -30,7 +30,7 @@ var
procedure foo;
var a: string;
begin
a:= 'abc';
a:= 'abc üü {[''[{ \n\t'#13#9'#';
raise MyESome.create(a);
end;
{$ENDIF}

8
debugger/test/Gdbmi/testexception.pas
View File

@ -76,7 +76,9 @@ begin
dbg.Run;
TestEquals(TstName+' Got no more exception', 2, FGotExceptCount);
TestEquals(TstName+' Got class', 'MyESome', FGotExceptClass);
TestEquals(TstName+' Got msg', 'abc', FGotExceptMsg, 050300);
// not yet MakePrintable
//TestEquals(TstName+' Got msg', 'abc üü {[''''[{ \n\t''#13#9''#', FGotExceptMsg, 050300);
TestEquals(TstName+' Got msg', 'abc üü {[''[{ \n\t'#13#9'#', FGotExceptMsg, 050300);
dbg.Stop;
finally
dbg.Done;
@ -201,7 +203,9 @@ begin
dbg.Run;
TestEquals(TstName+' Got no more exception', 2, FGotExceptCount);
TestEquals(TstName+' Got class', 'MyESome', FGotExceptClass);
TestEquals(TstName+' Got msg', 'abc', FGotExceptMsg, 050300);
//TestEquals(TstName+' Got msg', 'abc üü {[''''[{ \n\t''#13#9''#', FGotExceptMsg, 050300);
TestEquals(TstName+' Got msg', 'abc üü {[''[{ \n\t'#13#9'#', FGotExceptMsg, 050300);
dbg.Stop;
finally
dbg.Done;