TiddlyWikiPharo/repository/TiddlyWiki/TWSeedTest.class.st

30 lines
606 B
Smalltalk
Raw Normal View History

2022-01-21 22:10:56 +00:00
Class {
#name : #TWSeedTest,
#superclass : #TestCase,
#category : #'TiddlyWiki-TiddlyWiki'
}
2022-01-22 01:25:52 +00:00
{ #category : #accessing }
TWSeedTest >> testCreateAlternativeSeed [
| seed |
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
]
2022-01-21 22:10:56 +00:00
{ #category : #accessing }
TWSeedTest >> testListIsNotEmpty [
| seed |
seed := TWSeed list.
self assert: seed size >= 1
]