libs/iovm/tests/MessageTest.io

   1
   2 MessageTest := UnitTest clone do(
   3     testClone := method(
   4         message := Message clone
   5         assertNotSame(Message, message)
   6         assertEquals(Message name, message name)
   7         assertEquals(Message next, message next)
   8         assertEquals(Message arguments, message arguments)
   9     )
  10 )