anchor.diff:  
   let contextTemplate (page : Page) = sprintf """context "%s" """ page.Name |> pad 1
   
  -let beforeTemplate (page : Page) =
  -  sprintf """before (fun _ -> url "http://localhost:8083%s"; click ".btn") """ page.AsHref
  +let onceTemplate (page : Page) =
  +  sprintf """once (fun _ -> url "http://localhost:8083%s"; click ".btn") """ page.AsHref
     |> pad 1
   
   let attributeUITestTemplate name field =
  
positive.code:   | Password   -> "string"
    | Dropdown _ -> "int"
  
  let fieldToValidation (field : Field) (page : Page) =
    let property = sprintf "%s.%s" page.AsFormVal field.AsProperty
    match field.FieldType with
    | Text       -> None
  
negative.code:   | Max(max)   -> Some (sprintf """validate_max "%s" %s %i""" field.Name property max)
    | Range(min,max) -> Some (sprintf """validate_range "%s" %s %i %i""" field.Name property min max)
  
  let attributeToTestName field =
    match field.Attribute with
    | Id         -> None
    | Null       -> None
  