anchor.diff:              raw text {@param1} more raw {@param2}
           }
       """
  +        [   CommandText "
  +            raw text "
  +            Parameter 0
  +            CommandText " more raw "
  +            Parameter 1
  +            CommandText "
  +        ;"
  +        ]
   
   [<Test>]
   let ``vendor with imaginary`` () =
  
positive.code:             this is raw text
          }
      """
  
  [<Test>]
  let ``vendor without imaginary`` () =
  
negative.code: open Rezoom.SQL
  open Rezoom.SQL.Mapping
  
  let vendor (sql : string) expected =
      let userModel = userModel1()
      let parsed = CommandEffect.OfSQL(userModel.Model, "anonymous", sql)
      let indexer = dispenserParameterIndexer()
      let fragments = userModel.Backend.ToCommandFragments(indexer, parsed.Statements) |> List.ofSeq
      printfn "%A" fragments
      if fragments <> expected then
          failwith "Mismatch"
  
  [<Test>]
  let ``vendor without exprs or imaginary`` () =
  