설명

태그를 사용하여 중첩된 블록의 올바른 기능을 테스트합니다.

기고자: Lutz Westermann, 2022년 3월

소형 모델 유형 :슬롯

카테고리 : 슬롯 테스트 라이브러리

메인 파일 : nestblock01.gms

$title 중첩 블록 사용 테스트(NESTBLOCK01,SEQ=901)

$onText
태그를 사용하여 중첩된 블록의 올바른 기능을 테스트합니다.

기고자: Lutz Westermann, 2022년 3월
$offText

$onEcho.a1 > 중첩된Echo1.gms
$log 나는 중첩되어 있습니다Echo1.gms
$onEcho.a2 > 중첩Echo2.gms
$log 나는 중첩되어 있습니다Echo2.gms
$offEcho.a2
$offEcho.a1

$include 중첩Echo1.gms 포함

$onEcho >nestedEcho1Want.gms
$log 나는 중첩되어 있습니다Echo1.gms
$onEcho.a2 > 중첩Echo2.gms
$log 나는 중첩되어 있습니다Echo2.gms
$offEcho.a2
$offEcho
$onEcho >nestedEcho2Want.gms
$log 나는 중첩되어 있습니다Echo2.gms
$offEcho

$call.checkErrorLevel diff 중첩Echo1.gms 중첩Echo1Want.gms > %system.nullFile%
$call.checkErrorLevel diff 중첩Echo2.gms 중첩Echo2Want.gms > %system.nullFile%

파일 fx / 'nestedPut1.gms' /; fx를 넣어;
$onPut.a1
파일 fy / 'nestedPut2.gms' /; fy를 넣어;
$onPut.a2
'내부'를 표시합니다.
$offPut.a2
닫다;
'외부'를 표시;
$offPut.a1
닫다;

Execute.checkErrorLevel 'gamsnestedPut1.gms lo=%슬롯lo%';

$onEcho >nestedPut1Want.gms
파일 fy / 'nestedPut2.gms' /; fy를 넣어;
$onPut.a2
'내부'를 표시합니다.
$offPut.a2
닫다;
'외부'를 표시;
$offEcho
$onEcho >nestedPut2Want.gms
'내부'를 표시합니다.
$offEcho

Execute.checkErrorLevel 'diffnestedPut1.gmsnestedPut1Want.gms > %system.nullFile%';
Execute.checkErrorLevel 'diffnestedPut2.gmsnestedPut2Want.gms > %system.nullFile%';

* 다음 테스트는 실패할 것으로 예상됩니다.
$onEcho > 실패테스트.gms
파일 FX; fx를 넣어;
$onPut.unmatchedTag > willNotWork.txt
없음
$offPut
$offEcho

$call 슬롯 failureTest.gms lo=%슬롯lo%
$ifE errorLevel=0 $abort 오류가 예상됩니다.

$onEcho > 실패테스트.gms
파일 FX; fx를 넣어;
$onPut > willNotWork.txt
없음
$offPut.unmatchedTag
$offEcho

$call 슬롯 failureTest.gms lo=%슬롯lo%
$ifE errorLevel=0 $abort 오류가 예상됩니다.

$onEcho > 실패테스트.gms
파일 FX; fx를 넣어;
$onPut.unmatchedTag1 > willNotWork.txt
없음
$offPut.unmatchedTag2
$offEcho

$call 슬롯 failureTest.gms lo=%슬롯lo%
$ifE errorLevel=0 $abort 오류가 예상됨