2574     "given the source code of my version method, ensure that it contains dollars for

  2574     "given the source code of my version method, ensure that it contains dollars for

  2575      proper keyword expansion"

  2575      proper keyword expansion"

  2576 

  2576 

  2577     |versionString|

  2577     |versionString|

  2578 

  2578 

  2580     ^ self ensureKeywordExpansionWith: $$ inVersionMethod:versionString.

  2580     ^ self ensureKeywordExpansionWith: $$ inVersionMethod:versionString.

  2581 

  2581 

  2582     "

  2582     "

  2583      self ensureDollarsInVersionMethod:'foo ^ ''hello'' ' 

  2583      self ensureDollarsInVersionMethod:'foo ^ ''hello'' ' 

  2584      self ensureDollarsInVersionMethod:'foo ^ ''hello'' ' 

  2584      self ensureDollarsInVersionMethod:'foo ^ ''hello'' ' 

  2586      self ensureDollarsInVersionMethod:'foo ^ ''$','Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009/10/20 09:55:58 fm Exp $'' '      

  2586      self ensureDollarsInVersionMethod:'foo ^ ''$','Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009/10/20 09:55:58 fm Exp $'' '      

  2587     -- errors:

  2587     -- errors:

  2588      self ensureDollarsInVersionMethod:'foo ^ ''$Head'' '    

  2588      self ensureDollarsInVersionMethod:'foo ^ ''$Head'' '    

  2589      self ensureDollarsInVersionMethod:'foo ^ ''Header$'' '    

  2589      self ensureDollarsInVersionMethod:'foo ^ ''Header$'' '    

  2590     "

  2590     "

  2591 !

  2593 !

  2592 

  2594 

  2593 ensureKeyword: keyword inVersionMethod: source

  2595 ensureKeyword: keyword inVersionMethod: source

  2594 

  2596 

  2595     | startQuote endQuote doubleColon |

  2597     | startQuote endQuote doubleColon |