libs/iovm/tests/BlockTest.io

   1 BlockTest := UnitTest clone do(
   2
   3     testClone := method(
   4         block1 := Lobby getSlot("Block") clone
   5         assertNotEquals(Lobby getSlot("Block") uniqueId, getSlot("block2") uniqueId)
   6         block2 := Lobby getSlot("Block") clone
   7         assertNotEquals(getSlot("block1") uniqueId, getSlot("block2") uniqueId)
   8     )
   9
  10     _testPrint := method(
  11         // would need to be able to read stdout or install a printCallback from Io to test print()
  12         Nop
  13     )
  14
  15     testCode := method(
  16         assertEquals("block(foo bar)", block(foo bar) code)
  17         testBlock := block(foo bar)
  18         getSlot("testBlock") setScope(nil)
  19         assertEquals("method(foo bar)", getSlot("testBlock") code)
  20         getSlot("testBlock") setScope(self)
  21         assertEquals("block(foo bar)", getSlot("testBlock") code)
  22     )
  23
  24     testMessage := method(
  25         assertRaisesException(block(foo bar) setMessage)
  26         assertRaisesException(block(foo bar) setMessage(nil))
  27         assertEquals("foo bar", block(foo bar) message code)
  28         testMessage := Message fromString("blah fasel")
  29         assertEquals(testMessage, block(foo bar) setMessage(testMessage) message)
  30     )
  31
  32     testArgumentNames := method(
  33         assertRaisesException(block(foo bar) setArgumentNames)
  34         assertRaisesException(block(foo bar) setArgumentNames(nil))
  35         testBlock := block(a, b, c, foo bar)
  36         assertEquals(List clone append("a", "b", "c"), getSlot("testBlock") argumentNames)
  37         testBlock = block(foo bar)
  38         assertEquals(List, getSlot("testBlock") argumentNames)
  39         getSlot("testBlock") setArgumentNames(List clone append("d", "e"))
  40         assertEquals(List clone append("d", "e"), getSlot("testBlock") argumentNames)
  41     )
  42
  43     testConstruction := method(
  44         testMessage := Message fromString("arg1 + arg2")
  45         argumentNames := List clone append("arg1", "arg2")
  46         testBlock := Lobby getSlot("Block") clone setMessage(testMessage) setArgumentNames(argumentNames)
  47         assertEquals(5, testBlock call(3, 2))
  48     )
  49
  50     testScope := method(
  51         assertSame(self, block(foo bar) scope self)
  52
  53         selfBlock := block(thisContext)
  54         getSlot("selfBlock") setScope(nil)
  55         assertNil(getSlot("selfBlock") scope)
  56         //assertSame(thisContext, selfBlock call call target) // should this be true? block recycling doesn't like it?
  57         //assertSame(getSlot("selfBlock") message, selfBlock call message)
  58
  59         object := Object clone
  60         getSlot("selfBlock") setScope(object)
  61         assertSame(object, getSlot("selfBlock") scope)
  62
  63         getSlot("selfBlock") setScope
  64         assertNil(getSlot("selfBlock") scope)
  65     )
  66
  67 /*
  68     testIfTrue := method(
  69         assertRaisesException(block(1) ifTrue)
  70         called := nil
  71         block(1) ifTrue(called = 1)
  72         assertTrue(called)
  73         block(nil) ifTrue(fail)
  74     )
  75
  76     testIfFalse := method(
  77         assertRaisesException(block(1) ifFalse)
  78         block(1) ifFalse(fail)
  79         called := nil
  80         block(nil) ifFalse(called = 1)
  81         assertTrue(called)
  82     )
  83
  84     testWhileTrue := method(
  85         assertRaisesException(block(1) whileTrue)
  86         callCounter := 0
  87         amount := 3
  88         block(amount = amount -1; amount >= 0) whileTrue(callCounter = callCounter + 1)
  89         assertEquals(3, callCounter)
  90     )
  91
  92     testWhileFalse := method(
  93         assertRaisesException(block(1) whileFalse)
  94         callCounter := 0
  95         amount := 3
  96         block(amount = amount -1; amount < 0) whileFalse(callCounter = callCounter + 1)
  97         assertEquals(3, callCounter)
  98     )
  99 */
 100 )