changeset 1998 | 5e1aef9466fa |
parent 1997 | 9b727008455c |
child 1999 | 0acb48bdd595 |
1997:9b727008455c | 1998:5e1aef9466fa |
---|---|
6026 |
6026 |
6027 test_10_parse_expression1 |
6027 test_10_parse_expression1 |
6028 |spec| |
6028 |spec| |
6029 |
6029 |
6030 spec := #( |
6030 spec := #( |
6031 ('1+1' nil 2 ) |
6031 ('1+1' nil 2 ) |
6032 ('1-1' nil 0 ) |
6032 ('1-1' nil 0 ) |
6033 ('2*2' nil 4 ) |
6033 ('2*2' nil 4 ) |
6034 ('4/2' nil 2 ) |
6034 ('4/2' nil 2 ) |
6035 ('5%3' nil 2 ) |
6035 ('5%3' nil 2 ) |
6036 ('1234567890*1234567890' nil 1524157875019052100 ) |
6036 ('4**2' nil 16 ) |
6037 ('1234567890/1234567890' nil 1 ) |
6037 ('1234567890*1234567890' nil 1524157875019052100 ) |
6038 ('1234567890/1234567890.0' nil 1.0 ) |
6038 ('1234567890/1234567890' nil 1 ) |
6039 |
6039 ('1234567890/1234567890.0' nil 1.0 ) |
6040 ('1>0' nil true ) |
6040 |
6041 ('1<0' nil false ) |
6041 ('1>0' nil true ) |
6042 ('1<=0' nil false ) |
6042 ('1<0' nil false ) |
6043 ('1>=0' nil true ) |
6043 ('1<=0' nil false ) |
6044 ('1==0' nil false ) |
6044 ('1>=0' nil true ) |
6045 ('1!!=0' nil true ) |
6045 ('1==0' nil false ) |
6046 ('1!!=1' nil false ) |
6046 ('1!!=0' nil true ) |
6047 |
6047 ('1!!=1' nil false ) |
6048 ('3&5' nil 1 ) |
6048 |
6049 ('3|5' nil 7 ) |
6049 ('3&5' nil 1 ) |
6050 ('5^1' nil 4 ) |
6050 ('3|5' nil 7 ) |
6051 ). |
6051 ('5^1' nil 4 ) |
6052 ). |
|
6052 self doTestEachFromSpec:spec. |
6053 self doTestEachFromSpec:spec. |
6053 |
6054 |
6054 " |
6055 " |
6055 self run:#test_10_parse_expression1 |
6056 self run:#test_10_parse_expression1 |
6056 self new test_10_parse_expression1 |
6057 self new test_10_parse_expression1 |
6057 " |
6058 " |
6058 |
6059 |
6059 "Modified: / 16-01-2012 / 20:01:53 / cg" |
6060 "Modified: / 16-01-2012 / 20:01:53 / cg" |
6061 "Modified: / 27-08-2018 / 15:29:35 / Claus Gittinger" |
|
6060 ! |
6062 ! |
6061 |
6063 |
6062 test_11_parse_expression2 |
6064 test_11_parse_expression2 |
6063 |spec| |
6065 |spec| |
6064 |
6066 |
6415 ' !!= ' #'!!=' |
6417 ' !!= ' #'!!=' |
6416 ' || ' #'||' |
6418 ' || ' #'||' |
6417 ' && ' #'&&' |
6419 ' && ' #'&&' |
6418 ' ++ ' #'++' |
6420 ' ++ ' #'++' |
6419 ' -- ' #'--' |
6421 ' -- ' #'--' |
6422 ' **' #'**' |
|
6420 |
6423 |
6421 ' += ' #'+=' |
6424 ' += ' #'+=' |
6422 ' -= ' #'-=' |
6425 ' -= ' #'-=' |
6423 ' *= ' #'*=' |
6426 ' *= ' #'*=' |
6424 ' /= ' #'/=' |
6427 ' /= ' #'/=' |
6453 |
6456 |
6454 " |
6457 " |
6455 self run:#testScanner20 |
6458 self run:#testScanner20 |
6456 self new testScanner20 |
6459 self new testScanner20 |
6457 " |
6460 " |
6461 |
|
6462 "Modified: / 27-08-2018 / 15:29:02 / Claus Gittinger" |
|
6458 ! |
6463 ! |
6459 |
6464 |
6460 testScanner21 |
6465 testScanner21 |
6461 |src scanner scannedToken| |
6466 |src scanner scannedToken| |
6462 |
6467 |