anchor.diff:  
               checkResult command intInArr [|4;16;2;3|]
   
  -        testCase "Quotations injections. Quotations injections 2." <| fun _ ->
  +        testCase "Quotations injections 2" <| fun _ ->
               let myF = <@ fun x y -> y - x @>
   
               let command =
  
positive.code: 
              checkResult command intInArr [|0;2;4;6|]
  
          testCase "Kernel arguments. Simple 1D with copy." <| fun _ ->
              let command =
                  <@
                      fun (range: Range1D) (inBuf:ClArray<int>) (outBuf:ClArray<int>) ->
  
negative.code: 
  let structTests context =
      let inline checkResult cmd input expected = checkResult context cmd input expected
      testList (sprintf "Struct tests on %A" context) [
          testCase "Simple seq of struct." <| fun _ ->
              let command =
                  <@
  