TSQLConnection.Connected = true인 경우 Delphi DUnit 테스트가 실패하도록 만드는 방법

StackOverflow https://stackoverflow.com/questions/457363

  •  19-08-2019
  •  | 
  •  

문제

Delphi IDE를 사용하는 경우 다양한 속성에서 필드 또는 테이블 목록을 채울 때 SQLConnection.Connected가 "true"로 자동 변경됩니다.

Connected = true로 릴리스하고 싶지 않기 때문에 dfm에서 TSQLConnection.Connected가 true로 남아 있을 때 dunit 테스트가 실패하도록 해야 합니다.

도움이 되었습니까?

해결책

나는 이것을 다른 방식으로 해결합니다. DFM 파일을로드하는 작은 유틸리티를 작성하고 존재하지 않아야 할 속성을 찾습니다. Database.connected = true 값 포함.

적절한 속성과 함께 작동하도록 수정할 수 있습니다. 코드의 핵심도 여기에 넣었습니다.

이것을 정말 유용하게하려면이 유틸리티를 빌드 스크립트에서 사용해야합니다 (FinalBuilder를 사용합니다). 내 스크립트는 .dfm 파일을 반복하여 이러한 속성을 제거한 다음 단위 테스트를 컴파일하고 실행하는 것으로 시작합니다. 통과하면 기본 응용 프로그램을 계속 구축합니다. 나에게, 이것은 당신이 알려진 잘 알려진 좋은 지점에서 시작할 수 있기 때문에 단위 테스트 실패보다 더 나은 방법입니다.

nState := 0;
bFound := False;
for nFileLoop := 0 to memoFile.Lines.Count - 1 do
begin
  szLine := memoFile.Lines[nFileLoop];

  case nState of      //
  0:
     begin
        if(0 <> Pos('TADOConnection', szLine)) then
        begin
           szSeeking := 'Connected';
           nState := 1;
        end
        else if(0 <> Pos('TADOTable', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end
        else if(0 <> Pos('TADOQuery', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end
        else if(0 <> Pos('TDBISAMTable', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end
        else if(0 <> Pos('TDBISAMDatabase', szLine)) then
        begin
           szSeeking := 'Connected';
           nState := 1;
        end
        else if(0 <> Pos('TDBISAMSession', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end
        else if(0 <> Pos('TDBISAMQuery', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end;
     end;
  1 :
     begin
        bFound := True;
        if(0 <> Pos('end', szLine)) then
        begin
           nState := 0;
        end
        else if(0 <> Pos(szSeeking, szLine)) then
        begin
           nPos := Pos('=', szLine);
           if nPos > 0 then
           begin
              memoFile.Lines[nFileLoop] := Copy(szLine, 1, nPos) + ' False';
           end;
        end;
     end;
  end;      // case
end;

다른 팁

Gexperts에는 모든 컴파일에서 데이터베이스 연결을 닫기 위해 구성하는 "구성 요소 속성"전문가가 있습니다. 그렇게 한 이후로 우리는 문제가 없었습니다.

연결된 속성을 저장하지 않는 TSQLConnection의 후손을 쓸 수 있습니다.

  TdzAdoConnection = class(TADOConnection)
  published
    property Connected stored false;
  end;

그리고 TSQLConnection 대신 해당 구성 요소를 사용하십시오.

(위의 내용은 Tadoconnection이지만 TSQLConnection도 잘 작동해야합니다.)

Openctf - 델파이의 구성 요소 테스트 프레임 워크는 흥미로울 수 있으며 모든 형태 / 데이터 모드에서 모든 구성 요소의 지정된 속성에 대한 단위 테스트를 자동으로 생성합니다. 오픈 소스이며 사용하기 쉽습니다.

"시작"문서 : http://www.habarisoft.com/download/openctfgettingstarted.pdf

OpenCTF 구성 요소 테스트 프레임 워크는 델파이 애플리케이션에서 모든 (시각적 및 비 시각적) VCL 구성 요소에 대한 자동 테스트를 구축하는 데 도움이됩니다. Dunit 프레임 워크를 기반으로합니다.

일부 사용 예 :

  • 누락 또는 잘못된 속성 값 감지 -ADERED 조치가없는 버튼, 관련 데이터 세트가없는 데이터 소스
  • 할당되지 않은 이벤트 핸들러 감지 - 예를 들어 OneXecute 이벤트 누락
  • 모든 데이터 세트를 열 수 있는지 확인하십시오
  • 탭 순서를 확인하십시오
  • 보이지 않는 구성 요소 찾기 (예 : 런타임에 더 나은 숨겨져있는 보이지 않는 탭 시트)

openctf http://www.mikejustin.com/images/openctf.gif

이 문제에 대한 또 다른 접근 방식은 SCM에 사전 커밋 후크를 구현하는 것입니다.저는 TortoiseSVN을 사용하고 있으며, 몰래 들어오는 것을 방지하기 위해 비슷한 작업을 수행했습니다.예를 들어, IDE에서 여는 모든 양식에 약 12개의 스킨 단위를 추가하려고 시도하는 "스킨" 라이브러리가 있습니다.(이 동작을 "수정"하는 레지스트리 패치가 있지만 개발자가 구성 요소를 다시 설치하는 경우 가끔씩 "완료 취소"됩니다.)그래서 SVN 사전 커밋 후크에 있는 .ini 파일에 "금지된 문자열 목록"이 있습니다.

우리 환경에서는 모든 프로덕션 코드가 전용 "빌드 머신"에 구축되므로 코드가 체크인되지 않으면 빌드에 포함되지 않습니다.문제 해결됨.

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top