Skip to content

Commit

Permalink
before kine
Browse files Browse the repository at this point in the history
  • Loading branch information
Ducasse committed Jun 24, 2024
1 parent 06e464b commit 0672a22
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 14 deletions.
15 changes: 6 additions & 9 deletions src/Microdown-Blog-Tests/MicDummyBlogDeployer.class.st
Original file line number Diff line number Diff line change
Expand Up @@ -11,17 +11,14 @@ MicDummyBlogDeployer >> deploy [

(FileSystem workingDirectory / 'sourceDummy') ensureDeleteAll.
(FileSystem workingDirectory / 'sourceDummy') ensureCreateDirectory.
FileSystem workingDirectory / 'sourceDummy' /
'file1.md'
writeStreamDo: [ :st |
FileSystem workingDirectory / 'sourceDummy' / 'file1.md'
writeStreamDo: [ :st |
st nextPutAll: MicBlogCreatorTest new fileContent1 ].
FileSystem workingDirectory / 'sourceDummy' /
'file2.md'
writeStreamDo: [ :st |
FileSystem workingDirectory / 'sourceDummy' / 'file2.md'
writeStreamDo: [ :st |
st nextPutAll: MicBlogCreatorTest new fileContent2 ].
FileSystem workingDirectory / 'sourceDummy' /
'file2.md'
writeStreamDo: [ :st |
FileSystem workingDirectory / 'sourceDummy' / 'file3.md'
writeStreamDo: [ :st |
st nextPutAll: MicBlogCreatorTest new fileContent3 ]
]

Expand Down
6 changes: 1 addition & 5 deletions src/Microdown-Blog/MicBlogCreator.class.st
Original file line number Diff line number Diff line change
Expand Up @@ -34,14 +34,10 @@ Class {
#package : 'Microdown-Blog'
}

{ #category : 'as yet unclassified' }
{ #category : 'API' }
MicBlogCreator class >> createFrom: source to: target [

| tmp1 |
(source fileSystem store isKindOf: WindowsStore) ifTrue: [
source fileSystem store currentDisk ].
(target fileSystem store isKindOf: WindowsStore) ifTrue: [
target fileSystem store currentDisk ].
tmp1 := self new.
tmp1
sourceDirectory: source;
Expand Down

0 comments on commit 0672a22

Please sign in to comment.