anchor.diff:    | 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) =
  +let attributeToTestName field =
     match field.Attribute with
     | Id         -> None
     | Null       -> None
  
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:   | Password   -> Some (sprintf """displayed "%s must be between 6 and 100 characters" """ field.Name)
    | Dropdown _ -> failwith "not done"
  
  let attributeToValidation field page =
    let property = sprintf "%s.%s" page.AsFormVal field.AsProperty
    match field.Attribute with
    | Id         -> None
  