libs/iovm/tests/IfTest.io

   1 IfTest := UnitTest clone do(
   2
   3     /*
   4     Object if := method(condition,
   5         index = if(condition, 1, 2)
   6         if(call message arguments size > index,
   7             call sender doMessage(call message argAt(index), call sender)
   8         ,
   9             if(condition, true, false)
  10         )
  11     )
  12     */
  13
  14     testIfEval := method(
  15         v := false
  16         if(v := true)
  17         assertTrue(v)
  18     )
  19
  20     testTrue := method(
  21         assertTrue(if(true))
  22     )
  23
  24     testTrueExpression := method(
  25         assertEquals(if(true, 1), 1)
  26     )
  27
  28     testTrue2Expressions := method(
  29         assertEquals(if(true, 1, 2), 1)
  30     )
  31
  32     testFalse := method(
  33         assertFalse(if(false))
  34     )
  35
  36     testFalseExpression := method(
  37         assertFalse(if(false, 1))
  38     )
  39
  40     testFalse2Expressions := method(
  41         assertEquals(if(false, 1, 2), 2)
  42     )
  43
  44     testNil := method(
  45         assertFalse(if)
  46         assertFalse(if())
  47         assertFalse(if(nil))
  48     )
  49
  50     testOtherTrue := method(
  51         assertTrue(if(Object))
  52         assertTrue(if(13))
  53         assertTrue(if("foo"))
  54     )
  55 )