core/destructors/destructors-tests.factor

   1 USING: destructors kernel tools.test continuations accessors
   2 namespaces sequences ;
   3 IN: destructors.tests
   4
   5 TUPLE: dispose-error ;
   6
   7 M: dispose-error dispose 3 throw ;
   8
   9 TUPLE: dispose-dummy disposed? ;
  10
  11 M: dispose-dummy dispose t >>disposed? drop ;
  12
  13 T{ dispose-error } "a" set
  14 T{ dispose-dummy } "b" set
  15
  16 [ f ] [ "b" get disposed?>> ] unit-test
  17
  18 [ { "a" "b" } [ get ] map dispose-each ] [ 3 = ] must-fail-with
  19
  20 [ t ] [ "b" get disposed?>> ] unit-test
  21
  22 TUPLE: dummy-obj destroyed? ;
  23
  24 : <dummy-obj> dummy-obj new ;
  25
  26 TUPLE: dummy-destructor obj ;
  27
  28 C: <dummy-destructor> dummy-destructor
  29
  30 M: dummy-destructor dispose ( obj -- )
  31     obj>> t >>destroyed? drop ;
  32
  33 : destroy-always
  34     <dummy-destructor> &dispose drop ;
  35
  36 : destroy-later
  37     <dummy-destructor> |dispose drop ;
  38
  39 [ t ] [
  40     [
  41         <dummy-obj> dup destroy-always
  42     ] with-destructors destroyed?>>
  43 ] unit-test
  44
  45 [ f ] [
  46     [
  47         <dummy-obj> dup destroy-later
  48     ] with-destructors destroyed?>>
  49 ] unit-test
  50
  51 [ t ] [
  52     <dummy-obj> [
  53         [
  54             dup destroy-always
  55             "foo" throw
  56         ] with-destructors
  57     ] ignore-errors destroyed?>>
  58 ] unit-test
  59
  60 [ t ] [
  61     <dummy-obj> [
  62         [
  63             dup destroy-later
  64             "foo" throw
  65         ] with-destructors
  66     ] ignore-errors destroyed?>>
  67 ] unit-test
  68