cuca 0.03 → 0.04

data/tests/generator_markaby.rb

@@ -0,0 +1,123 @@
+require 'test/unit'
+
+$: << File.expand_path(File.dirname(__FILE__) + '/../lib')
+
+$cuca_path = File.expand_path("#{File.dirname(__FILE__)}/test_app")
+require 'cuca'
+require 'cuca/generator/markaby'
+
+# Outputs parameters
+class TestMabAWidget < Cuca::Widget
+ include Cuca::Generator::Markaby
+
+ def output(param1='one', param2='two')
+    mab { b { param1}; b {param2}}
+ end
+end
+
+# Outputs a markaby block
+class TestMabBWidget < Cuca::Widget
+  include Cuca::Generator::Markaby
+  
+  def output(&block)
+    mab { b { text capture(&block) } }
+  end
+end
+
+# Takes intance variable @i and output's it
+class TestMabCWidget < Cuca::Widget
+  include Cuca::Generator::Markaby
+
+  def output()
+   @i = 'test'
+   mab { text @i }
+  end
+end
+
+# takes instance variable from TestC and mab's it with 'i'
+class TestMabDWidget < TestMabCWidget
+  include Cuca::Generator::Markaby
+
+  def output()
+   super
+   clear
+   mab { i { @i }  }
+  end
+end
+
+# should produce 'onetwothree' - check multicall 
+class TestMabEWidget < TestMabCWidget
+  include Cuca::Generator::Markaby
+
+  def output()
+   mab { 'one'  }
+   mab { 'two'  }
+   s = mabtext { 'three'  }
+   content << s
+  end
+end
+
+# uses instance methods as markaby reference, outputs '<b>TestMe</b>'
+class TestMabFWidget < Cuca::Widget
+   include Cuca::Generator::Markaby
+  
+   def testme
+     'TestMe'
+   end
+
+   def output
+     mab {  b { testme  } }
+   end
+end
+
+# G embedds F
+class TestMabGWidget < Cuca::Widget
+ include Cuca::Generator::Markaby
+
+  def output
+    mab { i { TestMabF() }}
+  end
+end
+
+
+
+class TestGeneratorMarkaby < Test::Unit::TestCase
+
+ def test_basic
+    t = TestMabAWidget.new
+    assert_equal '<b>one</b><b>two</b>', t.to_s
+
+    t = TestMabAWidget.new(:args => ['xxx', 'yyy'])
+    assert_equal '<b>xxx</b><b>yyy</b>', t.to_s
+ end
+
+ def test_markabyblock
+    t = TestMabBWidget.new { i { 'abc' }}
+    assert_equal '<b><i>abc</i></b>', t.to_s
+
+    t = TestMabBWidget.new { h1 { 'cde' }}
+    assert_equal '<b><h1>cde</h1></b>', t.to_s
+ end
+
+ def test_ivar 
+    t = TestMabCWidget.new  
+    assert_equal 'test', t.to_s
+   
+    t2 = TestMabDWidget.new
+    assert_equal '<i>test</i>', t2.to_s
+ end
+
+ def test_multicall
+  assert_equal 'onetwothree', TestMabEWidget.new.to_s
+ end
+
+ def test_instancemethod
+  assert_equal '<b>TestMe</b>', TestMabFWidget.new.to_s
+ end
+
+ def test_embedding_others
+  assert_equal '<i><b>TestMe</b></i>', TestMabGWidget.new.to_s
+ end
+
+
+end

data/tests/generator_view.rb

@@ -0,0 +1,76 @@
+require 'test/unit'
+
+$: << File.expand_path(File.dirname(__FILE__) + '/../lib')
+
+$cuca_path = File.expand_path("#{File.dirname(__FILE__)}/test_app")
+require 'cuca'
+require 'cuca/generator/view'
+
+# Cuca::App.configure do |conf|
+#  conf.view_directory="#{$cuca_path}/app/_views"
+# end
+
+class TestViewAWidget < Cuca::Widget
+  include Cuca::Generator::View
+
+  def output
+    @test = 'TEST'
+    view('test_template.rhtml')
+  end
+end
+
+# test viewtext
+class TestViewBWidget < Cuca::Widget
+  include Cuca::Generator::View
+
+  def output
+     @test = 'TEST'
+     @_content = viewtext('test_template.rhtml')
+  end
+end
+
+
+class TestViewCWidget < Cuca::Widget
+  include Cuca::Generator::View
+  
+  def output 
+     @test = 'TEST'
+     view_p(templ)
+  end
+
+  def templ
+    return <<-'EOT'
+        <b><%= @test %></b>
+EOT
+  end
+end
+
+class TestViewDWidget < Cuca::Widget
+  include Cuca::Generator::View
+  
+  def output 
+     @test = 'TEST'
+     @_content = viewtext_p(templ)
+  end
+
+  def templ
+    return <<-'EOT'
+        <b><%= @test %></b>
+EOT
+  end
+end
+
+
+class TestViewGenerator < Test::Unit::TestCase
+
+ def test_external_template
+    assert_equal '<p>TEST</p>', TestViewAWidget.new.to_s
+    assert_equal '<p>TEST</p>', TestViewBWidget.new.to_s
+ end
+
+ def test_internal_template
+    assert_equal '<b>TEST</b>', TestViewCWidget.new.to_s.strip
+    assert_equal '<b>TEST</b>', TestViewDWidget.new.to_s.strip
+ end
+
+end

data/tests/mimetypes.rb

@@ -0,0 +1,20 @@
+
+$: << File.expand_path(File.dirname(__FILE__) + '/../lib')
+
+require 'test/unit'
+require 'cuca/mimetypes'
+
+
+class TestMimeTypes < Test::Unit::TestCase
+
+  def test_mimetypes
+     mt = Cuca::MimeTypes.new
+     # just check for frequently used extensions
+     assert_equal 'video/x-msvideo', mt['avi']
+     assert_equal 'text/javascript', mt['js']
+     assert_equal 'text/html', mt['html']
+     assert_equal 'audio/mpeg', mt['mp3']
+  end
+
+  
+end

data/tests/test_app/README

@@ -0,0 +1 @@
+This directory is for the unit tests, it doesn't make sense for anything else.

data/tests/test_app/app/_views/test_template.rhtml

@@ -0,0 +1 @@
+<p><%= @test %></p>

data/tests/test_app/log/messages

@@ -0,0 +1 @@
+# Logfile created on Wed Jun 04 06:05:39 +0100 2008 by /

data/tests/urlmap.rb

@@ -0,0 +1,96 @@
+require 'test/unit'
+
+$: << File.expand_path(File.dirname(__FILE__) + '/../lib')
+require 'cuca'
+require 'cuca/urlmap'
+
+
+Cuca::App.configure do |c|
+ c.magic_prefix = '__'
+end
+
+#
+# test/app
+#        /user
+#            list.rb
+#            /__username/
+#                       index.rb
+#        /agent/
+#            index.rb
+#            list.rb
+
+
+class URLMapTest < Test::Unit::TestCase
+  def path
+    File.expand_path("#{File.dirname(__FILE__)}/test_app/app")
+#    File.expand_path("#{__FILE__}/test_app/")
+  end
+  
+  def test_user_list
+     map = ::Cuca::URLMap.new(path, '/user/list')
+     assert map.script.include?('/user/list.rb')
+     assert !map.subcall
+     assert_equal map.action, 'list'    
+     assert map.script.include?(map.action_path)		# action path must be part of script
+     assert map.script.include?(map.action_path_full)      
+  end
+
+  def test_default_action
+     map = ::Cuca::URLMap.new(path, '/agent/')
+     assert_equal map.action, 'index' 
+
+     assert_raise Cuca::RoutingError do
+         ::Cuca::URLMap.new(path, '/')		# no default index
+     end
+  end
+  
+  def test_user_list_subcall
+     map = ::Cuca::URLMap.new(path, '/user/-list-test')
+     assert map.subcall
+     assert_equal map.action, 'list'
+     assert map.script.include?('/user/list.rb')
+  end
+  
+  def test_invalid_path
+    assert_raise Cuca::RoutingError do
+       ::Cuca::URLMap.new(path, '/some/invalid/path')
+    end
+  end
+  
+  def test_invalid_subcall
+    assert_raise Cuca::RoutingError do
+      map = ::Cuca::URLMap.new(path, '/user/-list')      
+    end
+  end
+  
+  def test_magic_path
+     map = ::Cuca::URLMap.new(path, '/user/martin/')
+     assert map.assigns.has_key?('username')
+     assert_equal map.assigns['username'], 'martin' 
+  end
+
+  def test_mount
+    Cuca::App.configure do |c|
+      c.mount = { '/user/__username/agent/' => "#{path}/agent/" }	
+    end
+    
+    map = ::Cuca::URLMap.new(path, '/user/martin/agent/index')
+    assert map.script.include?('/agent/index.rb')
+      
+    Cuca::App.configure do |c|
+      c.mount = {}
+    end
+  end  
+
+  def test_module
+    map  = ::Cuca::URLMap.new(path, '/agent/index')
+    map2 = ::Cuca::URLMap.new(path, '/agent/list')
+    assert_equal map.action_module.object_id, map2.action_module.object_id
+    
+    map2 = ::Cuca::URLMap.new(path, '/user/list')
+    
+    assert !(map.action_module.object_id == map2.action_module.object_id)
+  end
+
+
+end

data/tests/widget.rb

@@ -0,0 +1,153 @@
+require 'test/unit'
+
+$: << File.expand_path(File.dirname(__FILE__) + '/../lib')
+
+$cuca_path = File.expand_path("#{File.dirname(__FILE__)}/test_app")
+require 'cuca'
+require 'cuca/urlmap'
+
+
+class TestAWidget < Cuca::Widget
+  def output(param1='one', param2='two')
+     content << "#{param1}-#{param2}"
+     @v1 = 'test1'
+     @v2 = 'test2'
+  end
+
+  def get_ivar(var)
+    instance_variable_get(var)
+  end
+end
+
+class TestBWidget < TestAWidget
+  def output(param1='one', param2='two')
+     super(param1, param2)
+     @_content = "(#{content})"
+  end
+end
+
+class TestCWidget < Cuca::Widget
+  def output(&block)
+    @_content = block.call
+  end
+end
+
+
+class TestBaseWidget < Cuca::Widget
+  class << self
+      def set_something(whatever)
+         define_attr_method 'something', whatever
+      end
+    
+      def append_something(whatever)
+         s = run_attr_method('something') || []
+         s << whatever
+         define_attr_method 'something', s
+      end
+  end
+end
+
+
+class TestDWidget < TestBaseWidget
+  set_something 'stuff'
+end
+
+class TestEWidget < TestBaseWidget
+  append_something 'a'
+  append_something 'b'
+  append_something 'c'
+end
+
+
+class WidgetTest < Test::Unit::TestCase
+
+ def setup
+   @app = Cuca::App.new
+ end
+
+ def test_content
+    w = Cuca::Widget.new
+    w.content = 'test'
+    assert_equal w.content, 'test'
+    w.clear
+    assert w.content == ''
+
+    t = TestAWidget.new
+    assert_equal t.to_s, 'one-two'
+ end
+
+ def test_hints
+    w = Cuca::Widget.new
+    w.hints['hint1'] = 'h1'
+    w2 = Cuca::Widget.new
+    assert_equal w2.hints['hint1'], 'h1'
+    w2.hints['hint2'] = 'h2'
+    assert_equal w.hints['hint2'], 'h2'
+
+    Cuca::Widget::clear_hints
+ 
+    assert w.hints, {}
+    assert w2.hints, {}
+ end
+
+ def test_external_accessors
+   w = Cuca::Widget.new
+   assert w.app.instance_of?(Cuca::App)
+   assert w.log.instance_of?(Logger)
+
+   # these two are nil because we didn't run from cgi or from controller
+   assert w.cgi.nil?
+#    assert w.controller.nil?   # we can't test on this
+
+   require 'cuca/cgi_emu'
+   @app.cgicall(CGIEmu.new('PATH_INFO' => '/'))
+
+   assert w.cgi.kind_of?(CGI)
+ end
+
+ def test_assigns
+   w = Cuca::Widget.new(:assigns => { 'p1' => 'test1', 'p2' => 'test2' })
+
+   assert w.get_assigns['p1'] == 'test1'
+
+   w = TestAWidget.new(:assigns => { 'p1' => 'test1', 'p2' => 'test2' } )
+   assert w.get_assigns['p1'] == 'test1'
+   assert w.get_assigns['p2'] == 'test2'
+ end
+
+ def test_params
+    t = TestAWidget.new(:args => ['x', 'z'])
+    assert_equal 'x-z', t.to_s
+    t = TestAWidget.new(:args => ['three'])
+    assert_equal 'three-two', t.to_s
+ end
+
+ def test_subclass
+    t = TestBWidget.new
+    assert_equal '(one-two)', t.to_s
+    t = TestBWidget.new(:args=> ['a', 'b'])
+    assert_equal '(a-b)', t.to_s
+    assert_equal 'test2', t.get_assigns['v2']
+ end
+
+ def test_widget_with_block
+    w = TestCWidget.new { "BLOCK" }
+    assert_equal "BLOCK", w.to_s
+
+    w = TestCWidget.new { "BLOCK2" }
+    assert_equal "BLOCK2", w.to_s
+ end
+
+ def test_attr_method
+   assert_equal 'stuff', TestDWidget.run_attr_method('something')
+   
+   a = TestEWidget.run_attr_method('something')
+   assert a.instance_of?(Array)
+   assert_equal 3, a.length
+   assert a.include?('a') 
+   assert a.include?('b')  
+   assert a.include?('c')
+ end
+
+
+end