home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / test / strings.st < prev   
Text File  |  1992-02-15  |  518b  |  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.