설명

이 테스트는 put 문에서 싱글톤 세트의 동작을 확인합니다.

기고자: Lutz Westermann, 2014년 3월

소형 모델 유형 :메가 슬롯

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

메인 파일 : single03.gms

$title 'Put 문의 싱글톤 세트 확인' (SINGLE03,SEQ=644)

$onText
이 테스트는 put 문에서 Singleton Set의 동작을 확인합니다.

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

i / i1 t1, i2 t2, i3 t3, i4 t4 / 설정
    j (i) / i2*i4 일부 텍스트 /
    ii(i,i) / i1*i4.i1*i4 /;

싱글턴 세트는 (i) / i3 /
              is2(i) / i1 /
              iis(i,i) / i3.i4 /;
별칭(is,as);

매개변수 p(i); p(i) = ord(i);

파일 더미 /'have.txt'/; 더미를 놓으십시오;
넣어 i.tn(is):15 ' ' i.te(is):0 /
    j.tn(is):15 ' ' j.te(is):0 /
    is.tn(is):15 ' ' is.te(is):0 ' ' is.tl:0 /
    ii.tn(iis):15 ' ' ii.te(iis):0 /
    ii.tn(is,is2):15 ' ' ii.te(is,is2):0 /
    p.tn(is):15 ' ' p(is):0 / ;
놓다 '---';
루프(나,
   이다(i) = 그렇습니다;
   is2(i) = 예;
   iis(i,i) = 예;
   put / i.tn(is):15 ' ' i.te(is):0 /
         j.tn(is):15 ' ' j.te(is):0 /
         is.tn(is):15 ' ' is.te(is):0 ' ' is.tl:0 /
         ii.tn(iis):15 ' ' ii.te(iis):0 /
         ii.tn(is,is2):15 ' ' ii.te(is,is2):0 /
         p.tn(is):15 ' ' p(is):0 / ;
)
넣어 '---';
루프(나,
   is2(i) = 예;
   put / i.tn(is):15 ' ' i.te(is):0 /
         j.tn(is):15 ' ' j.te(is):0 /
         is.tn(is):15 ' ' is.te(is):0 ' ' is.tl:0 /
         ii.tn(is,is2):15 ' ' ii.te(is,is2):0 /
         p.tn(is):15 ' ' p(is):0 / ;
)
넣어 '---' ;
루프(나,
   이다(i) = 그렇습니다;
   put / i.tn(is):15 ' ' i.te(is):0 /
         j.tn(is):15 ' ' j.te(is):0 /
         is.tn(is):15 ' ' is.te(is):0 ' ' is.tl:0 /
         ii.tn('i2',is2):15 ' ' ii.te('i2',is2):0 /
         ii.tn('i2',is):15 ' ' ii.te('i2',is):0 /
         p.tn(is):15 ' ' p(is):0 / ;
)
닫아두다

'diff want.txt have.txt'를 실행합니다.
'diff want.txt have.txt > diff.txt'를 실행합니다.
abort$errorlevel '원하는 것과 가지고 있는 것이 다릅니다: diff.txt를 확인하세요';

$onEcho > want.txt
나는('i3')t3
j('i3') 일부 텍스트
이다('i3') i3 i3
ii('i3','i4') i3.i4
ii('i3','i1') i3.i1
p('i3') 3.00
---
나는('i1') t1
j('i1') i1
이다('i1') i1 i1
ii('i1','i1') i1.i1
ii('i1','i1') i1.i1
p('i1') 1.00

나는('i2')t2
j('i2') 일부 텍스트
는('i2') i2 i2
ii('i2','i2') i2.i2
ii('i2','i2') i2.i2
p('i2') 2.00

나는('i3')t3
j('i3') 일부 텍스트
이다('i3') i3 i3
ii('i3','i3') i3.i3
ii('i3','i3') i3.i3
p('i3') 3.00

나는('i4')t4
j('i4') 일부 텍스트
는('i4') i4 i4
ii('i4','i4') i4.i4
ii('i4','i4') i4.i4
p('i4') 4.00
---
나는('i4')t4
j('i4') 일부 텍스트
는('i4') i4 i4
ii('i4','i1') i4.i1
p('i4') 4.00

나는('i4')t4
j('i4') 일부 텍스트
는('i4') i4 i4
ii('i4','i2') i4.i2
p('i4') 4.00

나는('i4')t4
j('i4') 일부 텍스트
는('i4') i4 i4
ii('i4','i3') i4.i3
p('i4') 4.00

나는('i4')t4
j('i4') 일부 텍스트
는('i4') i4 i4
ii('i4','i4') i4.i4
p('i4') 4.00
---
나는('i1') t1
j('i1') i1
이다('i1') i1 i1
ii('i2','i4') i2.i4
ii('i2','i1') i2.i1
p('i1') 1.00

나는('i2')t2
j('i2') 일부 텍스트
는('i2') i2 i2
ii('i2','i4') i2.i4
ii('i2','i2') i2.i2
p('i2') 2.00

나는('i3')t3
j('i3') 일부 텍스트
이다('i3') i3 i3
ii('i2','i4') i2.i4
ii('i2','i3') i2.i3
p('i3') 3.00

나는('i4')t4
j('i4') 일부 텍스트
는('i4') i4 i4
ii('i2','i4') i2.i4
ii('i2','i4') i2.i4
p('i4') 4.00
$offEcho