home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / ExecTests / tboolean.m < prev    next >
Encoding:
Text File  |  1990-08-31  |  1.4 KB  |  43 lines
  1. import runtest from "RunTest"
  2.  
  3. const tboolean <- object tboolean
  4.   const myTest == runtest.create[stdin, stdout, "tboolean"]
  5.   process
  6.     % each test looks like myTest.check[<boolean expression>, "<same exp>"]
  7.     var i, j : Boolean
  8.     i <- false
  9.     myTest.check[i = false, "i = false"]
  10.     myTest.check[i == false, "i == false"]
  11.     myTest.check[false == false, "false == false"]
  12.     i <- true
  13.     myTest.check[i = true, "i = true"]
  14.     myTest.check[i == true, "i == true"]
  15.     myTest.check[true == true, "true == true"]
  16.     i, j <- false, true
  17.     myTest.check[i < j, "i < j"]
  18.     myTest.check[i <= j, "i <= j"]
  19.     myTest.check[j > i, "j > i"]
  20.     myTest.check[j >= i, "j >= i"]
  21.     j <- false
  22.     myTest.check[i <= j, "i <= j"]
  23.     myTest.check[i >= j, "i >= j"]
  24.     i, j <- true, true
  25.     myTest.check[i <= j, "i <= j"]
  26.     myTest.check[i >= j, "i >= j"]
  27.  
  28.     i, j <- false, true    
  29.     myTest.check[i | j, "i | j"]
  30.     myTest.check[i or j, "i or j"]
  31.     myTest.check[!i & j, "!i & j"]
  32.     myTest.check[!i and j, "!i and j"]
  33.     myTest.check[!i, "!i"]
  34.     myTest.check[!false, "!false"]
  35.     myTest.check[i.asString = "false", "i.asString = \"false\""]
  36.     myTest.check[j.asString = "true", "j.asString = \"true\""]
  37.     myTest.check[false.asString = "false", "false.asString = \"false\""]
  38.     myTest.check[true.asString = "true", "true.asString = \"true\""]
  39.     
  40.     myTest.done
  41.   end process
  42. end tboolean
  43.