설명

기고자: Clemens Westphal, 2017년 1월

소형 모델 유형 :피망 슬롯

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

메인 파일 : procdir1.gms

$title 'procDir, scrDir 및 procDirPath의 올바른 동작 테스트' (PROCDIR1,SEQ=715)

$onText
기고자: Clemens Westphal, 2017년 1월
$offText

$set scriptExt 명령
$if %system.filesys% == UNIX $set scriptExt sh

$세트 XXNT
$if %system.filesys% == UNIX $set XX un

*이전 실행에서 아직 존재할 수 있는 디렉터리 정리
$call rm -rf pDir
$call rm -rf sDir
$call rm -rf pDirPath
$call rm -rf 225b

*예제 모델로 운송 받기
$call gamslib -q trnsport
$if errorlevel 1 $abort '전송 모델 검색 오류'

*테스트 유지=1
$call 피망 슬롯 trnsport.gms keep=1 lo=%피망 슬롯lo%
$if errorlevel 1 $abort '피망 슬롯 호출 오류'
$if dexist 225b가 아닌 경우 $abort 'keep=1: 225b 디렉터리가 있어야 합니다.'
$존재하지 않는 경우 225b/gmsprm%XX%.dat $abort 'keep=1: 225b/gmsprm%XX%.dat 파일이 있어야 합니다.'
$call rm -rf 225b

*테스트 절차 디렉터리
$call mkdir pDir
$call 피망 슬롯 trnsport.gms procDir=pDir lo=%피망 슬롯lo%
$if errorlevel 1 $abort '피망 슬롯 호출 오류'
$존재하지 않는 경우 pDir/gmsprm%XX%.dat $abort 'procDir: pDir/gmsprm%XX%.dat 파일이 있어야 합니다.'
$존재하지 않는 경우 pDir/gamsnext.%scriptExt% $abort 'procDir: pDir/gamsnext.%scriptExt% 파일이 있어야 합니다.'
$call rm -rf pDir

*procDir 및 scrDir 테스트
$call mkdir pDir
$call mkdir sDir
$call 피망 슬롯 trnsport.gms procDir=pDir scrDir=sDir lo=%피망 슬롯lo%
$if errorlevel 1 $abort '피망 슬롯 호출 오류'
$if 존재하지 않는 경우 sDir/gamsstat.dat $abort 'procDir 및 scrDir: sDir/gamsstat.dat 파일이 있어야 합니다.'
$존재하지 않는 경우 pDir/gamsnext.%scriptExt% $abort 'procDir 및 scrDir: pDir/gamsnext.%scriptExt% 파일이 있어야 합니다.'
$call rm -rf pDir
$call rm -rf sDir

*테스트 procDirPath
$call mkdir pDirPath
$call 피망 슬롯 trnsport.gms procDirPath=pDirPath lo=%피망 슬롯lo%
$if errorlevel 1 $abort '피망 슬롯 호출 오류'
$if dexist pDirPath/225a $abort 'procDirPath: pDirPath/225a 디렉토리가 삭제될 것으로 예상됩니다.'
$call rm -rf pDirPath

*procDirPath를 테스트하고 1을 유지하세요.
$call mkdir pDirPath
$call 피망 슬롯 trnsport.gms procDirPath=pDirPath keep=1 lo=%피망 슬롯lo%
$if errorlevel 1 $abort '피망 슬롯 호출 오류'
$if not dexist pDirPath/225a $abort 'procDirPath and keep=1: 예상되는 디렉토리 pDirPath/225a'
$if dexist 225b $abort 'procDirPath 및 keep=1: scrDir이 procDirPath에서 파생되었으므로 디렉터리 225b가 존재하지 않을 것으로 예상됩니다.'
$call rm -rf pDirPath

*procDirPath 및 scrDir 테스트
$call mkdir pDirPath
$call mkdir sDir
$call 피망 슬롯 trnsport.gms procDirPath=pDirPath scrDir=sDir lo=%피망 슬롯lo%
$if errorlevel 1 $abort '피망 슬롯 호출 오류'
$if dexist pDirPath/225a $abort 'procDirPath 및 scrDir: pDirPath/225a 디렉토리가 삭제될 것으로 예상됩니다.'
$존재하지 않는 경우 sDir/gamsstat.dat $abort 'procDirPath 및 scrDir: sDir/gamsstat.dat가 있어야 합니다.'
$call rm -rf pDirPath
$call rm -rf sDir

*절대 경로를 사용하여 procDirPath 및 procDir을 테스트하면 오류가 발생합니다.
$call mkdir pDirPath
$call 피망 슬롯 trnsport.gms procDirPath=pDirPath procDir="%피망 슬롯curdir%pDirPath" lo=%피망 슬롯lo%
$errorlevel 1이 아닌 경우 $abort '피망 슬롯 호출 시 오류가 예상됩니다.'