home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / IDOL.ZIP / BI_TEST.IOL < prev    next >
Encoding:
Text File  |  1991-12-30  |  707 b   |  31 lines
  1. #
  2. # Tests for the various builtins
  3. #
  4. procedure main()
  5.  
  6.   x := Table(1)
  7.   write("\nTesting class ",x$class())
  8.   write("Fields:")
  9.   every write("\t", x$fieldnames )
  10.   write("Methods:")
  11.   every write("\t", x$methodnames )
  12.   write()
  13.   x$setElement("world","hello")
  14.   write(x$getElement("world"))
  15.   write(x$getElement("hello"))
  16.  
  17.   x := Deque()
  18.   write("\nTesting class ",x$class())
  19.   x$push("hello")
  20.   x$push("world")
  21.   write("My deque is size ",$*x)
  22.   every write("give me a ",$!x)
  23.   write("A random element is ",$?x)
  24.   write("getting ",x$get()," popping ",x$pop())
  25.  
  26.   x := List(["Tucson", "Pima", 85721])
  27.   write("\nTesting class ",x$class())
  28.   every write("give me a ",$!x)
  29.  
  30. end
  31.