home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / smalltalk / test / strings < prev    next >
Encoding:
Text File  |  1991-09-13  |  518 b   |  35 lines
  1. "Test string operations"
  2.  
  3. "======================================================================
  4. |
  5. | Copyright (C) 1988, 1989  Steven B. Byrne.
  6. | All rights reserved.
  7. |
  8.  ======================================================================"
  9.  
  10. !Object methodsFor: 'testing'!
  11.  
  12. strTest
  13.     | str |
  14.     str _ 'quem'.
  15.     str at: 1 put: $Q.
  16.     ^str
  17.  
  18. !!
  19.  
  20. ^'foo'!
  21.  
  22. ^'foo on you'!
  23.  
  24. ^'foo on
  25. multiple line string
  26. you'!
  27.  
  28. ^'test embedded quote marks, can''t I do this?'!
  29.  
  30. ^'FUBAR' at: 3!
  31.  
  32. ^'quem' at: 1 put: $Q!
  33.  
  34. ^nil strTest!
  35.