설명

기고자: Alex

소형 모델 유형 :무료 슬롯

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

메인 파일 : suffix01.gms

$title 제어 세트의 테스트 접미사 옵션(SUFFIX01,SEQ=416)

$onText
기여자: 알렉스
$offText

나는 / 1 1.1로 설정
        2 2.2
        3인치
        4
        쓰레기 5개
        a 이것은 /이다;

* 1차원 테스트
매개변수 rep1(*,i) 1차원 항목의 요약;

rep1('i.ord',i) = i.ord;
rep1('i.pos',i) = i.pos;
rep1('i.off',i) = i.off;
rep1('i.uel',i) = i.uel;
rep1('i.len',i) = i.len;
rep1('i.val',i) = i.val;
rep1('i.xls',i) = i.xls;
rep1('i.tlen',i) = i.tlen;
rep1('i.tval',i) = i.tval;
rep1('카드(i.tl)',i) = 카드(i.tl);
rep1('카드(i.te)',i) = 카드(i.te);
rep1('ord(i.tl)',i) = ord(i.tl);
rep1('ord(i.tl,2)',i) = ord(i.tl,2);
rep1('ord(i.te)',i) = ord(i.te);
rep1('ord(i.te,2)',i) = ord(i.te,2);

실행 오류 = 0;

테이블 rep1res(*,i) rep1에 대한 결과
$onUNDF
                   1 2 3 4 5

'i.ord' 1 2 3 4 5 6
'아이포스' 1 2 3 4 5 6
'아이.오프' 1 2 3 4 5
'아이.엘' 1 2 3 4 5 6
'아이렌' 1 1 1 1 1 1
'i.val' 1 2 3 4 5 UNDF
'i.xls' UNDF UNDF UNDF UNDF UNDF 1
'아이틀렌' 3 3 3 0 7 9
'i.tval' 1.1 2.2 +INF 0 UNDF UNDF
'카드(i.tl)' 1 1 1 1 1 1
'카드(즉)' 3 3 3 0 7 9
'ord(i.tl)' 49 50 51 52 53 97
'ord(i.tl,2)' 0 0 0 0 0 0
'ord(i.te)' 49 50 105 0 103 116
'ord(i.te,2)' 46 46 110 0 97 104

별칭(*,c)
err1을 설정하십시오. err1(c,i) = 담당자1(c,i) <> 담당자1res(c,i);
abort$card(err1) '결과가 잘못되었습니다.',rep1res,rep1,err1;

j / a*e /로 설정,
    ij(i,j) / 1.a 1.1
              1.b
              2.e 2.26
              3.c*d 3.33
              4.b 쓰레기 /;

* 2차원 테스트
매개변수 담당자2;

rep2('ij.tlen' ,ij) = ij.tlen;
rep2('ij.tval' ,ij) = ij.tval;
rep2('카드(ij.te)' ,ij) = 카드(ij.te);
rep2('ord(ij.te)' ,ij) = ord(ij.te);
rep2('ord(ij.te,2)',ij) = ord(ij.te,2);
rep2('ord(ij.te,3)',ij) = ord(ij.te,3);

테이블 rep2res(*,i,j) rep2에 대한 결과
                  1.a 1.B 2.E 3.C 3.D 4.B

'ij.tlen' 3 0 4 4 4 7
'ij.tval' 1.1 0 2.26 3.33 3.33 UNDF
'카드(ij.te)' 3 0 4 4 4 7
'ord(ij.te)' 49 0 50 51 51 103
'ord(ij.te,2)' 46 0 46 46 46 97
'ord(ij.te,3)' 49 0 50 51 51 114

err2를 설정하십시오. err2(c,ij) = 담당자2(c,ij) <> 담당자2res(c,ij);

실행오류=0;

* 디스플레이 c;

옵션 담당자2:2:1:2,rep2res:0:1:2,err2:0:1:2;
abort$card(err2) '결과가 잘못되었습니다.',rep2res,rep2,err2;