lapillus 0.0.2

data/lib/lapillus/process_upload.rb

@@ -0,0 +1,11 @@
+module ProcessUpload
+  def process_upload(uploaddir, uploaded_file, name)
+    File.makedirs "#{uploaddir}"
+    output = File.new("#{uploaddir}/#{name}","wb")
+    #      puts "upload saved to <#{uploaddir}/#{@file_name}}>"
+    uploaded_file.each_byte{|b|
+      output.putc(b)
+    }
+    output.close
+  end
+end

data/lib/lapillus/web_application.rb

@@ -0,0 +1,12 @@
+class WebApplication
+  attr_accessor :homepage  
+  attr_reader :bookmarkable_pages
+
+  def initialize()
+    @bookmarkable_pages = Hash.new
+  end
+
+  def mount_bookmarkable_page(path,page)
+    @bookmarkable_pages[path]=page
+  end
+end

data/lib/lapillus/webrick_server.rb

@@ -0,0 +1,90 @@
+require 'webrick'
+require 'cgi'
+
+class WebrickServer
+
+  def initialize(port)
+    $stdout.sync=true
+    $stderr.sync=true
+    @port = port
+    @server = WEBrick::HTTPServer.new( :Port => @port)
+  end
+  
+  def start
+    trap("INT"){ @server.shutdown }
+    trap('TERM'){ @server.shutdown }
+    @server.start
+  end
+  
+  def mount(name, application)
+    @server.mount(name, WebrickServletCGIwrapper, application)
+  end
+  
+  def allow_termination_for_test
+    Webrick::Terminate.set_server=@server
+    @server.mount("/terminate", Webrick::Terminate)
+  end
+end
+
+class WebrickServletCGIwrapper < WEBrick::HTTPServlet::AbstractServlet
+  
+  include CGI::QueryExtension
+  
+  @env
+  @res
+  @stdin
+  
+  def initialize(server,*options)
+#      puts "initialize(#{server},#{options.to_yaml}) called"
+    super(server,*options)
+    @env=Hash.new # remove?
+  end
+  
+  def stdinput
+    @stdin || $stdin # remove || $stdin
+  end
+  
+  def env_table
+    @env
+  end
+  
+  def out(options = "text/html")
+#      puts "out(#{options.to_yaml} called"
+#      puts "@output_cookies #{@output_cookies.to_yaml}"
+    
+    options = { "type" => options } if options.kind_of?(String)
+    content = yield
+    
+    @res.body = content
+    options.each{|key,val| @res[key]=val }
+    @res.cookies.concat(@output_cookies)
+  end
+  
+  
+  def service(req, res)
+    @res=res
+    @env = req.meta_vars.clone
+    @env.delete "SCRIPT_NAME"
+    @env["QUERY_STRING"] = req.request_uri.query
+    @env["REQUEST_URI"]  = req.request_uri
+
+    @stdin=StringIO.new(req.body || "")
+    initialize_query()
+    
+    Dispatcher.dispatch(self,@options[0])
+  end
+end    
+
+module Webrick
+  class Terminate < WEBrick::HTTPServlet::AbstractServlet
+    def Terminate.set_server=server
+      @@server = server
+    end
+    
+    def do_GET(req, res)
+      puts "trying to shutdown server"
+      @@server.shutdown
+    end
+  end
+end
+

data/lib/lapillus.rb

@@ -0,0 +1,33 @@
+#
+# The MIT License
+#
+# Copyright (c) 2007 Bram Buitendijk, Ronald Haentjens Dekker, 
+#                    Meindert Kroese, Joris van Zundert
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+require 'lapillus/components'
+require 'lapillus/form_components'
+require 'lapillus/containers'
+require 'lapillus/behaviours'
+require 'lapillus/web_application'
+require 'lapillus/dispatcher'
+require 'lapillus/multiview'
+require 'lapillus/pager'
+require 'lapillus/lapillus_server'

data/lib/license.txt

@@ -0,0 +1,24 @@
+#
+# The MIT License
+#
+# Copyright (c) 2007 Bram Buitendijk, Ronald Haentjens Dekker, 
+#                    Meindert Kroese, Joris van Zundert
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#

data/test/tc_base.rb

@@ -0,0 +1,63 @@
+require 'test/unit'
+require 'lapillus/base'
+
+include Lapillus
+
+class TC_Base < Test::Unit::TestCase
+
+#  class TestContainer < Container
+#    attr_accessor :model
+#    add_component :comp1, Component, :model
+#  end
+  
+  class Person
+    attr_reader :name
+    def initialize(name)
+      @name = name
+    end
+  end
+  
+  def test_component_identifier
+    component = Component.new(:identifier)
+    assert_equal(:identifier, component.identifier)
+  end
+  
+  #TODO assert exception raised when model is not set!
+  def test_component_model_without_symbol
+    model = Object.new
+    component = Component.new(:identifier, model)
+    assert_equal(model, component.model)
+    assert_equal(model, component.value)
+  end
+  
+  # TODO: Reactivate!  
+#  def test_component_model_with_symbol
+#    model = Object.new
+#    container = TestContainer.new(:container)
+#    container.model = model    
+#    component = container.comp1
+#    assert_equal(model, component.model)
+#  end  
+  
+  #Note: value test without property is already done in test_component_model_without_symbol
+  def test_component_value_with_property 
+    person = Person.new("Jantje")
+    component = Component.new(:id, person, :name)
+    assert_equal(person, component.model)
+    assert_equal(person.name, component.value)
+  end
+  
+  # TODO: Reactivate!  
+#  def test_container
+#    model = Object.new
+#    container = TestContainer.new(:container)
+#    container.model = model    
+#    comp1 = container.comp1
+#    assert_equal(:comp1, comp1.identifier)
+#    assert(comp1.kind_of?(Component))
+#    assert_equal(model, comp1.model)
+#    assert_equal(container, comp1.parent)
+#    container.model = "hello world"
+#    assert_equal(container.model, comp1.value)
+#  end
+end

data/test/tc_behaviours.rb

@@ -0,0 +1,106 @@
+require 'test/unit'
+require 'rexml/document'
+require 'lapillus'
+
+class TC_Behaviours < Test::Unit::TestCase
+  def setup
+    super()
+    @html = "<html><span lapillus:id='component'/></html>"
+    @component = Label.new("component", "")
+    @webpage = Webpage.new
+  end
+  
+  attr_reader :html, :component, :webpage
+  
+  def test_attribute_modifier
+    component.add_behaviour(AttributeModifier.new("title", "hover"))
+    webpage.add(component)
+    output = webpage.render(html)
+    assert_equal("<html><span title=\"hover\" lapillus:id=\"component\"></span></html>", output)
+  end
+  
+  def test_fade_in
+    component.add_behaviour(FadeIn.new("onmouseover", "id_of_component_to_fade_in"))
+    webpage.add(component)
+    output = webpage.render(html)
+    assert_equal("<html><span onmouseover=\"new Effect.Appear('id_of_component_to_fade_in');\" lapillus:id=\"component\"></span></html>", output)
+  end
+
+  def test_draggable
+    component.add_behaviour(Draggable.new)
+    html="<html><div id='parent'><span lapillus:id='component'/></div></html>"
+    webpage.add(component)
+    output = webpage.render(html)
+    path=component.path
+    expected = "<html><div id=\"parent\"><span id=\"#{path}\" lapillus:id=\"component\">"+
+    "<script language=\"javascript\" type=\"text/javascript\">\n"+
+    "// <![CDATA[\nnew Draggable('#{path}', {});\n// ]]>\n</script>"+
+    "</span></div></html>"
+    assert_equal(expected, output)
+  end
+
+  def test_droppable
+    component.add_behaviour(Droppable.new)
+    html="<html><div id='parent'><span lapillus:id='component'/></div></html>"
+    webpage.add(component)
+    output = webpage.render(html)
+    path=component.path
+    expected = "<html><div id=\"parent\"><span id=\"component\" lapillus:id=\"component\"><script language=\"javascript\" type=\"text/javascript\">\n// <![CDATA[\n Droppables.add('component', {\n onDrop: function(element) { \n new Ajax.Updater('component', '', { \n method:'get', parameters: { \n listener:'component',\n component:element.id\n }\n }); return false;\n }\n });\n// ]]>\n</script></span></div></html>"
+    assert_equal(expected, output)
+  end
+ 
+  def test_draggable_options
+    behaviour=Draggable.new("whatever:yes,skipthis:true")
+    behaviour.snap=true
+    behaviour.revert=true
+    behaviour.handle='handlebar'
+    behaviour.zindex=1000
+    behaviour.constraint='vertical'
+    behaviour.ghosting=true
+    behaviour.start_effect="function(){}"
+    behaviour.revert_effect="function(){}"
+    behaviour.end_effect="function(){}"
+    behaviour.change="function(){}"
+    component.add_behaviour(behaviour)
+    html="<html><div id='parent'><span lapillus:id='component'/></div></html>"
+    webpage.add(component)
+    output = webpage.render(html)
+    path=component.path
+    expected = "<html><div id=\"parent\"><span id=\"#{path}\" lapillus:id=\"component\">"+
+    "<script language=\"javascript\" type=\"text/javascript\">\n"+
+    "// <![CDATA[\nnew Draggable('#{path}', {change:function(){},constraint:'vertical',endeffect:function(){},ghosting:true,handle:'handlebar',revert:true,reverteffect:function(){},snap:true,starteffect:function(){},zindex:1000,whatever:yes,skipthis:true});\n// ]]>\n</script></span></div></html>"
+    assert_equal(expected, output)
+  end
+  
+  def test_ajax_link_rendering
+    link = AjaxLink.new("ajaxlink") 
+    webpage.add(link)
+    output = webpage.render("<html><a lapillus:id='ajaxlink'>de link text</a></html>")
+    javascript = "new Ajax.Request('', { method: 'get', parameters: { listener:'#{link.path}' }}); return false;"
+    assert_equal("<html><a href=\"#\" lapillus:id=\"ajaxlink\" onclick=\"#{javascript}\">de link text</a></html>", output)
+  end
+  
+  class MyAjaxLink < AjaxLink
+    attr_reader :fragment_to_refresh
+    def initialize(id, fragment_to_refresh)
+      super(id)
+      @fragment_to_refresh = fragment_to_refresh
+    end
+  
+    def on_click
+      fragment_to_refresh.render_component
+    end
+  end
+  
+  def test_ajax_link_on_click
+    def webpage.default_htmlfile
+      return "<html><span lapillus:id='panel'></span><lapillus:fragment lapillus:id='fragment'>expected result</lapillus:fragment></html>"
+    end
+    fragment = Fragment.new("panel", "fragment")
+    link = MyAjaxLink.new("link", fragment)
+    webpage.add(fragment)
+    webpage.add(link)  
+    assert_equal("expected result", link.on_click)
+    
+  end
+end

data/test/tc_bookmarkablepagelink.rb

@@ -0,0 +1,58 @@
+require 'test/unit'
+require 'lapillus'
+
+include Lapillus
+
+
+class TC_BookmarkablePageLink < Test::Unit::TestCase 
+  def html_template(input)
+    "<html>#{input}</html>"
+  end
+  
+  def expected_html(output)
+    "<html>#{output}</html>"
+  end
+  
+  def test_bookmarkablepagelink
+    webpage = Webpage.new
+    webpage.add(BookmarkablePageLink.new("myLink", "", Hash[:key => 'value']))
+    html = html_template('<a href="#" lapillus:id="myLink">click here</a>')
+    result = webpage.render(html)
+    assert_equal(expected_html('<a href="/key/value" lapillus:id="myLink">click here</a>'), result)
+  end
+
+  class MyLink < BookmarkablePageLink
+    label 'text', :model => "this text should be visible"
+  end
+  
+  def test_bookmarkablepagelink_with_label
+    webpage = Webpage.new 
+    webpage.add(MyLink.new("myLink", "", Hash[:key => 'value']))
+    html = html_template('<a href="#" lapillus:id="myLink"><span lapillus:id="text">link_text</span></a>')
+    expected = expected_html('<a href="/key/value" lapillus:id="myLink"><span lapillus:id="text">this text should be visible</span></a>')
+    result = webpage.render(html)
+    assert_equal(expected, result)
+  end
+  
+  def test_bookmarkablepagelink_with_baseurl
+    webpage = Webpage.new 
+    webpage.add(BookmarkablePageLink.new("myLink", "/base/page", Hash[:key => 'value']))
+    html = html_template('<a href="#" lapillus:id="myLink">text</a>')
+    expected = expected_html('<a href="/base/page/key/value" lapillus:id="myLink">text</a>')
+    result = webpage.render(html)
+    assert_equal(expected, result)
+    link = webpage["myLink"]
+    assert_equal("/base/page", link.page_url)
+  end
+
+  def test_bookmarkablepagelink_with_multiple_page_parameters
+    webpage = Webpage.new 
+    webpage.add(BookmarkablePageLink.new("myLink", "", Hash["key" => 'value', "sleutel" => 'waarde']))
+    html = html_template('<a href="#" lapillus:id="myLink">click here</a>')
+    result = webpage.render(html)
+    expected = expected_html('<a href="/key/value/sleutel/waarde" lapillus:id="myLink">click here</a>')
+    assert_equal(expected, result)
+  end
+
+  
+end

data/test/tc_components.rb

@@ -0,0 +1,285 @@
+require 'test/unit'
+require 'lapillus'
+
+
+include Lapillus
+
+module Lapillus
+  class Component
+    public :remove_behaviour
+    public :render_component
+  end
+end
+class TC_Components < Test::Unit::TestCase
+
+  def test_component_id_no_value
+    component = Component.new("id")
+    assert_equal("id", component.identifier)
+    assert(!component.has_model?)
+  end
+  
+#  def test_component_with_string #same thing with List
+#    component = Component.new("id", "string")
+#    assert(component.has_value?)
+#    assert_equal("string", component.value)
+#  end
+  
+#  def test_component_set_value
+#    component = Component.new("id")
+#    assert(!component.has_value?)
+#    component.value = "new"
+#    assert(component.has_value?)
+#    assert_equal("new", component.value)
+#  end
+
+  class TestObject
+    attr_accessor :attribute
+    def initialize
+      @attribute = "first"
+    end
+  end
+  
+#  def test_component_without_value_asks_parent
+#    container = Container.new("", TestObject.new)
+#    component = Component.new("attribute")
+#    container.add(component)
+#    assert(!component.has_value?)
+#    assert_equal("first", component.value)
+#  end
+  
+#  def test_component_without_value_sets_parent
+#    test_object = TestObject.new
+#    container = Container.new("", test_object)
+#    component = Component.new("attribute")
+#    container.add(component)
+#    component.value = "second"
+#    assert(!component.has_value?)
+#    assert_equal("second", test_object.attribute)
+#  end
+   
+  def test_render_component
+    def webpage.default_htmlfile
+      return '<html><span lapillus:id="label">My Label</span></html>'
+    end
+    label = Label.new("label", "My Label")
+    webpage.add(label)
+    html = label.render_component
+    assert_equal("My Label", html)
+  end
+  
+  def test_render_component_with_remarks
+    def webpage.default_htmlfile
+      return '<html><span lapillus:id="panel"><!-- <span lapillus:id="remark">Bla</span> --><span lapillus:id="visible">huh</span></span></html>'
+    end
+    panel = Panel.new("panel")
+    remark = Label.new("remark", "whatever")
+    label = Label.new("visible", "My Label")
+    panel.add(remark)
+    panel.add(label)
+    webpage.add(panel)
+    html = panel.render_component
+    assert_equal("<!-- <span lapillus:id=\"remark\">Bla</span> --><span lapillus:id=\"visible\">My Label</span>", html)
+  end
+
+  #TODO: assert_exception_expected(component.parent=nil)  can not set
+  #TODO: test_container_with_compound_model
+  #TODO: test_container_without_id (container ListView, WebPage)
+   attr_reader :webpage
+     
+  def html_template(input)
+    "<html>#{input}</html>"
+  end
+  
+  def expected_html(output)
+    "<html>#{output}</html>"
+  end
+  
+  def setup
+    @webpage = Webpage.new
+  end
+  
+  def test_label
+    label = Label.new("label", "hello world")
+    html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html('<span lapillus:id="label">hello world</span>')
+    webpage.add(label)
+    result = webpage.render(html)
+    assert_equal(expectation, result)
+  end  
+  
+  def test_label_ignore_newlines
+    label = Label.new("label", "hello world\nbye")
+    html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html("<span lapillus:id=\"label\">hello world\nbye</span>")
+    webpage.add(label)
+    result = webpage.render(html)
+    assert_equal(expectation, result)
+  end
+
+  def test_label_xml_escaping
+    label = Label.new("label", "hello world < > ' & \" ")
+    html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html('<span lapillus:id="label">hello world &lt; &gt; \' &amp; " </span>')
+    webpage.add(label)
+    result = webpage.render(html)
+    assert_equal(expectation, result)
+  end
+
+  def html_template(input)
+  "<html><body>it is a brave new world!#{input}</body></html>"
+  end
+  
+  def expected_html(output)
+    "<html><body>it is a brave new world!#{output}</body></html>"
+  end
+  
+  def test_multilinelabel_paragraphs
+    label = MultiLineLabel.new("label", "a paragraph\n\n")
+    webpage.add(label)
+    html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html('<span lapillus:id="label"><p>a paragraph</p></span>')
+    result = webpage.render(html)
+    assert_equal(expectation, result)
+  end
+
+  def test_multilinelabel_paragraphs_2
+    label = MultiLineLabel.new("label", "a paragraph\n\n\nnext paragraph\n\n")
+    webpage.add(label)
+    html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html('<span lapillus:id="label"><p>a paragraph</p><p>next paragraph</p></span>')
+    result = webpage.render(html)
+    assert_equal(expectation, result)
+  end
+  
+  def test_multilinelabel_newlines
+    label = MultiLineLabel.new("label", "hello world\nbye")
+    webpage.add(label)
+     html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html('<span lapillus:id="label">hello world<br/>bye</span>')
+    result = webpage.render(html)
+    assert_equal(expectation, result)
+  end
+
+  def test_multilinelabel_newlines_2
+    label = MultiLineLabel.new("label", "hello world\nbye\n")
+    webpage.add(label)
+     html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html('<span lapillus:id="label">hello world<br/>bye<br/></span>')
+    result = webpage.render(html)
+    assert_equal(expectation, result)
+  end
+  
+  
+  def test_multilinelabel_combi_br_p
+    label = MultiLineLabel.new("label", "a \nparagraph\n\n")
+    webpage.add(label)
+     html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html('<span lapillus:id="label"><p>a <br/>paragraph</p></span>')
+    result = webpage.render(html)
+    assert_equal(expectation, result)
+  end
+  
+  def test_multilabel_with_html_content
+    label = MultiLineLabel.new("label", "a \n<p>paragraph</p>\n\n")
+    label.html_content=true
+    webpage.add(label)
+     html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html('<span lapillus:id="label"><p>a <br/><p>paragraph</p></p></span>')
+    result = webpage.render(html)
+    assert_equal(expectation.strip, result)
+    label.html_content=false
+    result = webpage.render(html)
+    expectation = expected_html('<span lapillus:id="label"><p>a <br/>&lt;p&gt;paragraph&lt;/p&gt;</p></span>')
+    assert_equal(expectation.strip, result)
+  end  
+  
+  def test_multilinelabel_empty_string
+    label = MultiLineLabel.new("label", "")
+    webpage.add(label)
+     html = html_template('<span lapillus:id="label">this text should not be visible</span>')
+    expectation = expected_html('<span lapillus:id="label"></span>')
+    result = webpage.render(html)
+    assert_equal(expectation, result)
+  end
+  
+  class TestBehaviour < Behaviour
+  end
+  
+  class Test2Behaviour < Behaviour
+  end
+  
+  def test_add_behaviour
+    test_component = Component.new("test")
+    test_behaviour = TestBehaviour.new
+    test_component.add_behaviour(test_behaviour)
+    assert(test_component.has_behaviour?(TestBehaviour))
+    assert(!test_component.has_behaviour?(Test2Behaviour))
+    assert_equal(test_behaviour, test_component.behaviour(TestBehaviour))
+  end
+  
+  def test_remove_behaviour
+    test_component = Component.new("test")
+    test_behaviour = TestBehaviour.new
+    test_component.add_behaviour(test_behaviour)
+    assert(test_component.has_behaviour?(TestBehaviour))
+    test_component.remove_behaviour(TestBehaviour)
+    assert(!test_component.has_behaviour?(TestBehaviour))
+  end
+  
+  class ImagePage < Webpage
+    image "my_image", :model => "picture1.jpg", :root_url => "/application"  
+  end
+  
+  def test_image
+    html = <<END
+<html>
+<body>
+  <img lapillus:id='my_image'/>
+</body>
+</html>
+END
+    expected = <<END
+<html>
+<body>
+  <img src="/application/images/picture1.jpg" lapillus:id="my_image"/>
+</body>
+</html>
+END
+    page = ImagePage.new
+    result = page.render(html)
+    assert_equal(expected.strip, result)
+  end
+  
+  class ListViewImagePage < Webpage
+    listview "my_images", :model => ["pic1.jpg", "pic2.jpg"] do |the_image|
+      image "my_image", :model => the_image, :root_url => "/application"
+    end  
+  end
+  
+  def test_listview_with_image
+    html = <<END
+<html>
+<body>
+  <span lapillus:id='my_images'>
+    <img lapillus:id='my_image'/>
+  </span>
+</body>
+</html>
+END
+    expected = <<END
+<html>
+<body>
+  <span lapillus:id=\"my_images\">
+    <img src=\"/application/images/pic1.jpg\" lapillus:id=\"my_image\"/>
+  
+    <img src=\"/application/images/pic2.jpg\" lapillus:id=\"my_image\"/>
+  </span>
+</body>
+</html>
+END
+    page = ListViewImagePage.new
+    result = page.render(html)
+    assert_equal(expected.strip, result)
+  end
+
+end