core/summary/summary-tests.factor

   1 USING: combinators continuations kernel summary tools.test ;
   2 IN: summary.tests
   3
   4 { "array with 2 elements" } [ { 1 2 } summary ] unit-test
   5 { "string with 5 code points" } [ "hello" summary ] unit-test
   6 { "hash-set with 3 members" } [ HS{ 1 2 3 } summary ] unit-test
   7 { "hashtable with 1 entries" } [ H{ { 3 4 } } summary ] unit-test
   8 { "Quotation's stack effect does not match call site" } [
   9     [ [ ] f wrong-values ] [ ] recover summary
  10 ] unit-test
  11
  12 TUPLE: ooga-booga ;
  13 { "ooga-booga" } [ ooga-booga boa summary ] unit-test