anchor.diff:    | Dropdown _ -> failwith "not done"
   
   let fieldToProperty field =
  -  match field with
  +  match field.FieldType with
     | Text       -> "string"
     | Paragraph  -> "string"
     | Number     -> "int"
  
positive.code:   | Password   -> Some (sprintf """"%s must be between 6 and 100 characters" """ field.Name)
    | Dropdown _ -> failwith "not done"
  
  let fieldToTestBody (field : Field) =
    match field.FieldType with
    | Text       -> None
    | Paragraph  -> None
  
negative.code: %s
  
  %s
      """ (contextTemplate page) (onceTemplate page) tests
  
  let generate (site : Site) =
    let html_results = site.Pages |> List.map pageLinkTemplate |> flatten
  