TiddlyWikiPharo/repository/TiddlyWiki/TWSeedTest.class.st
2022-01-21 20:37:56 -05:00

32 lines
682 B
Smalltalk

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
]