fixture "We assume that creation through the orm works." semester := DLSemester new semesterName: 'Winter'; year: 2009; save. lecture := DLLecture new lectureName: 'Softwaretechnik I'; lectureDescription: 'An introduction to techniques in software development'; semester: semester; save. user := DLUser new userName: 'john'; save. DLUser createUserName: 'jack' email: 'jack@student.hpi.uni-potsdam.de'. DLUser createFrom: {#userName->'john'. #email->'john@hpi.uni-potsdam.de'. #isAdmin->true}. membership := DLLectureMembership new user: user; lecture: lecture; role: #student; save. group := DLGroup new groupName: 'Roundup pornös'; groupDescription: 'Roundup in awesome'; lecture: lecture; users: ( {user} as: OrderedCollection ); save.