home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / ExecTests / tstring.m < prev    next >
Encoding:
Text File  |  1990-08-31  |  1.2 KB  |  35 lines
  1. import runtest from "RunTest"
  2.  
  3. const tstring <- object tstring
  4.   const myTest == runtest.create[stdin, stdout, "tstring"]
  5.   function id [s : String] -> [r : String]
  6.     r <- s
  7.   end id
  8.   process
  9.     var i, j : String
  10.     i <- "\^@"
  11.     myTest.check[i = "\^@", "i = \"\\^@\""]
  12.     i <- "abcdef"
  13.     j <- "ghi"
  14.     myTest.check[i = "abcdef", "i = \"abcdef\""]
  15.     myTest.check[i(3) = 'd', "i(3) = 'd'"]
  16.     myTest.check[i != j, "i != j"]
  17.     myTest.check[i.length = 6, "i.length = 6"]
  18.     myTest.check[j.length = 3, "j.length = 3"]
  19.     myTest.check["".length = 0, "\"\".length = 0"]
  20.     myTest.check[i = i, "i = i"]
  21.     myTest.check[i == i, "i == i"]
  22.     myTest.check[j > i, "j > i"]
  23.     myTest.check[i < j, "i < j"]
  24.     myTest.check[j >= i, "j >= i"]
  25.     myTest.check[i <= j, "i <= j"]
  26.     myTest.check[i != j, "i != j"]
  27.     myTest.check[i.asString = i, "i.asString = i"]
  28.     myTest.check[("\^@").asString = "\^@", "(\"\\^@\").asString = \"\\^@\""]
  29.     myTest.check[self.id[i] == i, "self.id[i] == i"]
  30.     myTest.check[self.id[i] = i, "self.id[i] = i"]
  31.     myTest.check["abcde" || "fghij" = "abcdefghij", "\"abcde\" || \"fghij\" = \"abcdefghij\""]
  32.     myTest.done
  33.   end process
  34. end tstring
  35.