Skip to content

Commit

Permalink
formated IMAPClient-Package, removed unused class
Browse files Browse the repository at this point in the history
  • Loading branch information
antonneubauer committed Aug 5, 2022
1 parent 0dc0689 commit 12bd318
Show file tree
Hide file tree
Showing 64 changed files with 112 additions and 107 deletions.
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
lastResponse: anOrderedCollection

lastResponse := anOrderedCollection
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
storedCommands: aCommandStorage

storedCommands := aCommandStorage
Original file line number Diff line number Diff line change
Expand Up @@ -30,7 +30,7 @@
"isCommandStorageEmpty" : "an 6/16/2022 20:29",
"isConnected" : "an 6/16/2022 20:29",
"lastResponse" : "JST 6/6/2021 14:22",
"lastResponse:" : "hsp 8/5/2022 20:29",
"lastResponse:" : "an 8/5/2022 21:15",
"listSubfoldersOf:filterBy:" : "an 6/16/2022 20:29",
"loggedIn" : "sf 6/4/2021 17:47",
"loggedIn:" : "sf 6/4/2021 17:45",
Expand All @@ -47,7 +47,7 @@
"sendNextCommands" : "RJPG 7/22/2022 11:19",
"setFlag:of:" : "sf 6/4/2021 16:54",
"storedCommands" : "sf 6/24/2021 16:04",
"storedCommands:" : "hsp 8/5/2022 20:30",
"storedCommands:" : "an 8/5/2022 21:15",
"stream" : "sf 6/4/2021 13:31",
"stream:" : "hsp 8/5/2022 20:25",
"throwErrorIfNotLoggedIn" : "an 6/16/2022 20:29" } }
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
name: aString

name := aString
Original file line number Diff line number Diff line change
Expand Up @@ -6,4 +6,4 @@
"email" : "EG 5/21/2021 00:03",
"email:" : "hsp 8/5/2022 20:25",
"name" : "EG 5/21/2021 00:03",
"name:" : "hsp 8/5/2022 20:29" } }
"name:" : "an 8/5/2022 21:15" } }
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
hierarchyDelimiter: aString

hierarchyDelimiter := aString
Original file line number Diff line number Diff line change
Expand Up @@ -38,7 +38,7 @@
"getFolderFor:" : "sf 7/26/2021 11:46",
"getFolderType:" : "FK 8/4/2022 09:50",
"hierarchyDelimiter" : "JST 7/12/2021 19:06",
"hierarchyDelimiter:" : "hsp 8/5/2022 20:30",
"hierarchyDelimiter:" : "an 8/5/2022 21:15",
"isCommandStorageEmpty" : "an 6/16/2022 20:29",
"isConnected" : "an 6/16/2022 20:29",
"lastResponse" : "sf 6/4/2021 17:58",
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -2,4 +2,4 @@ action - remove emails
moveEmailsToTrash

self numberOfEmailsBeforeRemoving: self emails size.
'Moving Emails To Trash: ' displaySequentialProgress: [self moveEmailsToTrashProcess]
'Moving Emails To Trash: ' displaySequentialProgress: [self moveEmailsToTrashProcess]
Original file line number Diff line number Diff line change
Expand Up @@ -3,4 +3,4 @@ moveEmailsToTrashProcess

[self emails isEmpty] whileFalse: [
self showProgress: [self progressCallbackMoveEmailsToTrash].
self endPoint deleteEmail: self emails first]
self endPoint deleteEmail: self emails first]
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
numberOfEmailsBeforeRemoving: aNumber

numberOfEmailsBeforeRemoving := aNumber
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
numberOfEmailsBeforeRemoving

^ numberOfEmailsBeforeRemoving
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
action - remove emails
progressCallbackMoveEmailsToTrash

^ self numberOfEmailsBeforeRemoving - self emails size / self numberOfEmailsBeforeRemoving
^ self numberOfEmailsBeforeRemoving - self emails size / self numberOfEmailsBeforeRemoving
Original file line number Diff line number Diff line change
@@ -1,2 +1,4 @@
action - remove emails
progressCallbackRemoveEmails
progressCallbackRemoveEmails


Original file line number Diff line number Diff line change
Expand Up @@ -42,17 +42,17 @@
"isTrashFolder" : "FK 6/1/2022 12:09",
"loadOlderMails" : "Hannes Spitz4 8/5/2022 16:52",
"lowestUniqueID" : "RJPG 7/27/2022 18:25",
"moveEmailsToTrash" : "Hannes Spitz4 8/5/2022 14:02",
"moveEmailsToTrashProcess" : "Hannes Spitz4 8/5/2022 16:52",
"numberOfEmailsBeforeRemoving" : "Hannes Spitz4 8/5/2022 13:50",
"numberOfEmailsBeforeRemoving:" : "hsp 8/5/2022 20:28",
"moveEmailsToTrash" : "an 8/5/2022 21:15",
"moveEmailsToTrashProcess" : "an 8/5/2022 21:15",
"numberOfEmailsBeforeRemoving" : "an 8/5/2022 21:15",
"numberOfEmailsBeforeRemoving:" : "an 8/5/2022 21:15",
"numberOfUnseenMails" : "an 6/16/2022 20:29",
"parent" : "tg 6/25/2019 21:21",
"parent:" : "js 6/7/2016 11:32",
"parentPath" : "ok 7/26/2019 19:08",
"path" : "an 6/16/2022 20:29",
"progressCallbackMoveEmailsToTrash" : "Hannes Spitz4 8/5/2022 13:48",
"progressCallbackRemoveEmails" : "Hannes Spitz4 8/5/2022 13:44",
"progressCallbackMoveEmailsToTrash" : "an 8/5/2022 21:15",
"progressCallbackRemoveEmails" : "an 8/5/2022 21:15",
"recursiveChildFolders" : "an 7/22/2022 18:36",
"removeFolder:" : "RJPG 6/21/2022 09:45",
"removeFolder:ifAbsent:" : "FK 8/4/2022 10:17",
Expand Down
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
emailAccounts: anOrderedCollection

emailAccounts := anOrderedCollection
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
emailContact: aString

emailContact := aString
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
"addressBook" : "EG 5/29/2021 23:22",
"addressBook:" : "hsp 8/5/2022 20:23",
"emailAccounts" : "EG 5/30/2021 12:42",
"emailAccounts:" : "hsp 8/5/2022 20:32",
"emailAccounts:" : "an 8/5/2022 21:15",
"emailContact" : "EG 5/29/2021 23:21",
"emailContact:" : "hsp 8/5/2022 20:31",
"emailContact:" : "an 8/5/2022 21:15",
"setUp" : "Hannes Spitz4 8/5/2022 17:16",
"testAddEntries" : "hsp 8/5/2022 20:07",
"testAddEntry" : "EG 5/27/2021 09:47",
Expand Down
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
contact: aContact

contact := aContact
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,6 @@
"expectedStringRepresentation" : "an 6/16/2022 20:29" },
"instance" : {
"contact" : "EG 5/22/2021 14:16",
"contact:" : "hsp 8/5/2022 20:27",
"contact:" : "an 8/5/2022 21:15",
"setUp" : "an 6/16/2022 20:29",
"testAsString" : "an 6/16/2022 20:29" } }
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
path: aString

path := aString
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
path

^ path
Original file line number Diff line number Diff line change
Expand Up @@ -11,4 +11,4 @@ setUpRetieveFlagsTests
folderName := self endPoint rootDirectoryName.
self path: 'Maildir', FileDirectory slash, folderName, FileDirectory slash, 'inbox'.

^{mailA. mailB}
^ {mailA. mailB}
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@ testRetrieveFlagsConsitency
emailObjects := self setUpRetieveFlagsTests.
mailA := emailObjects first.
mailB := emailObjects second.

self endPoint retrieveFlagsFrom: 3 to: 4 in: mailA folder.

mailAPath := FileDirectory default fullPathFor: self path, FileDirectory slash, mailA id.
mailBPath := FileDirectory default fullPathFor: self path, FileDirectory slash, mailB id.
mailAonDisk := ICEmail newFromJsonStream: (FileStream readOnlyFileNamed: mailAPath).
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -12,4 +12,4 @@ testRetrieveFlagsDefault
self assert: mailA deleted equals: false.
self assert: mailB seen equals: false.
self assert: mailB flagged equals: false.
self assert: mailB deleted equals: false.
self assert: mailB deleted equals: false
Original file line number Diff line number Diff line change
Expand Up @@ -18,4 +18,4 @@ testRetrieveFlagsOnEmailObject

FileDirectory default
deleteFileNamed: (FileDirectory default fullPathFor: self path, FileDirectory slash, mailA id);
deleteFileNamed: (FileDirectory default fullPathFor: self path, FileDirectory slash, mailB id).
deleteFileNamed: (FileDirectory default fullPathFor: self path, FileDirectory slash, mailB id)
Original file line number Diff line number Diff line change
Expand Up @@ -24,22 +24,22 @@
"helper:" : "RJPG 7/26/2022 12:03",
"inboxFolder" : "RJPG 7/27/2022 18:25",
"inboxFolder:" : "RJPG 7/26/2022 13:49",
"path" : "SW 8/5/2022 11:04",
"path:" : "hsp 8/5/2022 20:32",
"path" : "an 8/5/2022 21:15",
"path:" : "an 8/5/2022 21:15",
"rootFolder" : "C.G. 7/25/2018 17:54",
"rootFolder:" : "pm 6/9/2019 17:17",
"setUp" : "Hannes Spitz4 8/5/2022 16:53",
"setUpConnectionHandler" : "Hannes Spitz4 8/5/2022 16:52",
"setUpFolders" : "Hannes Spitz4 8/5/2022 16:53",
"setUpRetieveFlagsTests" : "SW 8/5/2022 11:05",
"setUpRetieveFlagsTests" : "an 8/5/2022 21:15",
"tearDown" : "RJPG 7/27/2022 18:25",
"testFetchMailsBeginningAtWithFoundMails" : "Hannes Spitz4 8/5/2022 16:52",
"testFetchMailsBeginningAtWithoutFoundMails" : "an 6/16/2022 20:29",
"testFillMessageBody" : "an 6/16/2022 20:29",
"testFillMessageBodyWithMultilineBody" : "an 6/16/2022 20:29",
"testListAllFolders" : "JST 6/6/2021 18:39",
"testLogout" : "an 6/16/2022 20:29",
"testRetrieveFlagsConsitency" : "SW 8/5/2022 11:21",
"testRetrieveFlagsDefault" : "SW 8/5/2022 11:12",
"testRetrieveFlagsOnEmailObject" : "SW 8/5/2022 11:26",
"testRetrieveFlagsConsitency" : "an 8/5/2022 21:15",
"testRetrieveFlagsDefault" : "an 8/5/2022 21:15",
"testRetrieveFlagsOnEmailObject" : "an 8/5/2022 21:15",
"testSelectInbox" : "an 6/16/2022 20:29" } }
Original file line number Diff line number Diff line change
Expand Up @@ -2,13 +2,19 @@ testing
testHiddenFolders

self folderDialog selectedEndPoint: self folderDialog emailAccounts first.
self assert: (self folderDialog shownTopLevelFolders collect: [:aFolder | aFolder folderName]) equals: ICMockFolderDialog testFolderNames.
self
assert: (self folderDialog shownTopLevelFolders collect: [:aFolder | aFolder folderName])
equals: ICMockFolderDialog testFolderNames.

self folderDialog selectedEndPoint accountSettings notSyncedFolders: {ICMockFolderDialog testFolderNames second}.
self assert: (self folderDialog shownTopLevelFolders collect: [:aFolder | aFolder folderName]) equals: {ICMockFolderDialog testFolderNames first . ICMockFolderDialog testFolderNames third} asOrderedCollection.
self
assert: (self folderDialog shownTopLevelFolders collect: [:aFolder | aFolder folderName])
equals: {ICMockFolderDialog testFolderNames first. ICMockFolderDialog testFolderNames third} asOrderedCollection.

self folderDialog selectedEndPoint accountSettings notSyncedFolders: ICMockFolderDialog testFolderNames.
self assert: (self folderDialog shownTopLevelFolders collect: [:aFolder | aFolder folderName]) isEmpty.

self folderDialog selectedEndPoint accountSettings notSyncedFolders: {}.
self assert: (self folderDialog shownTopLevelFolders collect: [:aFolder | aFolder folderName]) equals: ICMockFolderDialog testFolderNames
self
assert: (self folderDialog shownTopLevelFolders collect: [:aFolder | aFolder folderName])
equals: ICMockFolderDialog testFolderNames
Original file line number Diff line number Diff line change
Expand Up @@ -7,5 +7,5 @@
"setUp" : "an 6/16/2022 20:29",
"tearDown" : "Hannes Spitz5 6/5/2022 18:32",
"testAddressBookMatching" : "Hannes Spitz4 8/3/2022 17:43",
"testHiddenFolders" : "Hannes Spitz4 8/5/2022 17:14",
"testHiddenFolders" : "an 8/5/2022 21:15",
"testMoveMenu" : "an 8/3/2022 18:47" } }
Original file line number Diff line number Diff line change
Expand Up @@ -3,4 +3,4 @@ setUp

self helper: ICSetUpTestHelper new.
self helper endPoint readWriter: (ICFileReadWriter new endPoint: self helper endPoint).
self root: self helper endPoint rootFolder.
self root: self helper endPoint rootFolder
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@
"helper:" : "RJPG 7/27/2022 18:25",
"root" : "js 6/7/2016 12:56",
"root:" : "pm 6/9/2019 17:19",
"setUp" : "Hannes Spitz4 8/5/2022 16:53",
"setUp" : "an 8/5/2022 21:15",
"tearDown" : "RJPG 7/26/2022 14:55",
"testAddFolder" : "Hannes Spitz4 8/5/2022 16:52",
"testCountFolders" : "Hannes Spitz4 8/5/2022 16:52",
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
accessing
fetchAllHeaders
"is supposed to be empty for testing reasons"

"is supposed to be empty for testing reasons"

Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
accessing
moveEmail: aMessageID to: aFolder
"is supposed to be empty for testing reasons"

"is supposed to be empty for testing reasons"

Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
accessing
select: aFolderName
"is supposed to be empty for testing reasons"

"is supposed to be empty for testing reasons"

Original file line number Diff line number Diff line change
Expand Up @@ -2,8 +2,8 @@
"class" : {
},
"instance" : {
"fetchAllHeaders" : "JS 8/2/2022 20:09",
"fetchAllHeaders" : "an 8/5/2022 21:15",
"lastResponse" : "RJPG 7/26/2022 09:47",
"maildirDiffFetchAllHeaders" : "RJPG 7/26/2022 09:47",
"moveEmail:to:" : "JS 8/2/2022 20:34",
"select:" : "JS 8/2/2022 20:09" } }
"moveEmail:to:" : "an 8/5/2022 21:15",
"select:" : "an 8/5/2022 21:15" } }
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
accessing
uids: anOrderedCollection

uids := anOrderedCollection
Original file line number Diff line number Diff line change
Expand Up @@ -19,4 +19,4 @@
"select:" : "an 6/16/2022 20:29",
"sendNextCommands" : "an 6/16/2022 20:29",
"uids" : "an 6/16/2022 20:29",
"uids:" : "hsp 8/5/2022 20:36" } }
"uids:" : "an 8/5/2022 21:15" } }
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
testFolderNames

^ {'testFolder1' . 'testFolder2' . 'testFolder3'} asOrderedCollection
^ {'testFolder1'. 'testFolder2'. 'testFolder3'} asOrderedCollection
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
mock methods
addTestFoldersTo: anICEndPoint

self class testFolderNames do: [:aTestFolderName | ICFolder named: aTestFolderName in: anICEndPoint rootFolder with: anICEndPoint of: #Generic]
self class testFolderNames do: [:aTestFolderName | ICFolder named: aTestFolderName in: anICEndPoint rootFolder with: anICEndPoint of: #Generic]
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
mock methods
closeConnection
"is supposed to be empty for testing reasons"

"is supposed to be empty for testing reasons"

Original file line number Diff line number Diff line change
Expand Up @@ -2,8 +2,7 @@ mock methods
getEmailAccounts

| endPoint |

endPoint := ICMockEndPoint newWith: (ICAccountInfo new).
endPoint := ICMockEndPoint newWith: ICAccountInfo new.
endPoint accountInfo accountName: 'testName'.
endPoint rootFolder: (ICFolder newRootFolderWith: endPoint).
self addTestFoldersTo: endPoint.
Expand Down
Original file line number Diff line number Diff line change
@@ -1,9 +1,9 @@
{
"class" : {
"testFolderNames" : "an 8/2/2022 15:15" },
"testFolderNames" : "an 8/5/2022 21:15" },
"instance" : {
"addTestFoldersTo:" : "hsp 8/5/2022 20:11",
"closeConnection" : "JS 8/2/2022 20:06",
"getEmailAccounts" : "hsp 8/5/2022 20:12",
"addTestFoldersTo:" : "an 8/5/2022 21:15",
"closeConnection" : "an 8/5/2022 21:15",
"getEmailAccounts" : "an 8/5/2022 21:15",
"initialize" : "an 8/2/2022 15:01",
"itemsPerMoveMenu" : "SW 6/27/2022 11:57" } }
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
mockMethods
delete: anArgument
"is supposed to be empty for testing reasons"

"is supposed to be empty for testing reasons"

Loading

0 comments on commit 12bd318

Please sign in to comment.