paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: restored test built-in debugger;

Browse Source 
git-svn-id: trunk@40459 -
This commit is contained in:
Mattias Gaertner 2018-12-03 16:43:47 +00:00
parent ada75392aa
commit 8b912d0fea
1 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
packages/pastojs/tests/tcmodules.pas
View File

@ -381,7 +381,6 @@ type
Procedure TestCaseOfRange;
Procedure TestCaseOfString;
Procedure TestCaseOfExternalClassConst;
Procedure TestDebugger;
// arrays
Procedure TestArray_Dynamic;
@ -7082,30 +7081,6 @@ begin
]));
end;
procedure TTestModule.TestDebugger;
begin
StartProgram(false);
Add([
'procedure DoIt;',
'begin',
' deBugger;',
' DeBugger();',
'end;',
'begin',
' Debugger;']);
ConvertProgram;
CheckSource('TestDebugger',
LinesToStr([ // statements
'this.DoIt = function () {',
' debugger;',
' debugger;',
'};',
'']),
LinesToStr([ // $mod.$main
'debugger;',
'']));
end;
procedure TTestModule.TestArray_Dynamic;
begin
StartProgram(false);