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_fragments.rb ADDED Viewed

@@ -0,0 +1,114 @@
+require 'lapillus'
+require 'test/unit'
+class TC_Fragment < Test::Unit::TestCase
+  def test_fragment
+    html = <<EOF
+     <html>
+     <body>
+     <span lapillus:id="myPanel">Example input (will be removed)</span>
+      <lapillus:fragment lapillus:id="frag1">panel 1</lapillus:fragment>
+      <lapillus:fragment lapillus:id="frag2">panel 2</lapillus:fragment>
+    </body>
+    </html>
+EOF
+    #             add(Fragment.new("myPanel1", "frag1");
+    expected = <<EOF
+<html>
+     <body>
+     <span lapillus:id="myPanel">panel 1</span>
+    </body>
+    </html>
+EOF
+    page = Webpage.new
+    page.add Fragment.new("myPanel", "frag1")
+    output = page.render(html)
+    assert_equal(expected.strip, output.strip)
+  end
+  def test_fragment_with_children
+    html = <<EOF
+     <html>
+     <body>
+     <span lapillus:id="myPanel">Example input (will be removed)</span>
+      <lapillus:fragment lapillus:id="frag1"><b>text comes here</b></lapillus:fragment>
+      <lapillus:fragment lapillus:id="frag2">panel 2</lapillus:fragment>
+    </body>
+    </html>
+EOF
+    #             add(new Fragment("myPanel1", "frag1");
+    expected = <<EOF
+<html>
+     <body>
+     <span lapillus:id="myPanel"><b>text comes here</b></span>
+    </body>
+    </html>
+EOF
+    page = Webpage.new
+    page.add Fragment.new("myPanel", "frag1")
+    output = page.render(html)
+    assert_equal(expected.strip, output.strip)
+  end
+    class MyFragment < Fragment
+      label "label", :model => "Hello World"
+    end
+  def test_fragment_with_components_as_children
+    html = <<EOF
+     <html>
+     <body>
+     <span lapillus:id="myPanel">Example input (will be removed)</span>
+      <lapillus:fragment lapillus:id="frag1"><span lapillus:id="label">text comes here</span></lapillus:fragment>
+      <lapillus:fragment lapillus:id="frag2">panel 2</lapillus:fragment>
+    </body>
+    </html>
+EOF
+    #             add(new Fragment("myPanel1", "frag1");
+    expected = <<EOF
+<html>
+     <body>
+     <span lapillus:id="myPanel"><span lapillus:id="label">Hello World</span></span>
+    </body>
+    </html>
+EOF
+    page = Webpage.new
+    page.add(MyFragment.new("myPanel", "frag1"))
+    output = page.render(html)
+    assert_equal(expected.strip, output.strip)
+  end
+  class WeirdFragment < Fragment
+    def initialize(id, frag)
+      super(id, frag)
+      add Panel.new("properties")
+    end
+  end
+  def test_weird_fragment
+    expected='<html><span lapillus:id="toolbar_panel">  <span class="propertiespanel" lapillus:id="properties">properties</span></span></html>'
+    html = '<html><span lapillus:id="toolbar_panel">toolbar</span>'+
+    '<lapillus:fragment lapillus:id="toolbar">'+
+    '  <span class="propertiespanel" lapillus:id=\'properties\'>properties</span>'+
+    '</lapillus:fragment></html>'
+    page = Webpage.new
+    page.add(WeirdFragment.new("toolbar_panel", "toolbar"))
+    output = page.render(html)
+    assert_equal(expected, output)
+  end
+end

data/test/tc_hierarchy.rb ADDED Viewed

@@ -0,0 +1,34 @@
+require 'test/unit'
+require 'lapillus'
+include Lapillus
+class TC_Hierarchy < Test::Unit::TestCase
+  class TestComponent < Component
+    def render_to_element(element)
+      # do nothing
+    end
+  end
+  def test_hierarchy_matches
+    webpage = Webpage.new
+    webpage.add(TestComponent.new("component"))
+    html = "<html><div lapillus:id=\"component\"></div></html>"
+    output = webpage.render(html)
+    assert_equal('<html><div lapillus:id="component"/></html>', output)
+  end
+  def test_hierarchy_mismatch__id_in_html_not_in_component_hierarchy
+    webpage = Webpage.new
+    html = "<html><div lapillus:id=\"missing_component\"></div></html>"
+    assert_raise(RuntimeError){webpage.render(html)}
+  end
+#  def test_hierarchy_mismatch__no_id_in_html_component_hierarchy
+#    webpage = Webpage.new
+#    webpage.add(Component.new("missing_id"))
+#    html = "<html></html>"
+#    assert_raise(RuntimeError){webpage.render(html)}
+#  end
+end

data/test/tc_lapillus.rb ADDED Viewed

@@ -0,0 +1,30 @@
+require 'test/unit'
+require 'lapillus'
+include Lapillus
+class TC_lapillus < Test::Unit::TestCase
+  class FormValue
+    attr_accessor :variable
+  end
+  class MyForm < Form
+    attr_reader :value
+    textfield "textfield"
+    def initialize(id)
+      super(id)
+      @value = FormValue.new
+    end
+    def on_submit(button=nil)
+      value.variable = "value submitted"
+    end
+  end
+  def test_form
+    testpage = Webpage.new
+    testpage.add(MyForm.new("form"))
+    form = testpage["form"]
+    form.on_submit
+    assert_equal("value submitted", form.value.variable)
+  end
+end

data/test/tc_lapillus_testers.rb ADDED Viewed

@@ -0,0 +1,108 @@
+require 'test/unit'
+require 'lapillus'
+require 'lapillus/lapillus_testers'
+include Lapillus
+@@testObject=nil
+class TestObject
+  attr_accessor :name, :title
+  def initialize(_name, _title)
+    @name=_name
+    @title=_title
+  end
+end
+class LapillusTesterTestPage < Webpage
+  label "label", :model => "Label Text"
+  def initialize()
+    @@testObject = TestObject.new("Naam","Titel")
+    super()
+    add(TestForm.new("form", @@testObject))
+    add(BookmarkablePageLink.new("link",LinkedPage,Hash.new))
+  end
+  class TestForm < Form
+    attr_reader :test_object
+    textfield "name", :model => :test_object, :property => :name
+    textfield "title", :model => :test_object, :property => :title
+    def initialize(id, test_object)
+      super(id)
+      @test_object = test_object
+    end
+    def on_submit(button)
+      test_object.name = "button 2 is clicked!" if button == "button 2"
+    end
+  end
+end
+class LinkedPage < Webpage
+  def initialize(pageparameters)
+    super()
+  end
+end
+class TC_LapillusTester < Test::Unit::TestCase
+  @tester
+  def setup
+    @tester = LapillusTester.new
+    @tester.start_page(LapillusTesterTestPage)
+  end
+  # LapillusTester tests
+  def test_assert_component
+    @tester.assert_component("form",Form)
+    @tester.assert_component("form:name",TextField)
+    @tester.assert_component("form:title",TextField)
+  end
+  def test_assert_label
+    @tester.assert_component("label",Label)
+    @tester.assert_label("label","Label Text")
+  end
+  def test_assert_rendered_page
+    @tester.assert_rendered_page(LapillusTesterTestPage)
+  end
+  #  def test_assert_page_link
+  #    @tester.assert_page_link("link",LinkedPage)
+  #  end
+  def test_get_component_from_last_rendered_page
+    component = @tester.get_component_from_last_rendered_page("label")
+    assert_kind_of(Label, component)
+    component = @tester.get_component_from_last_rendered_page("form:name")
+    assert_kind_of(TextField, component)
+    assert_raise(RuntimeError) do
+      component = @tester.get_component_from_last_rendered_page("path:to:nowhere")
+    end
+  end
+  # FormTester tests
+  def test_set_value
+    form_tester = @tester.new_form_tester("form")
+    assert_equal("Naam",@@testObject.name)
+    assert_equal("Titel",@@testObject.title)
+    form_tester.set_value("name","new_name")
+    form_tester.set_value("title","new_title")
+    form_tester.submit
+    assert_equal("new_name",@@testObject.name)
+    assert_equal("new_title",@@testObject.title)
+  end
+  def test_two_submit_buttons
+    form_tester = @tester.new_form_tester("form")
+    form_tester.set_value("name","jantje")
+    form_tester.submit("button 2")
+    assert_equal("button 2 is clicked!", @@testObject.name)
+  end
+end

data/test/tc_multiview.rb ADDED Viewed

@@ -0,0 +1,91 @@
+require 'test/unit'
+require 'lapillus/multiview'
+class TC_MultiView < Test::Unit::TestCase
+  def test_current_view
+    view1 = SingleView.new("show")
+    view2 = SingleView.new("edit")
+    multi_view = MultiView.new("id", [view1, view2])
+    assert_equal(view1.identifier, multi_view.mode)
+    assert_equal(view1, multi_view.current_view)
+  end
+  def test_mode
+    view1 = SingleView.new("show")
+    view2 = SingleView.new("edit")
+    multi_view = MultiView.new("id", [view1, view2])
+    multi_view.mode = "edit"
+    assert_equal(view2, multi_view.current_view)
+  end
+#  def test_behaviours
+#    html = <<EOF
+#    <html>
+#    <span lapillus:id="multiview">single_view comes here</span>
+#    <lapillus:fragment lapillus:id="single1">
+#      <span lapillus:id="label">some content here</span>
+#    </lapillus:fragment>
+#    <lapillus:fragment lapillus:id="single2">
+#      <a lapillus:id="link" href="#">
+#        <span lapillus:id="link_label">some content here</span>
+#      </a>
+#    </lapillus:fragment>
+#    </html>
+#EOF
+#    single1 = SingleView.new("single1") do
+#      add(Label.new("label", "simple label"))
+#    end
+#    multi_view = MultiView.new("multiview", [single1])
+#    multi_view.value = "single1"
+#    multi_view.add_behaviour(OnClick.new)
+#    page = Webpage.new
+#    page.add multi_view
+#    output = page.render(html)
+#    puts output
+#  end
+#  def xtest_switch_view
+#    single1 = SingleView.new("single1") do
+#      add(Label.new("label", "simple label"))
+#    end
+#    single2 = SingleView.new("single2") do
+#      add(AjaxLink.new("link") do
+#        add(Label.new("link_label", "text inside link"))
+#        on_click do
+#
+#        end
+#      end)
+#    end
+#    multi_view = MultiView.new("multiview", [single1, single2])
+#    multi_view.value = "single1"
+#    html = <<EOF
+#    <html>
+#    <span lapillus:id="multiview">single_view comes here</span>
+#    <lapillus:fragment lapillus:id="single1">
+#      <span lapillus:id="label">some content here</span>
+#    </lapillus:fragment>
+#    <lapillus:fragment lapillus:id="single2">
+#      <a lapillus:id="link" href="#">
+#        <span lapillus:id="link_label">some content here</span>
+#      </a>
+#    </lapillus:fragment>
+#    </html>
+#EOF
+#    page = Webpage.new
+#    page.add multi_view
+#    output = page.render(html)
+#    puts output
+#    assert_equal(single1,multi_view.get_single_view('single1'))
+#  end
+end

data/test/tc_pager.rb ADDED Viewed

@@ -0,0 +1,94 @@
+require 'test/unit'
+require 'lapillus/pager'
+#component tester
+class ComponentTester
+  def initialize(component)
+    @component = component
+  end
+  def assert_label(expected, path)
+    actual = @component[path].value
+    val = expected == actual
+    raise "Label not found! expected: #{expected}, but was #{actual}" if !val
+  end
+  def click_link(path)
+    @component[path].on_click
+  end
+end
+class TC_Pager < Test::Unit::TestCase
+  attr_reader :pager, :tester
+  def setup
+    pages = [ "first page", "second page", "third page", "fourth page" ]
+    @pager = Pager.new("pager", pages) do |page_content|
+      add(Label.new("content", page_content))
+    end
+    @tester = ComponentTester.new(pager)
+  end
+  def test_content
+    tester.assert_label("first page", "page.content")
+    tester.click_link("navigation.next")
+    tester.assert_label("second page", "page.content")
+  end
+  def test_no_content
+    pager = Pager.new("pager", []) do end
+    assert(!pager['page'].visible?)
+    assert(!pager['navigation'].visible?)
+  end
+  def test_navigation_position
+    pager.current = 2
+    tester.assert_label("2 van 4", 'navigation.position')
+  end
+  def test_navigation_next
+    tester.click_link('navigation.next')
+    assert_equal(2, pager.current)
+  end
+  def test_navigation_panel_previous
+    pager.current = 2
+    tester.click_link('navigation.previous')
+    assert_equal(1, pager.current)
+  end
+  def test_navigation_panel_first
+    pager.current = 3
+    tester.click_link('navigation.first')
+    assert_equal(1, pager.current)
+  end
+  def test_navigation_panel_last
+    pager.current = 1
+    tester.click_link('navigation.last')
+    assert_equal(4, pager.current)
+  end
+  def test_navigation_visible_last_page
+    pager.current = 4
+    first_link = pager['navigation.first']
+    previous_link = pager['navigation.previous']
+    next_link = pager['navigation.next']
+    last_link = pager['navigation.last']
+    assert(first_link.visible?)
+    assert(previous_link.visible?)
+    assert(!next_link.visible?)
+    assert(!last_link.visible?)
+  end
+  def test_navigation_visible_first_page
+    first_link = pager['navigation.first']
+    previous_link = pager['navigation.previous']
+    next_link = pager['navigation.next']
+    last_link = pager['navigation.last']
+    assert(!first_link.visible?)
+    assert(!previous_link.visible?)
+    assert(next_link.visible?)
+    assert(last_link.visible?)
+  end
+end

data/test/tc_rendering.rb ADDED Viewed

@@ -0,0 +1,74 @@
+require 'test/unit'
+require 'lapillus'
+class TestWebpage < Webpage
+end
+class TC_Rendering < Test::Unit::TestCase
+  def test_invisible_component
+    html='<html><span lapillus:id="label">can you see me now?</span></html>'
+    page = TestWebpage.new
+    page.add(Label.new("label","now you see me"))
+    label = page["label"]
+    assert(label.visible?)
+    result=page.render(html)
+    assert(result.index("now you see me"))
+    label.visible=false
+    result=page.render(html)
+    assert(!result.index("can you see me now?"))
+    assert(!result.index("now you see me"))
+    assert(!label.visible?)
+  end
+  def test_label
+    html = <<EOF
+<html>
+<body>
+<span lapillus:id="label">here comes the text</span>
+</body>
+</html>
+EOF
+    expected = <<EOF
+<html>
+<body>
+<span lapillus:id="label">hello world</span>
+</body>
+</html>
+EOF
+    test_webpage = TestWebpage.new
+    test_webpage.add Label.new("label", "hello world")
+    output = test_webpage.render html
+    assert_equal(expected.strip, output)
+  end
+  class RenderingTestWebpage < Webpage
+    listview "names", :model => ["jantje", "pietje", "klaasje"] do |name|
+      label "name", :model => name
+    end
+  end
+  def test_listview
+    html = <<EOF
+<html>
+<body>
+<div lapillus:id="names"><span lapillus:id="name">name</span>
+</div>
+</body>
+</html>
+EOF
+    expected = <<EOF
+<html>
+<body>
+<div lapillus:id="names"><span lapillus:id="name">jantje</span>
+<span lapillus:id="name">pietje</span>
+<span lapillus:id="name">klaasje</span>
+</div>
+</body>
+</html>
+EOF
+    test_webpage = RenderingTestWebpage.new
+    output = test_webpage.render(html)
+    assert_equal(expected.strip, output)
+  end
+end

data/test/ts_all_test.rb ADDED Viewed

@@ -0,0 +1,20 @@
+require 'rubygems'
+require 'test/tc_lapillus'
+require 'test/tc_base'
+require 'test/tc_dispatcher'
+require 'test/tc_components'
+require 'test/tc_containers'
+require 'test/tc_behaviours'
+require 'test/tc_rendering'
+require 'test/tc_bookmarkablepagelink'
+require 'test/tc_form'
+require 'test/tc_lapillus_testers'
+require 'test/tc_fragments'
+require 'test/tc_multiview'
+require 'test/tc_examples'
+require 'test/tc_pager'
+require 'test/tc_hierarchy'
+require 'examples/tc_guest_book'
+require 'examples/tc_hello_world'
+require 'examples/tc_persons'

metadata ADDED Viewed

@@ -0,0 +1,94 @@
+--- !ruby/object:Gem::Specification
+rubygems_version: 0.9.4
+specification_version: 1
+name: lapillus
+version: !ruby/object:Gem::Version
+  version: 0.0.2
+date: 2007-10-05 00:00:00 +02:00
+summary: Component based webframework written in Ruby
+require_paths:
+- lib
+email: ronald.dekker@huygensinstituut.knaw.nl
+homepage:
+rubyforge_project:
+description:
+autorequire: lapillus
+default_executable:
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement
+  requirements:
+  - - ">"
+    - !ruby/object:Gem::Version
+      version: 0.0.0
+  version:
+platform: ruby
+signing_key:
+cert_chain:
+post_install_message:
+authors:
+- Bram Buitendijk
+- Ronald Haentjens Dekker
+- Meindert Kroese
+- Joris van Zundert
+files:
+- examples/hello_world.rb
+- examples/persons.rb
+- examples/tc_hello_world.rb
+- examples/tc_guest_book.rb
+- examples/guest_book.rb
+- examples/tc_persons.rb
+- html/HelloWorld.html
+- html/GuestBook.html
+- html/Persons.html
+- html/LapillusTesterTestPage.html
+- html/TestRemotePanel.html
+- html/TestPage.html
+- lib/lapillus.rb
+- lib/changelog.txt
+- lib/license.txt
+- lib/lapillus
+- lib/lapillus/web_application.rb
+- lib/lapillus/webrick_server.rb
+- lib/lapillus/process_upload.rb
+- lib/lapillus/pager.rb
+- lib/lapillus/form_components.rb
+- lib/lapillus/lapillus_testers.rb
+- lib/lapillus/behaviours.rb
+- lib/lapillus/multiview.rb
+- lib/lapillus/containers.rb
+- lib/lapillus/components.rb
+- lib/lapillus/mongrel_server.rb
+- lib/lapillus/dispatcher.rb
+- lib/lapillus/base.rb
+- lib/lapillus/lapillus_server.rb
+- test/ts_all_test.rb
+- test/tc_rendering.rb
+- test/tc_base.rb
+- test/tc_behaviours.rb
+- test/tc_fragments.rb
+- test/tc_pager.rb
+- test/tc_containers.rb
+- test/tc_components.rb
+- test/tc_bookmarkablepagelink.rb
+- test/tc_multiview.rb
+- test/tc_lapillus_testers.rb
+- test/tc_dispatcher.rb
+- test/tc_hierarchy.rb
+- test/tc_form.rb
+- test/tc_examples.rb
+- test/tc_lapillus.rb
+test_files:
+- test/ts_all_test.rb
+rdoc_options: []
+extra_rdoc_files: []
+executables: []
+extensions: []
+requirements: []
+dependencies: []