sanity tests to open create project window

GemTalk · Jul 13, 2022 · b0deb1e · b0deb1e
1 parent 290a5ba
commit b0deb1e
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 2 deletions.
diff --git a/sources/JadeiteProjectBrowserSystemTestCase.cls b/sources/JadeiteProjectBrowserSystemTestCase.cls
@@ -159,6 +159,14 @@ test_browserPosition
 	self assert: projectsBrowser view position
 		equals: transcript view position + JadePresenter defaultWindowOffset!
 
+test_createProject
+	"sanity test - do we open the right browser?"
+
+	| createProjectsBrowser |
+	createProjectsBrowser := self projectsPresenter createNewProject.
+	[self assert: createProjectsBrowser isKindOf: JadeiteCreateProjectEditor]
+		ensure: [self destroy: createProjectsBrowser]!
+
 test_deselectProjectOnly
 	"make sure it updates the tab label"
 
@@ -299,6 +307,7 @@ test_addSystemTabClassSelectionClassSide!public!test system tabs! !
 test_addSystemTabNoSelections!public!test system tabs! !
 test_browseInExistingBrowser!public!test system tabs! !
 test_browserPosition!public!test system tabs! !
+test_createProject!public!test system tabs! !
 test_deselectProjectOnly!public!test system tabs! !
 test_modifiedSystemTab!public!test system tabs! !
 test_moveTabsWithSUnitTabselected!public!test system tabs! !

diff --git a/sources/JadeiteTranscript.cls b/sources/JadeiteTranscript.cls
@@ -97,7 +97,7 @@ createComponents
 	transactionModePresenter model: (self aspectValue: #transactionMode)!
 
 createNewProject
-	projectListPresenter createNewProject!
+	^projectListPresenter createNewProject!
 
 createSchematicWiring
 	super createSchematicWiring.

diff --git a/sources/JadeiteTranscriptTestCase.cls b/sources/JadeiteTranscriptTestCase.cls
@@ -438,6 +438,14 @@ test_commitTransaction
 	self cloneRowanSample1.
 	self ensureRowanSampleProjectsLoaded!
 
+test_createProject
+	"sanity test - do we open the right browser?"
+
+	| createProjectsBrowser |
+	createProjectsBrowser := transcript createNewProject.
+	[self assert: createProjectsBrowser isKindOf: JadeiteCreateProjectEditor]
+		ensure: [self destroy: createProjectsBrowser]!
+
 test_doubleClickOpenProjectBrowser
 	| randomIndex projectPresenter projectName |
 	randomIndex := (Random new next * 4) ceiling.
@@ -828,6 +836,7 @@ test_checkoutTagRefresh!public!test menus! !
 test_closeConsoleNeedingCommit!public!tests! !
 test_closeConsoleNoCommitNeeded!public!tests! !
 test_commitTransaction!public!tests! !
+test_createProject!public!tests! !
 test_doubleClickOpenProjectBrowser!public!tests! !
 test_flipBreakPointsDisabled!public!tests! !
 test_implementorsSenders_SearchList!public!tests! !

diff --git a/sources/Rowan UI Base.pax b/sources/Rowan UI Base.pax
@@ -3458,7 +3458,7 @@ confirmReloadProjects: selections
 	^true!
 
 createNewProject
-	JadeiteCreateProjectEditor showOnSession: gciSession!
+	^JadeiteCreateProjectEditor showOnSession: gciSession!
 
 disableBreakPointAt: stepPoint in: browser
 	| selection |