anchor.diff:    plc { writeAny ".PLCVar" intPlcExp } |> Result.isOk |> Assert.IsTrue
     readArrOnce<INT> setupClient ".PLCVar" 100
     |> Seq.zip intPlcExp
  -  |> Seq.iter Assert.AreEqual+  |> Seq.iter Assert.AreEqual
  +
  +[<Test>]
  +let ``Reading and writing of string variables - read`` () = 
  +
  +  let fixture = new Fixture()
  +
  +  let setupClient = new TcAdsClient()
  +  setupClient.Connect("192.168.68.132.1.1", 801)
  +  let plc = createClient "192.168.68.132.1.1" 801
  +  
  +  let inline writeStr len symName  = writeStringOnce setupClient symName len
  +  
  +  let stringExp = fixture.Create<string>()
  +  let string1Exp = fixture.Create<string>() |> Seq.head |> string 
  +
  +  
  +  writeStr 80 ".string80Var" stringExp 
  +  writeStr 1 ".string1Var" string1Exp 
  +
  +  
  +  plc { readAny ".string80Var"} |> assertEqual stringExp
  +  plc { readAny ".string1Var"} |> assertEqual string1Exp
  +  
  +[<Test>]
  +let ``Reading and writing of string variables - write`` () = 
  +
  +  let fixture = new Fixture()
  +  //Set ADS in Start
  +  let setupClient = new TcAdsClient()
  +  
  +  setupClient.Connect("192.168.68.132.1.1", 801)
  +  let plc = createClient "192.168.68.132.1.1" 801
  +
  +  
  +  let stringExp = fixture.Create<string>()
  +  let string1Exp = fixture.Create<string>()
  +    
  +  
  +  plc { writeAny ".string80Var" stringExp } |> Result.isOk |> Assert.IsTrue
  +  let stringAct = readStrOnce setupClient  ".string80Var" 80
  +  Assert.AreEqual(stringExp, stringAct)
  +
  +  plc { writeAny ".string1Var" string1Exp } |> Result.isAdsNok |> Assert.IsTrue
positive.code:   let plc = createClient "192.168.68.132.1.1" 801
    
    let inline write symName  = writeOnce setupClient symName 
    let inline writeStr len symName  = writeStringOnce setupClient symName len
    
    let boolExp = fixture.Create<BOOL>()
    let byteExp = fixture.Create<BYTE>()
  
negative.code:   plc { readAny ".dintVar" }    |> assertEqual dintExp
    plc { readAny ".realVar" }    |> assertEqual realExp
    plc { readAny ".lrealVar"}    |> assertEqual lrealExp
    
  (*
    Do not test for LINT and LWORD in TC2 as those types are not supported
  