#load "EsonPrimitives.fs"
open VersionOne.Loader.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 [Add localDeveloperGroup; Add 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 [Add 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

let connInfo = {uri=System.Uri(""); creds=Basic("","")}
let loader = Loader(connInfo)
Example(loader).Run()