anchor.diff:    | Max(max)   -> Some (sprintf """"%s must be less than %i" """ field.Name max)
     | Range(min,max) -> Some (sprintf """"%s must be between %i and %i" """ field.Name min max)
   
  -let attributeToTestBody (field : Field) =
  +let attributeToTestBody field =
     match field.Attribute with
     | Id         -> None
     | Null       -> None
  
positive.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 : Field) =
    match field.Attribute with
    | Id         -> None
    | Null       -> None
  
negative.code: 
  let contextTemplate (page : Page) = sprintf """context "%s" """ page.Name |> pad 1
  
  let onceTemplate (page : Page) =
    sprintf """once (fun _ -> url "http://localhost:8083%s"; click ".btn") """ page.AsHref
    |> pad 1
  
  let attributeUITestTemplate name field =
  