Skip to content

Commit

Permalink
added baseline and tests for export
Browse files Browse the repository at this point in the history
  • Loading branch information
tommartensen committed Jul 29, 2016
1 parent 7b189b5 commit 1c9eeae
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 3 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@ folder := 'albums'.

zip := ZipArchive new.

packages := #( 'MusicBrainz-Libraries' 'MusicBrainz-Core' 'MusicBrainz-UI').
packages := #( 'MusicBrainz-Libraries' 'MusicBrainz-Core' 'MusicBrainz-UI' 'MusicBrainz-Tests' 'BaselineOfMusicBrainzForSqueak').
packages do: [ :package |
mczStream := RWBinaryOrTextStream on: (String new: 10000).
workingCopy := MCWorkingCopy forPackage: (MCPackage new name: package).
Expand All @@ -17,6 +17,8 @@ zip addTree: Smalltalk imagePath match: [:e | e fullName startsWith:
zip addString: 'self fileInMonticelloZipVersionNamed: ''' , (packages first), '.mcz''.
self fileInMonticelloZipVersionNamed: ''' , (packages second), '.mcz''.
self fileInMonticelloZipVersionNamed: ''' , (packages third), '.mcz''.
self fileInMonticelloZipVersionNamed: ''' , (packages fourth), '.mcz''.
self fileInMonticelloZipVersionNamed: ''' , (packages fifth), '.mcz''.
(self membersMatching: ''' , folder , FileDirectory slash , '*.*'') do: [ :f | self
extractMember: f].' as: 'install/preamble'.
zip writeToFileNamed: 'MusicBrainz' , '.sar'
Original file line number Diff line number Diff line change
Expand Up @@ -6,6 +6,6 @@
"installSTON" : "tm 6/10/2016 11:31",
"registerInOpenMenu" : "tm 6/10/2016 12:08",
"unregisterFromOpenMenu" : "tm 6/12/2016 15:00",
"writeSARFile" : "tm 6/19/2016 12:08" },
"writeSARFile" : "tm 7/29/2016 16:49" },
"instance" : {
} }
Loading

0 comments on commit 1c9eeae

Please sign in to comment.