Creating tweet testing, and modifyng nitter user asdictonary.

This commit is contained in:
ruidajo 2022-04-25 17:12:04 -05:00
parent 3ff8dfc86a
commit a38124638d
4 changed files with 11 additions and 3 deletions

View File

@ -1,7 +1,7 @@
accessing
asDictionary
^ { 'profile-card-avatar' -> self profileImageFile values first fullName.
^ { 'profile-card-avatar' -> self profileImageFile fullName.
'profile-card-fullname' -> self name .
'profile-card-username' -> self userName .
'profile-bio' -> self profileBio } asDictionary

View File

@ -3,7 +3,9 @@ collectRawTweetsUpToPage: anInteger
| pagesDict response customQuery |
pagesDict := self getPagesContentsUpto: anInteger.
response := TweetsCollection new.
response := TweetsCollection new
messages: OrderedCollection new;
yourself.
customQuery := Dictionary new
at: 'parameters' put: pagesDict keys;
at: 'date' put: DateAndTime now;

View File

@ -2,6 +2,6 @@ accessing
profileImageFile
| file |
file := (self folder / self userName, 'jpg').
file := (self folder / 'profile-image', 'jpg').
file exists ifTrue: [ ^ file ].
^ self downloadProfileImage

View File

@ -0,0 +1,6 @@
accessing
isInDB
(Tweet storedInstances select: [ :each | each id = self id ])
ifEmpty: [ ^ false ]
ifNotEmpty: [ ^ true ].