sbsm 1.0.0

data/test/data/dos_file.txt

@@ -0,0 +1,2 @@
+This dos text looked up from File
+With a newline

data/test/data/lnf_file.txt

@@ -0,0 +1,2 @@
+This text looked up from File
+With a newline

data/test/data/mac_file.txt

@@ -0,0 +1 @@
+This mac text looked up from File

data/test/stub/cgi.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+#
+# State Based Session Management	
+#	Copyright (C) 2004 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 Z�rich, Switzerland
+#	hwyss@ywesee.com
+#
+# CGI -- oddb -- 18.11.2002 -- hwyss@ywesee.com 
+
+require 'sbsm/cgi'
+
+class CGI
+	STUB_VALUES = {}
+  def initialize throwaway=nil
+    extend Html4Tr
+    element_init()
+    extend HtmlExtension
+    @params = STUB_VALUES.dup
+  end
+end

data/test/suite.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+#
+# State Based Session Management	
+#	Copyright (C) 2004 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 Z�rich, Switzerland
+#	hwyss@ywesee.com
+#
+# suite.rb -- oddb -- 20.11.2002 -- hwyss@ywesee.com 
+
+$: << File.expand_path(File.dirname(__FILE__))
+
+Dir.foreach(File.dirname(__FILE__)) { |file|
+	require file if /^test_.*\.rb$/o.match(file)
+}

data/test/test_drbserver.rb

@@ -0,0 +1,83 @@
+#!/usr/bin/env ruby
+#
+# State Based Session Management	
+#	Copyright (C) 2004 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 Z�rich, Switzerland
+#	hwyss@ywesee.com
+#
+# TestDRbServer -- ODDB -- 27.11.2003 -- hwyss@ywesee.com
+
+
+$: << File.dirname(__FILE__)
+$: << File.expand_path('../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'sbsm/drbserver'
+
+class TestDRbServer < Test::Unit::TestCase
+	class DRbServer < ::SBSM::DRbServer
+		attr_reader :sessions
+		CAP_MAX_THRESHOLD = 3
+		MAX_SESSIONS = 3
+	end
+	def setup
+		@server = DRbServer.new
+	end
+	def test_session
+		ses1 = @server['test1']
+		assert_instance_of(SBSM::Session, ses1)
+		assert_equal({'test1'=>ses1}, @server.sessions)
+		ses2 = @server['test2']
+		assert_instance_of(SBSM::Session, ses2)
+		assert_not_equal(ses1, ses2)
+		expected = {
+			'test1'	=>	ses1,
+			'test2'	=>	ses2,
+		}
+		assert_equal(expected, @server.sessions)
+		ses3 = @server['test3']
+		assert_instance_of(SBSM::Session, ses3)
+		assert_not_equal(ses1, ses3)
+		assert_not_equal(ses2, ses3)
+		expected = {
+			'test1'	=>	ses1,
+			'test2'	=>	ses2,
+			'test3'	=>	ses3,
+		}
+		assert_equal(expected, @server.sessions)
+		ses4 = @server['test4']
+		assert_instance_of(SBSM::Session, ses4)
+		assert_not_equal(ses1, ses4)
+		assert_not_equal(ses2, ses4)
+		expected = {
+			'test2'	=>	ses2,
+			'test3'	=>	ses3,
+			'test4'	=>	ses4,
+		}
+		@server.cap_max_sessions
+		assert_equal(expected, @server.sessions)
+		ses2.touch
+		ses5 = @server['test5']
+		assert_instance_of(SBSM::Session, ses5)
+		expected = {
+			'test2'	=>	ses2,
+			'test4'	=>	ses4,
+			'test5'	=>	ses5,
+		}
+	end
+end

data/test/test_index.rb

@@ -0,0 +1,90 @@
+#!/usr/bin/env ruby
+#
+# State Based Session Management	
+#	Copyright (C) 2004 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 Z�rich, Switzerland
+#	hwyss@ywesee.com
+#
+# TestIndex -- sbsm -- 04.03.2003 -- hwyss@ywesee.com 
+
+$: << File.dirname(__FILE__)
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+
+require 'test/unit'
+require 'sbsm/index'
+
+module SBSM
+	class Index
+		attr_accessor :values, :children
+	end
+end
+
+class TestIndex < Test::Unit::TestCase
+	def setup
+		@index = SBSM::Index.new
+		o2 = SBSM::Index.new
+		o2.values = ['bar']
+		o1 = SBSM::Index.new
+		o1.children[?o] = o2
+		f = SBSM::Index.new
+		f.children[?o] = o1
+		r = SBSM::Index.new
+		r.values = ['foo']
+		a = SBSM::Index.new
+		a.children[?r] = r
+		b = SBSM::Index.new
+		b.children[?a] = a
+		@index.children[?b] = b
+		@index.children[?f] = f
+	end
+	def test_to_a
+		assert_equal(['foo', 'bar'], @index.to_a)
+	end
+	def test_fetch1
+		assert_equal(['bar'], @index.fetch('foo'))
+	end
+	def test_fetch2
+		assert_equal([], @index.fetch('Foo'))
+	end
+	def test_fetch3
+		@index.store('bar', ['foobar', 'babar'])
+		assert_equal(['foo', ['foobar', 'babar']], @index['ba'])
+	end
+	def test_store1
+		@index.store('bar', 'babar')
+		assert_equal(['foo', 'babar'], @index.children[?b].children[?a].children[?r].values)
+		assert_equal(['foo', 'babar'], @index['ba'])
+	end
+	def test_store2
+		@index.store('bar', 'foobar', 'babar')
+		assert_equal(['foo', 'foobar', 'babar'], @index.children[?b].children[?a].children[?r].values)
+		assert_equal(['foo', 'foobar', 'babar'], @index['ba'])
+	end
+	def test_store3
+		@index.store('bar', ['foobar', 'babar'])
+		assert_equal(['foo', ['foobar', 'babar']], @index.children[?b].children[?a].children[?r].values)
+	end	
+	def test_replace
+		@index.replace('foo', 'muh', 'bar')
+		assert_equal(['bar'], @index.children[?m].children[?u].children[?h].values)
+	end
+	def test_delete
+		@index.delete('foo', 'bar')
+		assert_equal([], @index.children[?f].children[?o].children[?o].values)
+	end
+end

data/test/test_lookandfeel.rb

@@ -0,0 +1,230 @@
+#!/usr/bin/env ruby
+#
+# State Based Session Management	
+#	Copyright (C) 2004 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 Z�rich, Switzerland
+#	hwyss@ywesee.com
+#
+# TestLookandfeel -- sbsm -- 15.11.2002 -- hwyss@ywesee.com 
+
+require 'test/unit'
+require 'sbsm/lookandfeel'
+require 'date'
+require 'sbsm/lookandfeelwrapper'
+
+class StubLookandfeelState
+	attr_reader :direct_event
+	def initialize(direct_event)
+		@direct_event = direct_event
+	end
+end
+class StubLookandfeelSession
+	attr_accessor :persistent_user_input, :user_input, :state, 
+		:is_crawler
+	DEFAULT_LANGUAGE = "de"
+	def initialize(*args)
+		@persistent_user_input = {}	
+		@user_input = nil
+	end
+	def default_language
+		"de"
+	end
+	def is_crawler?
+		!!@is_crawler
+	end
+	def language
+		persistent_user_input(:language) \
+			|| self::class::DEFAULT_LANGUAGE
+	end
+	def navigation
+		[
+			StubLookandfeelState.new(:foo), 
+			StubLookandfeelState.new(:bar), 
+			StubLookandfeelState.new(:baz),
+		]
+	end
+	def persistent_user_input(key)
+		if (value = @user_input)
+			@persistent_user_input.store(key, value)
+		else
+			@persistent_user_input[key]
+		end
+	end
+	def flavor
+		"gcc"
+	end
+	def server_name
+		"test.com"
+	end
+	def http_protocol
+		"http"
+	end
+end
+class StubNotBuiltIn
+end
+
+class LookandfeelBase < SBSM::Lookandfeel
+	HTML_ATTRIBUTES = {
+		:stub		=>	{:foo=>"Bar", :baz=>123, :rof=>StubNotBuiltIn},
+	}
+	RESOURCES = {
+		:foo	=>	'bar'
+	}
+
+	DICTIONARIES = {
+		"de"	=>	{
+			:date_format=>	'%d.%m.%Y',
+			:foo				=>	"dictbar",
+			:from_file	=>	txt_file('lnf_file.txt'),
+			:from_file_mac	=>	txt_file('mac_file.txt'),
+			:from_file_dos	=>	txt_file('dos_file.txt'),
+		},
+		"fr"	=>	{
+			:foo				=>	"frabar",
+		},
+	}
+	TXT_RESOURCES = File.expand_path('data', File.dirname(__FILE__))
+end
+class LookandfeelWrapper1 < SBSM::LookandfeelWrapper
+	HTML_ATTRIBUTES = {
+		:stub	=>	{:foo=>'baz'}
+	}
+	ENABLED = [:foo, :bar, :bof]
+	RESOURCES = {
+		:foo	=>	'foo',
+	}
+end
+class LookandfeelWrapper2 < SBSM::LookandfeelWrapper
+	ENABLED = [:baz]
+end
+
+class TestLookandfeel < Test::Unit::TestCase
+	def setup
+		@session = StubLookandfeelSession.new
+		@lookandfeel = LookandfeelBase.new(@session)
+	end
+	def test_attributes
+		expected = {:foo=>"Bar", :baz=>123, :rof=>StubNotBuiltIn}
+		assert_equal(expected, @lookandfeel.attributes(:stub))
+	end
+	def test_no_attributes
+		assert_equal({}, @lookandfeel.attributes(:undefined))
+	end
+	def test_resource
+		assert_equal('http://test.com/resources/gcc/bar', @lookandfeel.resource(:foo))
+	end
+	def test_lookup
+		assert_equal('dictbar', @lookandfeel.lookup(:foo))
+	end
+	def test_lookup2
+		assert_equal("This text looked up from File<br>With a newline", @lookandfeel.lookup(:from_file))
+	end
+	def test_lookup3
+		assert_equal("This mac text looked up from File<br>With a newline", @lookandfeel.lookup(:from_file_mac))
+	end
+	def test_lookup4
+		assert_equal("This dos text looked up from File<br>With a newline", @lookandfeel.lookup(:from_file_dos))
+	end
+	def test_lookup5
+		session = StubLookandfeelSession.new
+		session.user_input = "fr"
+		lookandfeel2 = LookandfeelBase.new(session)
+		assert_equal("frabar", lookandfeel2.lookup(:foo))
+	end
+	def test_lookup6
+		session = StubLookandfeelSession.new
+		session.user_input = "fr"
+		lookandfeel2 = LookandfeelBase.new(session)
+		assert_equal("%d.%m.%Y", lookandfeel2.lookup(:date_format))
+	end
+	def test_rfc1123
+		time = Time.local(2002,11,20,9,45,23)
+		expected = 'Wed, 20 Nov 2002 08:45:23 GMT'
+		assert_equal(expected, time.rfc1123)
+	end
+	def test_base_url
+		assert_equal("http://test.com/de/gcc", @lookandfeel.base_url)
+	end
+	def test_event_url
+		# state_id is 4, because @session.state = nil
+		assert_equal("http://test.com/de/gcc/foo/state_id/4/bar/baz", 
+			@lookandfeel.event_url(:foo, {:bar => 'baz'}))
+	end
+	def test_event_url__crawler
+		@session.is_crawler = true
+		assert_equal("http://test.com/de/gcc/foo/bar/baz", 
+			@lookandfeel.event_url(:foo, {:bar => 'baz'}))
+	end
+	def test_event_url__state_id_given
+		assert_equal("http://test.com/de/gcc/foo/bar/baz/state_id/mine", 
+			@lookandfeel.event_url(:foo, [:bar, 'baz', :state_id, 'mine']))
+	end
+	def test_format_price
+		assert_equal('123.45', @lookandfeel.format_price(12345))
+		assert_equal(nil, @lookandfeel.format_price(nil))
+		assert_equal(nil, @lookandfeel.format_price(0))
+	end
+	def test_format_date
+		hannesgeburtstag = Date.new(1975,8,21)
+		expected = '21.08.1975'
+		assert_equal(expected, @lookandfeel.format_date(hannesgeburtstag))
+	end
+	def test_languages
+		assert_equal(['de', 'fr'], @lookandfeel.languages)
+	end
+end
+class TestLookandfeelWrapper < Test::Unit::TestCase
+	def setup
+		@lookandfeel = LookandfeelBase.new(StubLookandfeelSession.new)
+		@wrapped = LookandfeelWrapper1.new(@lookandfeel)
+	end
+	def test_navigation1
+		lnf = SBSM::LookandfeelWrapper.new(@lookandfeel)
+		assert_equal([], lnf.navigation)
+	end
+	def test_navigation2
+		nav = @wrapped.navigation
+		result = nav.collect { |st| st.direct_event }
+		assert_equal([:foo, :bar], result)
+	end
+	def test_navigation3
+		lnf = LookandfeelWrapper2.new(@wrapped)
+		nav = lnf.navigation
+		result = nav.collect { |st| st.direct_event }
+		assert_equal([:foo, :bar, :baz], result)
+	end
+	def test_flavor
+		assert_equal('gcc', @wrapped.flavor)	
+	end
+	def test_resource1
+		lnf = SBSM::LookandfeelWrapper.new(@lookandfeel)
+		assert_equal('http://test.com/resources/gcc/bar', lnf.resource(:foo))
+	end
+	def test_resource2
+		assert_equal('http://test.com/resources/gcc/foo', @wrapped.resource(:foo))
+	end
+	def test_attributes1
+		lnf = SBSM::LookandfeelWrapper.new(@lookandfeel)
+		expected = {:foo=>"Bar", :baz=>123, :rof=>StubNotBuiltIn}
+		assert_equal(expected, lnf.attributes(:stub))
+	end
+	def test_attributes2
+		expected = {:foo=>"baz"}
+		assert_equal(expected, @wrapped.attributes(:stub))
+	end
+end