libisi 0.3.0

data/test/color_test.rb

@@ -0,0 +1,64 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi 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 General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+$LOAD_PATH.insert(0,File.dirname(__FILE__) + "/../lib/")
+require 'test/unit'
+require "libisi"
+init_libisi
+require "libisi/color"
+
+class ColorTest < Test::Unit::TestCase
+
+  COLORS = {
+    "#ff0000" => ["red","Red","RED",:red],
+    "#d3d3d3" => ["light_gray","lightgray","LightGRay",:light_gray,:lightgray],
+    "#aabbcc" => ["#aabbcc","#aabbcc","aabbcc"],
+    "#aabbcc" => ["#abc","#abc","abc"],
+  }
+
+  def test_java
+    COLORS.each {|rgb, colors| 
+      colors.each {|color|
+	assert Color.create("java",color), "Could not create java color #{color}"
+	assert_equal rgb, Color.create("java",color).html, "Expected java color #{color} to be #{rgb}"
+      }
+    }
+  end
+
+  def test_colortool
+    COLORS.each {|rgb, colors| 
+      colors.each {|color|
+	assert Color.create("colortools",color), "Could not create colortools color #{color}"
+	assert_equal rgb, Color.create("colortools",color).html, "Expected colortools color #{color} to be #{rgb}"
+      }
+    }
+
+    assert_equal "#f12f3f", Color.create("colortools","#f12f3f").html
+    c = Color.create("colortools","#f12f3f")
+     assert_equal [241,47,63], c.rgb
+    assert_equal "#f12f3f", c.html
+    c.html = "ff2f3f"
+    assert_equal [255,47,63], c.rgb
+    c.red = 241
+    assert_equal [241,47,63], c.rgb
+    c.green = 222
+    assert_equal [241,222,63], c.rgb
+    c.blue = 7
+    assert_equal [241,222,7], c.rgb
+  end
+
+end

data/test/concept_test.rb

@@ -0,0 +1,56 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi 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 General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+$LOAD_PATH.insert(0,File.dirname(__FILE__) + "/../lib/")
+require 'test/unit'
+require "libisi"
+init_libisi
+require "libisi/concept"
+require "libisi/instance"
+
+class ConceptTest < Test::Unit::TestCase
+
+  def test_concept
+    assert c = Concept.create(String)
+    # a base ruby class has no attributes
+    assert_equal [], c.attributes
+  end
+
+  def test_activerecord
+    sqlite = Uri.create("sqlite3://localhost/#{File.dirname(__FILE__) + "/fixtures/test.db/t1"}")
+    first_record = sqlite.find(:first)
+    ar_class = first_record.class
+    
+    assert c = Concept.create(ar_class)
+    assert c.class == ActiverecordConcept
+    assert_equal ["data", "num", "t1key", "timeEnter"],
+      c.attribute_names.sort
+
+    assert c.value_accessors
+
+    attrs = c.attributes.sort_by {|a| a.name}
+    assert_equal [:text, :float, :integer, :date],attrs.map {|a| a.type}    
+
+    assert inst = Instance.create(first_record)
+    assert val = inst.value("data")
+
+    assert_equal "", val.inspect
+  end
+
+  
+
+end

data/test/doc_test.rb

@@ -0,0 +1,172 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi 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 General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+$LOAD_PATH.insert(0,File.dirname(__FILE__) + "/../lib/")
+require 'test/unit'
+require "libisi"
+init_libisi
+require "libisi/chart"
+
+class ChartTest < Test::Unit::TestCase
+
+  # TODO
+  #    test_doc("text", "text")
+  #    test_doc("html")
+  #    test_doc("html", "html")
+  #    test_doc("text", "html")
+  #    test_doc("html","text")
+  
+  
+  def test_text
+    do_test("text")
+  end
+  def test_html
+    do_test("html")
+  end
+ 
+  def do_test(doc, together_with = nil)
+    Doc.change(doc)
+    output_document = Pathname.new("/tmp/test.#{together_with}")
+    
+    if together_with
+      output_document.delete if output_document.exist?    
+      add_output(output_document)
+      # the output to file should be first
+      $doc.children = $doc.children.reverse if $doc.class == Tee
+    end
+    
+    title_call_count = 0
+    td_call_count = 0
+    table_call_count = 0
+    $doc.title("Title 1") {
+      title_call_count += 1
+      raise "Called title block the 2nd time" if title_call_count == 2
+      $doc.table(:columns => ["a","bb","ccc"]) {|col, index|
+	$log.debug("Called table block #{col} #{index}")
+	table_call_count += 1
+	#      raise "Called table block the 1st time" if table_call_count == 1
+	raise "Called table block the 4th time" if table_call_count == 4      
+	raise "col is nil" if col.nil?
+	
+	# still a problem here:
+	# table calls td td, td td, td td in 3 blocks (see doc/base.rb)
+	# the teed will call td td td td td,, because it exits not
+	# out of the table call function
+	$doc.td { 
+	  td_call_count += 1
+	  raise "Called td block the 4th time" if td_call_count == 4
+	col + "1" 
+	}  
+	$doc.td { col + "2" }  
+      }
+    }
+    raise "Call count is not 3 its #{table_call_count}" unless td_call_count == 3
+    raise "Call count is not 3 its #{td_call_count}" unless td_call_count == 3
+    
+    $doc.title("Title 2") {
+      $doc.title("Title 2.1") {
+	$doc.table(:items => ["x","yy","zzz"]) {|item, index|
+	  raise "item is nil" if item.nil?
+	  $doc.th { item.upcase }
+	  $doc.td { item + "a"}
+	  $doc.td { item + "b"}
+	}
+	
+	$doc.table(:items => ["x","yy","zzz"]) {|item|
+	  raise "item is nil" if item.nil?
+	  $doc.th { item.upcase }
+	  $doc.td { item + "a"}
+	  $doc.td { item + "b"}
+	}
+      }
+      $doc.title("Title 2.2") {
+	$doc.table(:columns => ["a","bb","ccc"], :items => ["xxx","yy","z"]) {|item, col, item_index, column_index|
+	  raise "item is nil" if item.nil?
+	  raise "col is nil" if col.nil?
+	  "#{item}.#{col}"
+	}
+      }
+      
+    }
+    
+    gba = ["aaa","bbb","ccc","aaab","aaac","bbbd"]
+    
+    $doc.table(:items => gba, :group_bys => [lambda {|e| e.length},lambda {|e| e[0..1] }])
+    $doc.table(:items => gba, :group_bys => [lambda {|e| e.length},lambda {|e| e[0..1] }]) {|e|
+      $doc.td {e.upcase}
+    }
+    
+    call_times = 0
+    $doc.table(:items => gba, 
+	       :columns => ["length","first", "item_text1","item_text2"],
+	       :group_bys => [lambda {|e| e.length},lambda {|e| e[0..0] }]) {|e,col,i1,i2|
+      call_times += 1
+      raise "Block called #{call_times} times instead of 19"  if call_times == 20
+      [e,col, i1,i2].inspect
+    }
+    raise "Block called #{call_times} times instead of 19"  if call_times != 19
+
+
+    gba = ["aaa","bbb","ccc","aaab","aaac","bbbd","aaA","AaA"]
+    # ok, some more complicated grouping with different options
+    options = 
+    $doc.table(:items => gba,
+	       :style => "border:1 solid black;",
+	       :writer => Pathname.new("/tmp/test.html").open("w"),
+	       :before_group_function0 => Proc.new {|options|
+		 $doc.tr { $doc.th(:colspan => 5) { "BeforeTotal0 #{options[:group_items].inspect}"}}
+	       },
+	       :after_group_function0 => Proc.new {|options|
+		 $doc.tr { $doc.th(:colspan => 5) { "Total0       #{options[:group_items].inspect}"}}
+	       },
+	       :before_group_function1 => Proc.new {|options|
+		 $doc.tr { $doc.th(:colspan => 5) { "BeforeTotal1 #{options[:group_items].inspect}"}}
+	       },
+	       :after_group_function1 => Proc.new {|options|
+		 $doc.tr { $doc.th(:colspan => 5) { "Total1       #{options[:group_items].inspect}"}}
+	       },
+	       :span_grouping => true,
+	       :columns => [
+		 [:length, ["length","textagain"]],
+		 [:capitalize, ["capitalized", "again"]],
+		 [nil, ["item"]]
+	       ].to_hash
+	       ) {|object, column, item_index, column_index, options|
+      #      call_times += 1
+      #      raise "Block called #{call_times} times instead of 19"  if call_times == 20
+      #      [e,col, i1,i2].inspect
+      #p column
+#      "Col:" + column.inspect + 
+#	" Obj:" +  object.inspect + 
+		" Gk:" + options[:group_keys].inspect + 
+#		" Ge:" + options[:group_elements].inspect +
+		" Gi:" + options[:group_items].inspect + 
+#		" Gci:" + options[:group_column_index].inspect +
+	""
+    }
+    
+
+    $doc.end_doc
+    $doc.close
+    p benchmark("bla") { "jk" }
+    if together_with
+      raise "#{o.to_s} does not exist!" unless output_document.exist?
+      raise "#{o.to_s} has size zero" if output_document.size == 0
+      raise "Output not equal to fixture" unless system("diff fixtures/output.#{together_with} #{output_document}")
+    end
+  end
+end

data/test/ordered_hash_test.rb

@@ -0,0 +1,39 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi 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 General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+$LOAD_PATH.insert(0,File.dirname(__FILE__) + "/../lib/")
+require 'test/unit'
+require "libisi"
+init_libisi
+require "libisi/chart"
+
+class ChartOrderedHash < Test::Unit::TestCase
+  
+  def test_array_to_hash
+    test_array = [[:key1, "value1"],[:keyb,"value2"],["key3",[[:a,"v"],[:b,"w"]]]]
+
+    assert test_array.can_be_a_hash?
+    
+    assert_equal '{:key1=>"value1", :keyb=>"value2", "key3"=>[[:a, "v"], [:b, "w"]]}',
+      test_array.to_hash.inspect
+      
+    assert_equal '{:key1=>"value1", :keyb=>"value2", "key3"=>{:a=>"v", :b=>"w"}}',
+      test_array.to_hash(true).inspect
+      
+  end
+
+end

data/test/profile_test.rb

@@ -0,0 +1,36 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi 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 General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+$LOAD_PATH.insert(0,File.dirname(__FILE__) + "/../lib/")
+require 'test/unit'
+require "libisi"
+init_libisi
+
+class ProfileTest < Test::Unit::TestCase
+
+  def test_prof
+    with_temp_directory {
+      self.profiling = FileUtils.pwd.to_s
+      10.times { 1 + 1}
+      self.profiling_stop
+      assert Pathname.new("RubyProf_RubyProf::CallTreePrinter.txt").exist?
+      assert Pathname.new("RubyProf_RubyProf::FlatPrinter.txt").exist?
+      assert Pathname.new("RubyProf_RubyProf::GraphHtmlPrinter.html").exist?
+      assert Pathname.new("RubyProf_RubyProf::GraphPrinter.txt").exist?
+    }
+  end
+end

data/test/request_test.rb

@@ -0,0 +1,121 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi 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 General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+$LOAD_PATH.insert(0,File.dirname(__FILE__) + "/../lib/")
+require 'test/unit'
+require "libisi"
+init_libisi
+require "libisi/request/http"
+require "libisi/environment/http"
+require "libisi/function/base"
+require "libisi/task/base"
+require "libisi/task/http"
+require "libisi/parameter/base"
+require "libisi/reciever/socket"
+
+class RequestTest < Test::Unit::TestCase
+
+  FULL_URI = URI.parse("http://www.example.com/context/function/arg1/arg2?param1=val1&param2=val2")
+  ARGS = ["arg1","arg2"]
+  OPTIONS = {:param1 => ["val1"], :param2 => ["val2"]}
+  BODY_CONTENT = "<html></html>"
+
+  def test_http_parse
+    req = HttpRequest.from_uri(FULL_URI)
+
+    assert req
+    assert_equal HttpRequest, req.class
+    assert req.environment
+    assert_equal "http://www.example.com/", req.environment.uri.to_s
+    assert task = req.task
+
+    assert task.function
+    assert_equal "context", task.function.context
+    assert_equal "function", task.function.name
+    assert task.parameter
+    assert ARGS, task.parameter.arguments
+    assert_equal(OPTIONS, task.parameter.options)
+       
+  end
+
+  def test_http_parse_rev
+    param = BaseParameter.new
+    param.options = OPTIONS
+    param.arguments = ARGS
+
+    r = HttpRequest.new(HttpEnvironment.new(URI.parse("http://www.example.com/")),
+			BaseTask.new(
+				     BaseFunction.new("context","function"),
+				     param
+				     )
+			)
+    assert_equal FULL_URI, r.environment.uri_from_task(r.task)
+  end
+
+  def test_socket
+    reciever = SocketReciever.new(3333) {|io|
+      task = HttpTask.from_browser(io)
+      # task.parameter.stdin.gets
+    }
+    success = false
+    t = Thread.new { 
+      begin
+	sleep 0.1
+	req = HttpRequest.from_uri(FULL_URI)
+	req.environment = HttpEnvironment.new(URI.parse("http://127.0.0.1:3333"))
+	assert_equal BODY_CONTENT, req.execute    
+	success = true
+      rescue
+	print "#{$!}\n"
+	$!.backtrace.each {|l| print "#{l}\n"}
+      end
+    }
+    
+    p "Start recieving"
+    task = reciever.get
+    assert task
+    assert task.function.context
+    assert task.function
+    assert_equal "context", task.function.context
+    assert_equal "function", task.function.name
+    assert task.parameter
+    assert ARGS, task.parameter.arguments
+
+    opts = task.parameter.options.dup
+    input = opts.delete(:input_stream)
+    output = opts.delete(:output_stream)
+    assert_equal({:http_version => "1.1",:request_method => "GET"}.merge(OPTIONS), opts)
+    assert input
+    assert output
+    
+    
+    input.write("HTTP/1.0 200 OK\n\n" + BODY_CONTENT)
+#Content-Type: text/html
+#
+#<html>
+#  <body>
+#    <h1>Hello World</h1>
+#  </body>
+#</html>
+#EOF
+    input.close_write
+
+    t.join
+    assert success, "Thread failure"
+  end
+
+end