home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / ExecTests / ttime.m < prev    next >
Encoding:
Text File  |  1990-08-31  |  1.3 KB  |  29 lines
  1. import runtest from "RunTest"
  2.  
  3. const ttime <- object ttime
  4.   const myTest == runtest.create[stdin, stdout, "ttime"]
  5.   process
  6.     % each test looks like myTest.check[<boolean expression>, "<same exp>"]
  7.     var t1, t2 : Time
  8.     t1 <- Time.create[0,0]
  9.     myTest.check[t1 == t1, "t1 == t1"]
  10.     myTest.check[t1 = t1, "t1 = t1"]
  11.     myTest.check[t1 = Time.create[0,0], "t1 = Time.create[0,0]"]
  12.     myTest.check[t1 !== t2, "t1 !== t2"]
  13.     t1 <- Time.create[5, 999999]
  14.     t2 <- Time.create[0, 000001]
  15.     myTest.check[t1 + t2 = Time.create[6,0], "t1 + t2 = Time.create[6,0]"]
  16.     t2 <- Time.create[0, 000002]
  17.     myTest.check[t1 + t2 = Time.create[6,1], "t1 + t2 = Time.create[6,1]"]
  18.     t1 <- Time.create[~1, 1000000]
  19.     myTest.check[t1 = Time.create[0,0], "t1 = Time.create[0,0]"]
  20.     myTest.check[Time.create[0,~10000000] = Time.create[~10,0], "Time.create[0,~10000000] = Time.create[~10,0]"]
  21.     myTest.check[Time.create[1,~1] = Time.create[0,999999], "Time.create[1,~1] = Time.create[0,999999]"]
  22.     myTest.check[Time.create[~1,2000000] = Time.create[1,0], "Time.create[~1,2000000] = Time.create[1,0]"]
  23.     myTest.check[Time.create[1, 0] <= Time.create[2, 0], "Time.create[1, 0] <= Time.create[2, 0]"]
  24.     myTest.check[Time.create[1,0] >= Time.create[0,0], "Time.create[1,0] >= Time.create[0,0]"]
  25.     
  26.     myTest.done
  27.   end process
  28. end ttime
  29.