Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module EsonExample
- open EsonPrimitives
- type Example(v1:Loader) =
- let setup () =
- let admin = v1.find "Member" "Administrator"
- let rootProject = v1.find "Scope" "System (All Projects)"
- let systemAdminRole = "" // ????
- let localDeveloperGroup = "" // ????
- let javaDeveloperGroup = "" // ????
- let andré = v1.insertAs admin "Member" [
- "Name", Val "André Agile"
- "Nickname", Val "André"
- "Username", Val "andre"
- "Password", Val "andre"
- "Email", Val "andre.agile@company.com"
- "DefaultRole", Rel systemAdminRole
- "MemberLabels", Rels [localDeveloperGroup; javaDeveloperGroup]
- ]
- let company = "" // ????
- let schedule = "" // ????
- let callCenterProgram = "" // ????
- let callCenter = v1.insertAs admin "Scope" [
- "Name", Val "Call Center"
- "BeginDate", Date "1/1/2007"
- "Parent", Rel company
- "Schedule", Rel schedule
- "ScopeLabels", Rels [callCenterProgram]
- ]
- (andré, callCenter)
- let day1(andré, callCenter) =
- let securityTheme = ""
- let newFeatureStoryCategory = ""
- let highPriority = ""
- let futureStoryStatus = ""
- let productMgmntStorySource = ""
- let claus = ""
- let teamA = ""
- let highRisk = ""
- let logonStory = v1.insertAs andré "Story" [
- "Name", Val "Logon"
- "Estimate", Val "2"
- "Scope", Rel callCenter
- "Parent", Rel securityTheme
- "Category", Rel newFeatureStoryCategory
- "Priority", Rel highPriority
- "Status", Rel futureStoryStatus
- "Source", Rel productMgmntStorySource
- "Customer", Rel claus
- "Team", Rel teamA
- "Risk", Rel highRisk
- ]
- (andré, logonStory)
- let day2 (andré, logonStory) =
- let iteration1 = ""
- v1.updateAs andré logonStory [
- "Timebox", Rel iteration1
- "Owners", Rels [andré]
- ]
- member x.Run = setup
- >> v1.advanceTime (days 1.0)
- >> day1
- >> v1.advanceTime (days 1.0)
- >> day2
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement