2016-03-25 09:37:53 -04:00
|
|
|
USING: combinators continuations kernel summary tools.test ;
|
2016-03-25 09:00:48 -04:00
|
|
|
IN: summary.tests
|
|
|
|
|
2016-03-25 09:37:53 -04:00
|
|
|
{ "array with 2 elements" } [ { 1 2 } summary ] unit-test
|
2019-08-05 17:27:05 -04:00
|
|
|
{ "string with 5 code points" } [ "hello" summary ] unit-test
|
2016-03-25 09:00:48 -04:00
|
|
|
{ "hash-set with 3 members" } [ HS{ 1 2 3 } summary ] unit-test
|
2016-03-25 09:37:53 -04:00
|
|
|
{ "hashtable with 1 entries" } [ H{ { 3 4 } } summary ] unit-test
|
|
|
|
{ "Quotation's stack effect does not match call site" } [
|
|
|
|
[ [ ] f wrong-values ] [ ] recover summary
|
|
|
|
] unit-test
|
|
|
|
|
2016-03-30 16:41:41 -04:00
|
|
|
TUPLE: ooga-booga ;
|
2016-03-30 17:01:34 -04:00
|
|
|
{ "ooga-booga" } [ ooga-booga boa summary ] unit-test
|