libs/iovm/tests/MiscTest.io

   1
   2 MiscTest := UnitTest clone do(
   3     testAssignmentMultiplicationBug := method(
   4         e := try (r := 3 * 4)
   5         e catch ( Exception, fail )
   6     )
   7
   8     testActivate := method(
   9         a := Object clone
  10         a activate := method(activateWorks = true)
  11         a setIsActivatable(true)
  12
  13         activateWorks := false
  14         a
  15
  16         assertTrue(activateWorks)
  17     )
  18 )