paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 16:35:57 +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; procedure foo;
var a: string; var a: string;
begin begin
a:= 'abc'; a:= 'abc üü {[''[{ \n\t'#13#9'#';
raise MyESome.create(a); raise MyESome.create(a);
end; end;
{$ENDIF} {$ENDIF}

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

@ -76,7 +76,9 @@ begin
dbg.Run; dbg.Run;
TestEquals(TstName+' Got no more exception', 2, FGotExceptCount); TestEquals(TstName+' Got no more exception', 2, FGotExceptCount);
TestEquals(TstName+' Got class', 'MyESome', FGotExceptClass); 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; dbg.Stop;
finally finally
dbg.Done; dbg.Done;
@ -201,7 +203,9 @@ begin
dbg.Run; dbg.Run;
TestEquals(TstName+' Got no more exception', 2, FGotExceptCount); TestEquals(TstName+' Got no more exception', 2, FGotExceptCount);
TestEquals(TstName+' Got class', 'MyESome', FGotExceptClass); 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; dbg.Stop;
finally finally
dbg.Done; dbg.Done;