anchor.diff:  
   [<Test>]
   let ``List of accepted languages should be parsed from context`` () =
  -    let ``assert`` x =
  +    let ``assert`` = fun (x) ->
           Shaver.Localization.getAcceptedLanguages(x.request) 
           |> should equal (Some [|"cs-CZ"; "en"; "ru"|])
           x
  +
       ``assert`` >> (OK "Hi")
       |> runWithConfig
       |> reqResp HttpMethod.GET "/"  "" None None DecompressionMethods.None setMoreAcceptLanguageHeaders contentString
  
positive.code: 
  [<Test>]
  let ``Calling localizeCulture should change thread culture`` () =
      let ``assert`` x = 
          System.Threading.Thread.CurrentThread.CurrentCulture.Name |> should equal "ru-RU"
          x
      
  
negative.code: let ``Calling localizeCulture with wrong header should not change anything`` () =
      let mutable currentCulture = CultureInfo.InvariantCulture
      
      let storeCurrentCulture = fun (x) ->
          currentCulture <- System.Threading.Thread.CurrentThread.CurrentCulture
          x
  
      let ``assert`` = fun (x) ->
          System.Threading.Thread.CurrentThread.CurrentCulture.Name |> should equal currentCulture.Name
          x
      
  