pastojs: restored test built-in debugger;

git-svn-id: trunk@40459 -

packages/pastojs/tests/tcmodules.pas

@@ -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);