anchor.diff:  
     let generated_unittests_result = generated_unittests_template "//nothing"
   
  -  let generated_uittests_result = generated_uitests_template "//nothing"
  +  let uitests_results = site.Pages |> List.map uitestTemplate |> flatten
  +  let generated_uitests_result = generated_uitests_template uitests_results
   
     write (destination "generated_html") generated_html_result
     write (destination "generated_views") generated_views_result
  
positive.code:   write (destination "generated_paths") generated_paths_result
    write (destination "generated_validation") generated_validation_result
    write (destination "generated_unittests") generated_unittests_result
    write (destination "generated_uitests") generated_uittests_result
  
negative.code:   | Null       -> None
    | NotNull    -> None
    | Required   -> Some (sprintf """required "%s" %s""" field.Name property)
    | Min(_)     -> None
    | Max(_)     -> None
    | Range(_,_) -> None
  
  let attributeToTestName (field : Field) =
    match field.Attribute with
    | Id         -> None
    | Null       -> None
    | NotNull    -> None
    | Required   -> Some (sprintf """"%s is required" """ field.Name)
    | Min(_)     -> None
    | Max(_)     -> None
    | Range(_,_) -> None
  
  let attributeToTestBody (field : Field) =
    match field.Attribute with
    | Id         -> None
    | Null       -> None
    | NotNull    -> None
    | Required   -> Some (sprintf """displayed "%s is required" """ field.Name)
    | Min(_)     -> None
    | Max(_)     -> None
    | Range(_,_) -> None
  