Debugging initialize for seeds.

repository/TiddlyWiki/TWSeed.class.st

@@ -26,31 +26,6 @@ TWSeed class >> deleteWikiFileFromFolder: folder andSubfolder: shortName [
 	^ file ensureDelete.
 ]
 
-{ #category : #accessing }
-TWSeed class >> initialize [
-
-	super initialize.
-	list := OrderedCollection new.
-	list 
-		add: (self new 
-			name: 'ProjectifyMod';
-			demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/projectify/projectify-mod.html');
-		add: (self new
-			name: 'Wikilexias';
-			demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/wikilexias/wikilexias.html');
-		add: (self new
-			name: 'NotebookMod';
-			demo: '');
-		add: (self new
-			name: 'Grafoscopedia';
-			demo: '');
-		add: (self new
-			name: 'Holonica';
-			demo: '').
-	^ self
-	
-]
-
 { #category : #accessing }
 TWSeed class >> install: seedName into: folder as: shortName [
 
@@ -106,6 +81,31 @@ TWSeed >> demo: anUrl [
 	demo := anUrl asZnUrl
 ]
 
+{ #category : #accessing }
+TWSeed >> initialize [
+
+	super initialize.
+	list := OrderedCollection new.
+	list 
+		add: (self class new 
+			name: 'ProjectifyMod';
+			demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/projectify/projectify-mod.html');
+		add: (self class new
+			name: 'Wikilexias';
+			demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/wikilexias/wikilexias.html');
+		add: (self class new
+			name: 'NotebookMod';
+			demo: '');
+		add: (self class new
+			name: 'Grafoscopedia';
+			demo: '');
+		add: (self class new
+			name: 'Holonica';
+			demo: '').
+	^ self
+	
+]
+
 { #category : #accessing }
 TWSeed >> name [
  ^ name

repository/TiddlyWiki/TWSeedTest.class.st

@@ -7,7 +7,9 @@ Class {
 { #category : #accessing }
 TWSeedTest >> testCreateAlternativeSeed [
 
-	| seed |
+	| 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')
 ]