anchor.diff:      [<JavaScript>]
       override this.Body = 
           // SampleInternals.SimplePage () :> IPagelet
  -        SampleInternals.SimpleNavigation () :> IPagelet
  +        // SampleInternals.SimpleNavigation () :> IPagelet
  +        SampleInternals.FormTypes () :> IPagelet
positive.code: 
  module SampleInternals =
      
      [<JavaScript>]
      let SimplePage () = 
          let jq = JQuery.Mobile.MobileJQ.JQuery // should trigger webresource.
          let header =
              Div [H1 [Text "Page Title"]]
              |>! OnAfterRender (fun elem ->
                  JQuery.JQuery.Of(elem.Body).Attr("data-role", "header").Ignore)
          let content =
              Div [P [Text "Lorem ipsum dolor sit amet, consectetur adipiscing"]]
              |>! OnAfterRender (fun elem ->
                  JQuery.JQuery.Of(elem.Body).Attr("data-role", "content").Ignore)
          let footer =
              Div [H4 [Text "Page Footer"]]
              |>! OnAfterRender (fun elem ->
                  JQuery.JQuery.Of(elem.Body).Attr("data-role", "footer").Ignore)
          
          let page = 
              Div [header
                   content
                   footer]
              |>! OnAfterRender (fun elem ->
                  JQuery.JQuery.Of(elem.Body).Attr("data-role", "page").Ignore)
          page    
  
      [<JavaScript>]
  
negative.code:         let home =
              let header =
                  Div [H1 [Text "Home"]]
                  |> AddDataRole "header"
          
              let content =
                  Div [P [A [Attr.HRef "#about"; Text "About this app"]]]
                  |> AddDataRole "content"
          
              let page = 
                  Div [Attr.Id "home"
                       header  :> IPagelet
                       content :> IPagelet]
                  |> AddDataRole "page"
  
              page
  
          let about =
              let header =
                  Div [H1 [Text "About This App"]]
                  |> AddDataRole "header"
          
              let content =
                  Div [P [Text "This app rocks "
                          A [HRef "#home" 
                             Text " Go home!"] :> IPagelet
                          ]
                      ]
                  |> AddDataRole "content"
          
              let page = 
                  Div [Attr.Id "about"
                       header  :> IPagelet
                       content :> IPagelet]
                  |> AddDataRole "page"
              page
          
          Div [
  