hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

a few more test cases

Browse Source
This commit is contained in:
hyunghwan.chung 2018-12-21 16:58:58 +00:00
parent 7b7906bf09
commit f69b4c0881
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
moo/kernel/test-001.moo
View File

@ -175,7 +175,13 @@ extend MyObject
## 35 - 39 ## 35 - 39
[MyObject.System.System.System KING == #KING], [MyObject.System.System.System KING == #KING],
[self testMakeBlock == 49036] [self testMakeBlock == 49036],
[ ((-2305843009213693952 * -2305843009213693952 * 2305843009213693952 * 2305843009213693952 * 2305843009213693952) - 1 + 2) = 65185151242703554760590262029100101153646988597309960020356494379340201592426774597868716033 ],
[ "%d" strfmt((-2305843009213693952 * -2305843009213693952 * 2305843009213693952 * 2305843009213693952 * 2305843009213693952) - 1 + 2) = '65185151242703554760590262029100101153646988597309960020356494379340201592426774597868716033' ],
[ "%#b" strfmt((-2305843009213693952 * -2305843009213693952 * 2305843009213693952 * 2305843009213693952 * 2305843009213693952) - 1 + 2) = '2r100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001' ],
## 40 - 44
[ "%#x" strfmt((-2305843009213693952 * -2305843009213693952 * 2305843009213693952 * 2305843009213693952 * 2305843009213693952) - 1 + 2) = '16r20000000000000000000000000000000000000000000000000000000000000000000000000001' ]
). ).
limit := tc size. limit := tc size.
@ -185,6 +191,6 @@ extend MyObject
| tb | | tb |
tb := tc at: idx. tb := tc at: idx.
System log(System.Log.INFO, idx asString, (if (tb value) { ' PASS' } else { ' FAIL' }), S'\n'). System log(System.Log.INFO, idx asString, (if (tb value) { ' PASS' } else { ' FAIL' }), S'\n').
] ].
} }
} }

1
moo/lib/icc.mak
View File

@ -22,6 +22,7 @@ LIBSRCS := \
heap.c \ heap.c \
logfmt.c \ logfmt.c \
moo.c \ moo.c \
number.c \
obj.c \ obj.c \
pf.c \ pf.c \
rbt.c \ rbt.c \