Sample test that will break fiber utilization in Delphi

BreakSwitchToFiber.pas

procedure TestTJobQueue.JobMethodRaiseAndSwitchToFiber(const AJob: IJob; const AParams: array of Variant);
begin
  try
    Check(True);
    raise ETestJobQueue.Create('Hello');
  except
    on E : Exception do
      begin
        try
          raise ETestJobQueue.Create('Hello Nested');
        except
          on E : Exception do
            begin
              try
                raise ETestJobQueue.Create('Hello More Nested');
              except
                on E : Exception do
                  begin
                    AJob.Sleep(400); // <-- This call will perform a SwitchToFiber() to emulate a blocking wait
                    CheckEqualsString('Hello More Nested', E.Message);
                  end;
              end;
              CheckEqualsString('Hello Nested', E.Message);
            end;
        end;
        CheckEqualsString('Hello', E.Message);
      end;
  end;
  Check(True);
end;