home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / tests / num < prev    next >
Encoding:
Text File  |  1987-12-30  |  1.4 KB  |  54 lines
  1. Class Main
  2. [
  3.      testChars
  4.           ($A max: $a) print.
  5.           (4 between: 3.1 and: (17/3)) print.
  6.           ($A < $0) print.
  7.           $A asciiValue print.
  8.           $A asString print.
  9.           $A printString print.
  10.           $A isVowel print.
  11.           $A digitValue print
  12. |
  13.      testNums
  14.           3 + 4.1 ; print.
  15.           3.14159 exp print.
  16.           1 pi exp print.
  17.           3.5 radians print.
  18.           13 roundTo: 5 ; print.
  19.           13 truncateTo: 5 ; print.
  20.           (smalltalk perform: #+ withArguments: #(3 4.1) ) print.
  21.           (smalltalk doPrimitive: 10 withArguments: #(3 4) ) print
  22. |
  23.      testInts
  24.           5 allMask: 4 ; print.
  25.           4 allMask: 5 ; print.
  26.           5 anyMask: 4 ; print.
  27.           5 bitAnd: 3 ; print.
  28.           5 bitOr: 3 ; print.
  29.           5 bitInvert print.
  30.           254 radix: 16 ; print.
  31.           5 reciprocal print.
  32.           -5 // 4 ; print.
  33.           -5 quo: 4 ; print.
  34.           -5 \\ 4 ; print.
  35.           -5 rem: 4 ; print.
  36.           4 factorial print.
  37. |
  38.      testFloats
  39.           2.1 ^ 4 ; print.
  40.           0.5 arcSin print.
  41.           4.3 sqrt print.
  42.           256 log: 10 ; print.
  43.           16rC.ABC print.
  44.           (14.5408 radix: 16) print.
  45.           0.5236 radians sin print.
  46.           (100 @ 12) transpose print.
  47. |
  48.      main
  49.           self testChars.
  50.           self testNums.
  51.           self testInts.
  52.           self testFloats.
  53. ]
  54.