testProjectListDummy
	|form|
	form := self lastResponse forms first.
	self submitForm: form pressingButton: (form buttonWithValue: 'AddDevProject').

	self assert: (form selectListWithId: 'projectList' selectOptionWithText: '----').