RubyGems - lapillus - Versions diffs - 0.0.2 - Mend

lapillus 0.0.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (46) hide show

data/examples/guest_book.rb +50 -0
data/examples/hello_world.rb +12 -0
data/examples/persons.rb +30 -0
data/examples/tc_guest_book.rb +34 -0
data/examples/tc_hello_world.rb +24 -0
data/examples/tc_persons.rb +13 -0
data/html/GuestBook.html +24 -0
data/html/HelloWorld.html +5 -0
data/html/LapillusTesterTestPage.html +12 -0
data/html/Persons.html +7 -0
data/html/TestPage.html +8 -0
data/html/TestRemotePanel.html +8 -0
data/lib/changelog.txt +6 -0
data/lib/lapillus/base.rb +276 -0
data/lib/lapillus/behaviours.rb +208 -0
data/lib/lapillus/components.rb +116 -0
data/lib/lapillus/containers.rb +234 -0
data/lib/lapillus/dispatcher.rb +216 -0
data/lib/lapillus/form_components.rb +88 -0
data/lib/lapillus/lapillus_server.rb +21 -0
data/lib/lapillus/lapillus_testers.rb +167 -0
data/lib/lapillus/mongrel_server.rb +69 -0
data/lib/lapillus/multiview.rb +45 -0
data/lib/lapillus/pager.rb +104 -0
data/lib/lapillus/process_upload.rb +11 -0
data/lib/lapillus/web_application.rb +12 -0
data/lib/lapillus/webrick_server.rb +90 -0
data/lib/lapillus.rb +33 -0
data/lib/license.txt +24 -0
data/test/tc_base.rb +63 -0
data/test/tc_behaviours.rb +106 -0
data/test/tc_bookmarkablepagelink.rb +58 -0
data/test/tc_components.rb +285 -0
data/test/tc_containers.rb +173 -0
data/test/tc_dispatcher.rb +106 -0
data/test/tc_examples.rb +193 -0
data/test/tc_form.rb +231 -0
data/test/tc_fragments.rb +114 -0
data/test/tc_hierarchy.rb +34 -0
data/test/tc_lapillus.rb +30 -0
data/test/tc_lapillus_testers.rb +108 -0
data/test/tc_multiview.rb +91 -0
data/test/tc_pager.rb +94 -0
data/test/tc_rendering.rb +74 -0
data/test/ts_all_test.rb +20 -0
metadata +94 -0

data/test/tc_containers.rb ADDED Viewed

@@ -0,0 +1,173 @@
+require 'lapillus'
+require 'rexml/document'
+require 'test/unit'
+include Lapillus #hmm shouldn't this be moved!? to lapillus/lapillus
+module Lapillus
+  class Component
+    public :hierarchy
+  end
+end
+class TC_containers < Test::Unit::TestCase
+  attr_reader :webpage
+  def setup
+    @webpage = Webpage.new
+  end
+  def html_template(input)
+    "<html>#{input}</html>"
+  end
+  def expected_html(output)
+    "<html>#{output}</html>"
+  end
+  def test_container
+    container = Container.new("container")
+    component = Component.new("component")
+    container.add(component)
+    assert_equal([component], container.components)
+    assert(component.has_parent?)
+    assert_equal(container, component.parent)
+    assert(!container.has_parent?)
+  end
+  def test_hierarchy
+    first = Container.new("first")
+    second = Container.new("second")
+    three = Component.new("three")
+    first.add(second.add(three))
+    assert_equal([first, second, three], three.hierarchy)
+    assert_equal(first, three.webpage)
+    assert_equal(first, second.webpage)
+    assert_equal(first, first.webpage)
+  end
+  def test_path
+    first = Container.new("first")
+    second = Container.new("second")
+    three = Component.new("three")
+    first.add(second.add(three))
+    assert_equal("second.three", three.path)
+    assert_equal("second", second.path)
+    assert_equal("", first.path)
+  end
+ def test_get
+    first = Container.new("first")
+    second = Container.new("second")
+    three = Component.new("three")
+    four = Component.new("four")
+    second.add(four)
+    first.add(second.add(three))
+    assert_equal(three, first["second.three"])
+    assert_equal(second, first["second"])
+    assert_equal(four, second["four"])
+ end
+  def test_webpage
+    html = "<html><body>it is a brave new world!</body></html>"
+    result = webpage.render(html)
+    assert_equal(html, result)
+  end
+  #TODO: add rendering test for Webpage with a component
+  class TestWebpage < Webpage
+    attr_accessor :values
+    listview "listview", :model => :values do |text|
+      label "text", :model => text
+    end
+  end
+  def test_listview_components
+    test = TestWebpage.new
+    test.values = ["first","second"]
+    listview = test.listview
+    label1 = listview[0].text
+    label2 = listview[1].text
+    assert_equal("first", label1.value)
+    assert_equal("second", label2.value)
+    assert_equal("listview.0.text", label1.path)
+    assert_equal("listview.1.text", label2.path)
+  end
+  def test_listview_rendering
+    html = html_template('<span lapillus:id="listview">'+
+      '<p><span lapillus:id="text">Comment text goes here.</span>'+
+      '</p></span>')
+    expected = expected_html('<span lapillus:id="listview">'+
+      '<p><span lapillus:id="text">first</span>'+
+      '</p><p><span lapillus:id="text">second</span>'+
+      '</p></span>')
+    testpanel = TestWebpage.new
+    testpanel.values = ["first","second"]
+    listview = testpanel.listview
+    result = testpanel.render(html)
+    assert_equal(expected, result)
+  end
+  def test_listview_set_value
+    test = TestWebpage.new
+    test.values = ["first","second"]
+    listview = test.listview
+    label1 = listview[0].text
+    label2 = listview[1].text
+    assert_equal("first", label1.value)
+    assert_equal("second", label2.value)
+  end
+# TODO: reenable show tree
+#  def test_webpage_to_s
+#    listview = ListView.new("list", ["jan", "piet", "klaas"]) do |name|
+#      add(Label.new("label", name))
+#    end
+#    label = Label.new("label", "Hello World")
+#    webpage.add(label)
+#    webpage.add(listview)
+#    puts webpage.show_tree
+#  end
+  #NOTE: a remote panel is a panel with its own html file
+  #implementation at the moment is naieve
+  #just copy the body
+  def test_remote_panel_render_from_within_webpage
+    webpage = TestPage.new #NOTE: uses html/TestPage.html
+    remote_panel = TestRemotePanel.new("remote_panel") # html/TestRemotePanel.html
+    webpage.add(remote_panel)
+    expected = <<EOF
+<html>
+<body>
+  This should be visible
+  <span lapillus:id="remote_panel">
+contents of remote panel
+</span>
+</body>
+</html>
+EOF
+    assert_equal(expected.strip, webpage.render)
+  end
+  def test_remote_panel_render_indepent_from_webpage
+    remote_panel = TestRemotePanel.new("remote_panel") # html/TestRemotePanel.html  end
+    expected = <<EOF
+<html>
+<title>
+not visible
+</title>
+<body>
+contents of remote panel
+</body>
+</html>
+EOF
+    assert_equal(expected.strip, remote_panel.render)
+  end
+end
+class TestPage < Webpage
+end
+class TestRemotePanel < RemotePanel
+end

data/test/tc_dispatcher.rb ADDED Viewed

@@ -0,0 +1,106 @@
+require 'test/unit'
+require 'lapillus/containers'
+require 'lapillus/dispatcher'
+require 'lapillus/web_application'
+include Lapillus
+module Fake_output
+  def render
+    "<html>expected output</html>"
+  end
+end
+class MockWebpage < Webpage
+  include Fake_output
+end
+class MockBookmarkableWebpage < BookmarkableWebpage
+  def initialize(page_parameters)
+    @page_parameters=page_parameters
+  end
+  def render
+    parameters=@page_parameters.collect{|k,v| "#{k}=#{v}"}.join("\n")
+    "<html>#{parameters}</html>"
+  end
+end
+class TC_Dispatcher < Test::Unit::TestCase
+  def test_get_homepage
+    mock_cgi = MockCgi.new('')
+    mock_application = WebApplication.new
+    mock_application.homepage = MockWebpage
+    Dispatcher.get(mock_cgi, mock_application)
+    assert_equal("<html>expected output</html>", mock_cgi.output)
+  end
+  def test_get_homepage_with_trailing_slash
+    mock_cgi = MockCgi.new('/')
+    mock_application = WebApplication.new
+    mock_application.homepage = MockWebpage
+    Dispatcher.get(mock_cgi, mock_application)
+    assert_equal("<html>expected output</html>", mock_cgi.output)
+  end
+  def test_get_bookmarkable_page
+    mock_cgi = MockCgi.new('/page')
+    mock_application = WebApplication.new
+    mock_application.mount_bookmarkable_page("page", MockBookmarkableWebpage)
+    Dispatcher.get(mock_cgi, mock_application)
+    assert_equal("<html></html>", mock_cgi.output)
+  end
+  def test_get_bookmarkable_page_with_trailing_slash
+    mock_cgi = MockCgi.new('/page/')
+    mock_application = WebApplication.new
+    mock_application.mount_bookmarkable_page("page", MockBookmarkableWebpage)
+    Dispatcher.get(mock_cgi, mock_application)
+    assert_equal("<html></html>", mock_cgi.output)
+  end
+  def test_get_bookmarkable_page_with_parameters
+    mock_cgi = MockCgi.new('/page/param1/value/param2/value2')
+    mock_application = WebApplication.new
+    mock_application.mount_bookmarkable_page("page", MockBookmarkableWebpage)
+    Dispatcher.get(mock_cgi, mock_application)
+    assert_equal("<html>param1=value\nparam2=value2</html>", mock_cgi.output)
+  end
+  def test_session
+    mock_cgi = MockCgi.new('')
+    mock_application = WebApplication.new
+    mock_application.homepage = MockWebpage
+    Dispatcher.get(mock_cgi, mock_application)
+    assert_equal("<html>expected output</html>", mock_cgi.output)
+    session = Dispatcher.get_session(mock_cgi)
+    assert(!session.new_session)
+    page = session['']
+    assert_not_nil(page)
+  end
+end
+class MockCgi
+  attr_reader :env_table
+  attr_reader :params
+  attr_reader :cookies
+  attr_reader :output
+  def initialize(path_info)
+    @env_table = Hash.new
+    @params = Hash.new
+    @cookies = Hash.new
+    env_table['PATH_INFO']=path_info
+  end
+  def key?(key)
+    return params.has_key?(key)
+  end
+  alias has_key? key?
+  def out(http_headers)
+    params["_session_id"] = @output_cookies.to_s.split(";")[0].split("_session_id=")[1]
+    @output = yield
+  end
+  def [](key)
+   return params[key]
+  end
+end

data/test/tc_examples.rb ADDED Viewed

@@ -0,0 +1,193 @@
+require 'lapillus'
+include Lapillus
+class TC_examples < Test::Unit::TestCase
+  class MyFirstWebpage < Webpage
+  end
+  def test_new_webpage
+    page = MyFirstWebpage.new
+    assert_equal(0, page.components.size)
+  end
+  class MyLabelWebpage < Webpage
+    label "my_label"
+  end
+  def test_new_label
+    page = MyLabelWebpage.new
+    assert_equal(1, page.components.size)
+    assert(!page.my_label.has_model?)
+    assert_equal("", page.my_label.value)
+  end
+#TODO: example with two labels, with different identifiers
+  class MyLabelWebpage2 < Webpage
+    label "label", :model => "Hello world!"
+  end
+  def test_label
+    page = MyLabelWebpage2.new
+    assert_equal(1, page.components.size)
+    assert(page.label.has_model?)
+    assert_equal("Hello world!", page.label.model)
+    assert_equal("Hello world!", page.label.value)
+  end
+  class Person
+    attr_reader :name
+    def initialize(name)
+      @name = name
+    end
+    def to_s
+      "person: #{name}"
+    end
+  end
+  class MyLabelWebpage3 < Webpage
+    attr_reader :person
+    label "person_label", :model => :person
+    def initialize(person)
+      super()
+      @person = person
+    end
+  end
+  def test_label_with_attribute_as_model
+    person = Person.new("Klaasje")
+    page = MyLabelWebpage3.new(person)
+    assert_equal(1, page.components.size)
+    assert_equal(person, page.person_label.model)
+    assert_equal("person: Klaasje", page.person_label.value)
+  end
+  #TODO: add example with two labels, with different identifiers
+  class MyLabelWebpage4 < Webpage
+    attr_reader :person
+    label "person_name", :model => :person, :property => :name
+    def initialize(person)
+      super()
+      @person = person
+    end
+  end
+  def test_label_with_attribute_as_model_and_property
+    person = Person.new("Klaasje")
+    page = MyLabelWebpage4.new(person)
+    assert_equal(1, page.components.size)
+    assert_equal(person, page.person_name.model)
+    assert_equal("Klaasje", page.person_name.value)
+  end
+  #TODO: add example with a listview with a model and a property
+  class MyListViewWebpage < Webpage
+    listview "listview", :model => ["value1", "value2"] do |item|
+      label "item", :model => item
+      label "another_thing", :model => "message"
+    end
+  end
+  def test_listview
+    page = MyListViewWebpage.new
+    assert_equal(1, page.components.size)
+    assert_equal(2, page.listview.size)
+    assert_equal("value1", page.listview[0].item.value)
+    assert_equal("value2", page.listview[1].item.value)
+    assert_equal("message", page.listview[0].another_thing.value)
+    assert_equal("message", page.listview[1].another_thing.value)
+  end
+  class MyListViewWebpage2 < Webpage
+    attr_reader :persons
+    listview "personlist", :model => :persons do |person|
+      label "name", :model => person, :property => :name
+    end
+    def initialize
+      super()
+      person1 = Person.new("jantje")
+      person2 = Person.new("pietje")
+      @persons = [person1, person2]
+    end
+  end
+  def test_listview_with_attribute_as_model
+    page = MyListViewWebpage2.new
+    assert_equal(1, page.components.size)
+    assert_equal(2, page.personlist.size)
+    assert_equal("jantje", page.personlist[0].name.value)
+    assert_equal("pietje", page.personlist[1].name.value)
+  end
+  class MyForm < Form
+    textfield "textfield"
+    password_textfield "password"
+    textarea "textarea"
+    fileuploadfield "fileuploadfield"
+    def on_submit(button)
+      puts "the user entered #{textfield.value}"
+    end
+  end
+  def test_form
+    form = MyForm.new("my_form")
+    assert_equal(4, form.components.size)
+    assert_equal("", form.textfield.value)
+    assert_equal("", form.password.value)
+    assert_equal("", form.textarea.value)
+    values = { "textfield" => "value1",
+               "password" => "value2",
+               "textarea" => "value3"
+    }
+    form.post(values)
+    assert_equal("value1", form.textfield.value)
+    assert_equal("value2", form.password.value)
+    assert_equal("value3", form.textarea.value)
+  end
+  class MyModel
+    attr_accessor :property1
+  end
+  class MyForm2 < Form
+    textfield "textfield", :model => :model, :property => :property1
+  end
+  def test_form_with_model
+    model = MyModel.new
+    model.property1 = "value1"
+    form = MyForm2.new("my_form", model)
+    assert_equal(1, form.components.size)
+    assert_equal("value1", form.textfield.value)
+  end
+  class MyPanel < Panel
+    alias person model
+    label "name", :model => :person, :property => :name
+  end
+  class MyPanelWebpage < Webpage
+    attr_reader :person
+    panel "panel", MyPanel, :person
+    def initialize(person)
+      super()
+      @person = person
+    end
+  end
+  def test_panel
+    person = Person.new("jantje")
+    page = MyPanelWebpage.new(person)
+    assert_equal(person.name, page.panel.name.value)
+  end
+end

data/test/tc_form.rb ADDED Viewed

@@ -0,0 +1,231 @@
+require 'test/unit'
+require 'lapillus'
+include Lapillus
+class TC_Form < Test::Unit::TestCase
+  class TestPage < Webpage
+    attr_writer :called
+    def called?
+      @called
+    end
+  end
+  def html_template(input)
+    return "<html><form lapillus:id=\"test_form\">#{input}</form></html>\n"
+  end
+  def expected_html(output)
+    return "<html><form enctype=\"multipart/form-data\" method=\"post\" lapillus:id=\"test_form\">#{output}<input name=\"page\" type=\"hidden\" value=\"TC_Form::TestPage\"/></form></html>"
+  end
+  def expected_html2(output)
+    return "<html><form enctype=\"multipart/form-data\" method=\"post\" lapillus:id=\"test_form\">#{output}<input name=\"page\" type=\"hidden\" value=\"Lapillus::Webpage\"/></form></html>"
+  end
+  class FormValue
+    attr_accessor :called
+    def called?
+      return @called
+    end
+  end
+  class MyForm < Form
+    attr_reader :value
+    def initialize(id)
+      super(id)
+      @value = FormValue.new
+    end
+    def on_submit(button)
+      value.called=true
+    end
+  end
+  def test_form
+    html = html_template("more stuff here")
+    page = TestPage.new
+    form = MyForm.new("test_form")
+    page.add(form)
+    result = page.render(html)
+    assert_equal(expected_html("more stuff here"), result)
+    hash = {"test_form.fake"=>"fake"}
+    page.post(hash)
+    assert(form.value.called?)
+  end
+  class Comment
+    attr_accessor :area
+    attr_accessor :field
+    def initialize text
+      @area = text
+      @field = text
+    end
+  end
+  class MyTextfieldForm < Form
+    attr_reader :comment
+    textfield "field", :model => :comment, :property => :field
+    def initialize(id, comment)
+      super(id)
+      @comment = comment
+    end
+    def on_submit(button)
+    end
+  end
+  def test_form_textfield
+    html = html_template('<input type="text" lapillus:id="field"/>')
+    comment = Comment.new("supernice")
+    page = Webpage.new
+    form = MyTextfieldForm.new("test_form", comment)
+    page.add(form)
+    result = page.render(html)
+    assert_equal(expected_html2('<input name="test_form.field" type="text" lapillus:id="field" value="supernice"/>'), result)
+    post_values = Hash['test_form.field' => 'value']
+    page.post(post_values)
+    assert_equal("value", comment.field)
+  end
+    class MyAreaForm < Form
+      attr_reader :comment
+      textarea "area", :model => :comment, :property => :area
+      def initialize(id, comment)
+        super(id)
+        @comment = comment
+      end
+      def on_submit(button)
+      end
+    end
+  def test_form_textarea
+    comment = Comment.new("test test test")
+    html = html_template('<textarea lapillus:id="area">some text</textarea>')
+    page = Webpage.new
+    form = MyAreaForm.new("test_form", comment)
+    page.add(form)
+    result = page.render(html)
+    assert_equal(expected_html2('<textarea name="test_form.area" lapillus:id="area">test test test</textarea>'), result)
+    post_values = Hash['test_form.area' => 'value']
+    page.post(post_values)
+    assert_equal("value", comment.area)
+  end
+  class UploadFile
+    #TODO: Develop into proper model for FileUpload
+    attr_accessor :upload_file
+    def initialize upload_file
+      @upload_file = upload_file
+    end
+  end
+  class MyUploadfieldForm < Form
+    attr_reader :upload_file
+    fileuploadfield "upload_field", :model => :upload_file, :property => :upload_file
+    def initialize(id, upload_file)
+      super(id)
+      @upload_file = upload_file
+    end
+    def on_submit(button)
+    end
+  end
+  def test_form_upload_field
+    upload_file = UploadFile.new( "some file huh?" )
+    html = html_template('<input lapillus:id="upload_field" type="file"/>')
+    page = Webpage.new
+    form = MyUploadfieldForm.new("test_form", upload_file)
+    page.add(form)
+    result = page.render(html)
+    assert_equal(expected_html2('<input name="test_form.upload_field" type="file" lapillus:id="upload_field"/>'), result)
+    #TODO: Acceptance test with a real file?
+    post_values = Hash['test_form.upload_field' => 'value']
+    page.post(post_values)
+    assert_equal("value", upload_file.upload_file)
+  end
+  class TestForm < Form
+    alias comment model
+    textarea "area", :model => :comment, :property => :area
+    def on_submit(button)
+    end
+  end
+  def test_form_model
+    html = html_template('<textarea lapillus:id="area">some text</textarea>'    )
+    page = TestPage.new
+    page.add(TestForm.new("test_form", Comment.new("nice")))
+    result = page.render(html)
+    assert_equal(expected_html('<textarea name="test_form.area" lapillus:id="area">nice</textarea>'), result)
+  end
+    class ComplexForm < Form
+      fileuploadfield "uploadveld"
+      def on_submit(button)
+      end
+    end
+    def test_complex_form
+      html = <<EOF
+<html><form lapillus:id="add_form">
+<input type="file" name="uploadveld" id="uploadveld" lapillus:id="uploadveld"/>
+<br/>
+<input type="submit" name="submit" id="submit" value="Voeg tekst toe"/>
+<input type="submit" name="submit" id="submit" value="Voeg tekstkader toe"/>
+</form></html>
+EOF
+      expected = <<EOF
+<html><form enctype="multipart/form-data" method="post" lapillus:id="add_form">
+<input name="add_form.uploadveld" type="file" id="uploadveld" lapillus:id="uploadveld"/>
+<br/>
+<input name="submit" type="submit" id="submit" value="Voeg tekst toe"/>
+<input name="submit" type="submit" id="submit" value="Voeg tekstkader toe"/>
+<input name="page" type="hidden" value="Lapillus::Webpage"/></form></html>
+EOF
+      webpage = Lapillus::Webpage.new
+      webpage.add ComplexForm.new("add_form")
+      output = webpage.render html
+      assert_equal(expected.strip, output)
+    end
+    include Lapillus
+    class Form1 < Form
+      attr_reader :do_not_submit
+      def on_submit(button)
+        @do_not_submit = true
+      end
+    end
+    class Form2 < Form
+      attr_reader :submit_this_form
+      def on_submit(button)
+        @submit_this_form = true
+      end
+    end
+    def test_post_1_webpage_with_multiple_forms
+      webpage = Webpage.new
+      form1 = Form1.new("form1")
+      form2 = Form2.new("form2")
+      webpage.add(form1)
+      webpage.add(form2)
+      hash = {"form2.field" => "value"}
+      webpage.post(hash)
+      assert(!form1.do_not_submit)
+      assert(form2.submit_this_form)
+    end
+    def test_form_within_panel
+      webpage = Webpage.new
+      panel = Panel.new("panel")
+      form2 = Form2.new("form2")
+      webpage.add(panel)
+      panel.add(form2)
+      hash = {"form2.field" => "value"}
+      webpage.post(hash)
+      assert(form2.submit_this_form)
+    end
+end