htmlgrid 1.0.0

data/test/test_component.rb

@@ -0,0 +1,138 @@
+#!/usr/bin/env ruby
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Hannes Wyss
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# TestComponent -- htmlgrid -- 26.11.2002 -- hwyss@ywesee.com 
+
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+$: << File.expand_path("../ext", File.dirname(__FILE__))
+
+require 'test/unit'
+require 'htmlgrid/component'
+
+module HtmlGrid
+	class Component
+		attr_reader :model, :session, :container
+	end
+end
+
+class TestComponent < Test::Unit::TestCase
+	class StubAttributeComponent < HtmlGrid::Component
+		HTML_ATTRIBUTES = { "key" => "val" }
+	end
+	class StubInitComponent < HtmlGrid::Component
+		attr_reader :init_called
+		def init
+			@init_called = true
+		end
+	end
+	class StubLabelComponent < HtmlGrid::Component
+		LABEL = true
+	end
+	class StubContainer
+		attr_accessor :onsubmit
+	end
+	def setup
+		@component = HtmlGrid::Component.new(nil, nil)
+	end
+	def test_initialize1
+		assert_nothing_raised {
+			HtmlGrid::Component.new("foo", "bar")
+		}
+		comp = HtmlGrid::Component.new("foo", "bar")
+		assert_equal("foo", comp.model)
+		assert_equal("bar", comp.session)
+		assert_equal(nil, comp.container)
+		assert_equal(false, comp.label?)
+		assert_nothing_raised {
+			comp.label = true
+		}
+		assert_equal(true, comp.label?)
+	end
+	def test_initialize2
+		assert_nothing_raised {
+			HtmlGrid::Component.new("foo", "bar", "baz")
+		}
+		comp = HtmlGrid::Component.new("foo", "bar", "baz")
+		assert_equal("foo", comp.model)
+		assert_equal("bar", comp.session)
+		assert_equal("baz", comp.container)
+	end
+	def test_initialize3
+		comp = StubAttributeComponent.new("foo", "bar")
+		expected = { "key" =>	"val" }
+		assert_respond_to(comp, :attributes)
+		assert_equal(expected, comp.attributes)
+		assert_equal(expected, StubAttributeComponent::HTML_ATTRIBUTES)
+		assert_nothing_raised {
+			comp.attributes.store("other", "val")
+		}
+		expected2 = { "key" =>	"val", "other" => "val" }
+		assert_equal(expected2, comp.attributes)
+		assert_equal(expected, StubAttributeComponent::HTML_ATTRIBUTES)
+		assert_equal({}, @component.attributes)
+		assert_equal({}, HtmlGrid::Component::HTML_ATTRIBUTES)
+		assert_nothing_raised {
+			@component.attributes.store("third", "val")
+		}
+		expected = {"third"=>"val"}
+		assert_equal(expected, @component.attributes)
+		assert_equal({}, HtmlGrid::Component::HTML_ATTRIBUTES)
+	end
+	def test_initialize4
+		comp = StubInitComponent.new("foo", "bar")
+		assert_equal(true, comp.init_called)
+	end
+	def test_initialize5
+		comp = StubLabelComponent.new(nil, nil)
+		assert_equal(true, comp.label?)
+	end
+	def test_escape
+		txt = "Guten Tag! & wie gehts uns denn heute? '<' schlechter oder '>' besser?"
+		control = txt.dup
+		expected = "Guten Tag! &amp; wie gehts uns denn heute? '&lt;' schlechter oder '&gt;' besser?"
+		assert_equal(expected, @component.escape(txt))
+		assert_equal(control, txt)
+		assert_equal(expected, @component.escape(txt))
+	end
+	def test_escape_symbols
+		txt = "\263"
+		expected = "&ge;"
+		assert_equal(expected, @component.escape_symbols(txt))
+	end
+	def test_onsubmit
+		@component.onsubmit = 'submitted'
+		assert_equal({}, @component.attributes)
+		cont = StubContainer.new
+		comp = HtmlGrid::Component.new("foo", "bar", cont)
+		comp.onsubmit = 'submitted'
+		assert_equal('submitted', cont.onsubmit)
+	end
+	def test_set_attribute
+		assert_equal({}, @component.attributes)
+		@component.set_attribute('href', 'http://www.ywesee.com')
+		expected = {
+			'href'	=>	'http://www.ywesee.com',
+		}
+		assert_equal(expected, @component.attributes)
+	end
+end

data/test/test_composite.rb

@@ -0,0 +1,201 @@
+#!/usr/bin/env ruby
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# TestComposite -- htmlgrid -- 24.10.2002 -- hwyss@ywesee.com 
+
+$: << File.expand_path('../lib', File.dirname(__FILE__))
+$: << File.dirname(__FILE__)
+
+require 'test/unit'
+require 'stub/cgi'
+require 'htmlgrid/composite'
+require 'htmlgrid/inputtext'
+require 'htmlgrid/form'
+
+class StubComposite < HtmlGrid::Composite
+	attr_writer :container
+	COMPONENTS = {
+		[0,0,0]	=>	:baz,
+		[0,0,1]	=>	:foo,
+		[0,0,2]	=>	:baz,
+		[0,1,0]	=>	:baz,
+		[0,1,1]	=>	:baz,	
+	}
+	LABELS = true
+	SYMBOL_MAP = {
+		:bar	=>	HtmlGrid::InputText,
+	}
+	attr_reader :model, :session
+	public :resolve_offset, :labels?
+	def init
+		@barcount=0
+		super
+	end
+	def foo(model, lookandfeel)
+		"Foo"
+	end
+	def baz(model, lookandfeel)
+		@barcount += 1
+		"Baz#{@barcount}"
+	end
+end
+class StubCompositeComponent < HtmlGrid::Component
+	def to_html(context)
+		context.a(@attributes) { 'brafoo' }
+	end
+end
+class StubComposite2 < HtmlGrid::Composite
+	COMPONENTS = {
+		[0,0]	=>	StubCompositeComponent,
+	}
+end
+class StubComposite3 < StubComposite2
+	COMPONENT_CSS_MAP = {[0,0,4,4]=>'standard'}
+end
+class StubComposite4 < StubComposite3
+	CSS_MAP = {[0,0]=>'dradnats'}
+	COMPONENT_CSS_MAP = {[0,0,4,4]=>'standard'}
+end
+class StubCompositeNoLabel < HtmlGrid::Composite
+	LABELS = false
+	COMPONENTS = {}
+	public :labels?
+end
+class StubCompositeModel
+end
+class StubCompositeLookandfeel
+	def attributes(key)
+		{}
+	end
+	def lookup(key)
+	end
+	def base_url
+		'http://www.oddb.org/de/gcc'
+	end
+end
+class StubCompositeSession
+	def lookandfeel
+		StubCompositeLookandfeel.new
+	end
+	def error(key)
+	end
+end
+class StubCompositeForm < HtmlGrid::Form
+	COMPONENTS = {
+		[0,0]	=>	StubComposite
+	}
+	EVENT = :foo
+end
+class StubCompositeColspan1 < HtmlGrid::Composite
+	COMPONENTS = {}	
+end
+class StubCompositeColspan2 < HtmlGrid::Composite
+	COMPONENTS = {
+		[0,0]	=>	:foo,
+	}	
+end
+class StubCompositeColspan3 < HtmlGrid::Composite
+	COMPONENTS = {
+		[0,0]	=>	:foo,
+		[1,0]	=>	:bar,
+	}	
+end
+class StubCompositeColspan4 < HtmlGrid::Composite
+	COMPONENTS = {
+		[0,0]	=>	:foo,
+		[2,0]	=>	:bar,
+	}	
+end
+
+class TestComposite < Test::Unit::TestCase
+	def setup
+		@composite = StubComposite.new(StubCompositeModel.new, StubCompositeSession.new)
+	end
+	def test_create_method
+		foo = nil
+		assert_nothing_raised {
+			foo = @composite.create(:foo, @composite.model)
+		}
+		assert_equal("Foo", foo)
+	end
+	def test_create_symbol
+		bar = nil
+		assert_nothing_raised {
+			bar = @composite.create(:bar, @composite.model)
+		}
+		assert_equal(HtmlGrid::InputText, bar.class)
+	end
+	def test_full_colspan1
+		composite = StubCompositeColspan1.new(StubCompositeModel.new, StubCompositeSession.new)
+		assert_nothing_raised { composite.full_colspan }
+		assert_equal(nil, composite.full_colspan)
+	end
+	def test_full_colspan2
+		composite = StubCompositeColspan2.new(StubCompositeModel.new, StubCompositeSession.new)
+		assert_nothing_raised { composite.full_colspan }
+		assert_equal(nil, composite.full_colspan)
+	end
+	def test_full_colspan3
+		composite = StubCompositeColspan3.new(StubCompositeModel.new, StubCompositeSession.new)
+		assert_nothing_raised { composite.full_colspan }
+		assert_equal(2, composite.full_colspan)
+	end
+	def test_full_colspan4
+		composite = StubCompositeColspan4.new(StubCompositeModel.new, StubCompositeSession.new)
+		assert_nothing_raised { composite.full_colspan }
+		assert_equal(3, composite.full_colspan)
+	end
+	def test_labels1
+		composite = StubCompositeNoLabel.new(StubCompositeModel.new, StubCompositeSession.new)
+		assert_equal(false, composite.labels?)
+	end
+	def test_labels2
+		assert_equal(true, @composite.labels?)
+	end
+	def test_to_html
+		expected = '<TABLE cellspacing="0"><TR><TD>Baz1FooBaz2</TD></TR><TR><TD>Baz3Baz4</TD></TR></TABLE>'
+		assert_equal(expected, @composite.to_html(CGI.new))
+	end
+	def test_resolve_offset
+		matrix = [1,2,3,4]
+		assert_equal(matrix, @composite.resolve_offset(matrix))
+		offset = [5,6]
+		expected = [6,8,3,4]
+		assert_equal(expected, @composite.resolve_offset(matrix, offset))
+	end
+	def test_event
+		assert_nothing_raised { @composite.event() }
+		form = StubCompositeForm.new(@composite.model, @composite.session)
+		@composite.container = form
+		assert_equal(:foo, @composite.event())
+	end
+	def test_component_css_map
+		composite = StubComposite2.new(StubCompositeModel.new, StubCompositeSession.new)
+		expected = '<TABLE cellspacing="0"><TR><TD><A>brafoo</A></TD></TR></TABLE>'
+		assert_equal(expected, composite.to_html(CGI.new))
+		composite = StubComposite3.new(StubCompositeModel.new, StubCompositeSession.new)
+		expected = '<TABLE cellspacing="0"><TR><TD><A class="standard">brafoo</A></TD></TR></TABLE>'
+		assert_equal(expected, composite.to_html(CGI.new))
+		composite = StubComposite4.new(StubCompositeModel.new, StubCompositeSession.new)
+	end
+end

data/test/test_datevalue.rb

@@ -0,0 +1,60 @@
+#!/usr/bin/env ruby
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# TestDateValue -- htmlgrid -- 10.03.2003 -- hwyss@ywesee.com 
+
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+
+require 'test/unit'
+require 'htmlgrid/datevalue'
+require 'stub/cgi'
+require 'date'
+
+class StubDateLookandfeel
+	def lookup(key)
+		'%d.%m.%Y'
+	end
+	def attributes(key)
+		{}
+	end
+end
+class StubDateSession
+	def lookandfeel
+		StubDateLookandfeel.new
+	end
+end
+class StubDateProvider
+	def date
+		Date.new(2002,1,1)
+	end
+end
+
+class TestDateValue < Test::Unit::TestCase
+	def setup
+		@component = HtmlGrid::DateValue.new(:date, StubDateProvider.new,
+			StubDateSession.new)
+	end
+	def test_formatted
+		assert_equal('01.01.2002', @component.to_html(CGI.new))
+	end
+end

data/test/test_form.rb

@@ -0,0 +1,123 @@
+#!/usr/bin/env ruby
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# TestForm -- htmlgrid -- 25.11.2002 -- hwyss@ywesee.com 
+
+$: << File.dirname(__FILE__)
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+
+require 'test/unit'
+require 'htmlgrid/form'
+require 'stub/cgi'
+
+class StubFormModel; end
+class StubFormLookandfeel
+	def attributes(key)
+		{}
+	end
+	def base_url
+		'http://test.oddb.org/de/gcc'
+	end
+	def flavor
+		'gcc'
+	end
+	def language
+		'de'
+	end
+	def lookup(key)
+		'Submit-Value'
+	end
+	def lookandfeel
+		self
+	end
+	def state
+		0
+	end
+end
+class StubFormComponent < HtmlGrid::Component
+	def init
+		self.onsubmit = 'submitted'
+	end
+end
+class Form < HtmlGrid::Form
+	EVENT = :foo
+	COMPONENTS = {}
+	public :submit
+end
+class StubForm2 < HtmlGrid::Form
+	EVENT = :foo
+	COMPONENTS = {
+		[0,0] => StubFormComponent,
+	}
+end
+class StubFormMultiPart < HtmlGrid::Form
+	EVENT = :foo
+	COMPONENTS = {}
+	TAG_METHOD = :multipart_form
+end
+
+class TestForm < Test::Unit::TestCase
+	def setup
+		@model = StubFormModel.new
+		@lookandfeel = StubFormLookandfeel.new
+		@form = Form.new(@model, @lookandfeel)
+	end
+	def test_event
+		assert_equal(:foo, @form.event)
+	end
+	def test_multipart
+		form = StubFormMultiPart.new(@model, @lookandfeel)
+		result = form.to_html(CGI.new)
+		expected = '<FORM ACCEPT-CHARSET="ISO-8859-1" NAME="stdform" METHOD="POST" ENCTYPE="multipart/form-data" ACTION="http://test.oddb.org/de/gcc">'
+		assert_equal(0, result.index(expected), "expected\n#{result}\nto start with\n#{expected}")
+	end
+	def test_to_html
+		result = @form.to_html(CGI.new)
+		expected = [
+			'<INPUT NAME="flavor" TYPE="hidden" VALUE="gcc">',
+			'<INPUT NAME="language" TYPE="hidden" VALUE="de">',
+			'<INPUT NAME="event" TYPE="hidden" ID="event" VALUE="foo">',
+			'<INPUT NAME="state_id" TYPE="hidden" VALUE="1">',
+		]
+		expected.each { |line|
+			assert(result.index(line), "\nmissing #{line}\n     in #{result}")
+		}
+	end
+	def test_submit
+		expected = '<INPUT name="foo" type="submit" value="Submit-Value">'
+		assert_equal(expected, @form.submit(@model, @lookandfeel).to_html(CGI.new))
+	end
+	def test_onsubmit
+		@form.onsubmit = 'submitted'
+		expected = 'onSubmit="submitted"'	
+		result = /<FORM[^>]+>/.match(@form.to_html(CGI.new))[0]
+		assert(result.index(expected), "missing:\n#{expected}\nin:\n#{result}")
+	end
+	def test_onsubmit_init
+		form = nil
+		assert_nothing_raised { form = StubForm2.new(@model, @lookandfeel) }
+		expected = 'onSubmit="submitted"'	
+		result = /<FORM[^>]+>/.match(form.to_html(CGI.new))[0]
+		assert(result.index(expected), "missing:\n#{expected}\nin:\n#{result}")
+	end
+end

data/test/test_formlist.rb

@@ -0,0 +1,111 @@
+#!/usr/bin/env ruby
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+#TestFormList -- htmlgrid -- 25.03.2003 --aschrafl@ywesee.com 
+
+$: << File.dirname(__FILE__)
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+
+require 'test/unit'
+require 'htmlgrid/formlist'
+require 'stub/cgi'
+
+class StubFormList < HtmlGrid::FormList
+	attr_reader :model
+	COMPONENTS = {
+		[0,0]	=>	:jaguar,
+		[1,0]	=>	:panther,
+	}	
+	CSS_MAP = {
+		[0,0]	=>	'flecken',
+		[1,0]	=>	'schwarz',
+	}
+	SORT_HEADER = false
+	SORT_DEFAULT = :foo
+end
+class StubFormListLookandfeel
+	def lookup(key)
+		key.to_s
+	end
+	def attributes(key)
+		{}
+	end
+	def base_url
+		"http://www.ywesee.com"
+	end
+	def event_url(event)
+		"http://www.ywesee.com/event"
+	end
+	def flavor
+		"strawberry"
+	end
+	def language
+		"de"
+	end
+end
+class StubFormListSession
+	attr_accessor :event
+	def lookandfeel
+		StubFormListLookandfeel.new
+	end
+	def state
+		0
+	end
+end
+class StubFormListModel
+	attr_reader :foo
+	def initialize(foo)
+		@foo = foo
+	end
+	def jaguar
+		'Jaguar'
+	end
+	def panther
+		'Panther'
+	end
+end
+
+class TestFormList < Test::Unit::TestCase
+	def setup
+		model = [
+			StubFormListModel.new(3),
+			StubFormListModel.new(2),
+			StubFormListModel.new(4),
+			StubFormListModel.new(1),
+		]
+		@list = StubFormList.new(model, StubFormListSession.new)
+	end
+	def test_to_html
+		result = @list.to_html(CGI.new)
+		[
+			'<FORM ACCEPT-CHARSET="ISO-8859-1" NAME="stdform" METHOD="POST" ENCTYPE="application/x-www-form-urlencoded" ACTION="http://www.ywesee.com">',
+			'<INPUT name="new_item" type="submit" value="new_item">',
+			'<INPUT NAME="flavor" TYPE="hidden" VALUE="strawberry">',
+			'<INPUT NAME="language" TYPE="hidden" VALUE="de">',
+			'<INPUT NAME="event" TYPE="hidden" ID="event" VALUE="new_item">',
+			'<INPUT NAME="state_id" TYPE="hidden" VALUE="1">',
+		].each { |expected|
+			assert_not_nil(result.index(expected), "missing:\n#{expected}\nin:\n#{result}")
+		}
+	end
+end