anchor.diff:          testHelpPUT "Event2/executed" "TestClient"
           testHelpPUT "Event3/executed" "TestClient"
           testHelpGET "Event3/executed" true
  -        testHelpGET "Event2/executed" true+        testHelpGET "Event2/executed" true
  +
  +    [<Test>]
  +    member public x.``Test's thad you can't execute a event wihtout the needed role`` () =
  +        testHelpGET "Event1/executed" false
  +        testHelpPUT "Event1/executed" "WorngTestClient"
  +        testHelpGET "Event1/executed" false
positive.code:     [<TearDown>]
      member public x.``run after each test``() =
          p.CloseMainWindow() |> ignore
  
      [<Test>]
      member public x.``Test's if a event can be executed`` () =
  
negative.code:     try
          ignore <| w.UploadString(sprintf "http://localhost:8080/Test/%s" eventPath, "PUT" , role)
      with
          | x ->  System.Console.WriteLine("Exeption: {0}", x.Message)
                  0 |> ignore
  
  [<TestFixture>]
  type public Test() =
  