search

Metacello / metacello

Metacello is a package management system for Smalltalk
MIT License
87 stars 43 forks source link

a better MetacelloMCVersionSpec>>currentlyLoadedClassesInVersion #373

Open dalehenrich opened 9 years ago

dalehenrich commented 9 years ago

This one picks up tests in projects ... I guess that's good and bad:):

currentlyLoadedClassesInVersion
  | classes |
  classes := Set new.
  self
    projectDo: [ :projectSpec | classes addAll: projectSpec projectReference currentlyLoadedClassesInVersion ]
    packageDo: [ :packageSpec | 
      | wc |
      wc := [ packageSpec workingCopy ]
        on: Error
        do: [ :ex | ex return: nil ].
      wc ~~ nil
        ifTrue: [ classes addAll: (MetacelloPlatform current packageInfoFor: wc) classes ] ]
    groupDo: [ :ignored |  ].
  ^ classes
krono commented 9 years ago

I think picking up tests is ok. They're software, after all…