TiddlyWikiPharo/repository/TiddlyWiki/TWSeedTest.class.st

32 lines
713 B
Smalltalk
Raw Normal View History

2024-05-29 14:42:33 +00:00
Class {
#name : #TWSeedTest,
#superclass : #TestCase,
#category : #'TiddlyWiki-TiddlyWiki'
}
{ #category : #accessing }
TWSeedTest >> testCreateAlternativeSeed [
| seed folder |
folder := FileLocator temp / 'Wikilexias'.
folder ensureDeleteAll.
seed := TWSeed install: 'Wikilexias' into: FileLocator temp as: 'Wikilexias'.
self assert: seed file equals: (FileLocator temp / 'Wikilexias' / 'index.html')
]
{ #category : #accessing }
TWSeedTest >> testDefaultIsSeed [
| seed |
seed := TWSeed default.
self assert: seed class equals: TWSeed
]
{ #category : #accessing }
TWSeedTest >> testListIsNotEmpty [
| seed |
seed := TWSeed list.
self assert: seed size >= 1
]