zena 1.0.0.beta3 → 1.0.0.rc1

data/test/unit/zena/acts/serializable_test.rb

@@ -80,6 +80,24 @@ class SerializableTest < Zena::Unit::TestCase
         end
       end
 
+      context 'with cached role ids' do
+        setup do
+          login(:tiger)
+          assert subject.update_attributes('properties' => {'assigned' => 'flat Eric'})
+          assert_equal [roles_id(:Task)], subject.cached_role_ids
+        end
+
+        subject do
+          secure(Node) { nodes(:letter) }
+        end
+
+        should_not_change_object_on_rewrite
+
+        should 'ignore cached_role_ids in xml' do
+          hash = Hash.from_xml(subject.to_xml)['node']
+          assert_nil hash['cached_role_ids']
+        end
+      end
     end # on a node
 
     context 'on many nodes' do

data/test/unit/zena/db_test.rb

@@ -25,7 +25,7 @@ class DbTest < Zena::Unit::TestCase
   end
 
   def test_insensitive_find
-    assert_equal nodes_zip(:status), secure(Node) { Zena::Db.insensitive_find(Node, :first, :node_name => 'sTatuS')}.zip
+    assert_equal nodes_zip(:status), secure(Node) { Zena::Db.insensitive_find(Node, :first, :_id => 'sTatuS')}.zip
   end
 
   def test_next_zip_rollback
@@ -36,16 +36,16 @@ class DbTest < Zena::Unit::TestCase
   end
 
   def test_fetch_row
-    assert_equal "water", Zena::Db.fetch_attribute("SELECT node_name FROM nodes WHERE id = #{nodes_id(:water_pdf)}")
-    assert_nil Zena::Db.fetch_attribute("SELECT node_name FROM nodes WHERE #{Zena::Db::FALSE}")
+    assert_equal "water_pdf", Zena::Db.fetch_attribute("SELECT _id FROM nodes WHERE id = #{nodes_id(:water_pdf)}")
+    assert_nil Zena::Db.fetch_attribute("SELECT _id FROM nodes WHERE #{Zena::Db::FALSE}")
   end
 
   def test_fetch_attributes
-    assert_equal [{"node_name"=>"secret", "zip"=>"19"},
-     {"node_name"=>"status", "zip"=>"22"},
-     {"node_name"=>"strange", "zip"=>"36"},
-     {"node_name"=>"skins", "zip"=>"51"},
-     {"node_name"=>"style", "zip"=>"53"}], Zena::Db.fetch_attributes(['zip','node_name'], 'nodes', "node_name like 's%' and site_id = #{sites_id(:zena)} ORDER BY zip")
+    assert_equal [{"_id"=>"secret", "zip"=>"19"},
+     {"_id"=>"status", "zip"=>"22"},
+     {"_id"=>"strange", "zip"=>"36"},
+     {"_id"=>"skins", "zip"=>"51"},
+     {"_id"=>"style_css", "zip"=>"53"}], Zena::Db.fetch_attributes(['zip','_id'], 'nodes', "_id like 's%' and site_id = #{sites_id(:zena)} ORDER BY zip")
   end
 
   def test_migrated_once
@@ -60,25 +60,25 @@ class DbTest < Zena::Unit::TestCase
 
     should 'not change updated_at date' do
       old_updated_at = @node.updated_at
-      Zena::Db.set_attribute(@node, :node_name, 'flop')
+      Zena::Db.set_attribute(@node, :_id, 'flop')
       @node = secure!(Node) { nodes(:status) } # reload
       assert_equal old_updated_at, @node.updated_at
     end
 
     should 'set attribute in node' do
-      Zena::Db.set_attribute(@node, :node_name, 'flop')
-      assert_equal 'flop', @node.node_name
+      Zena::Db.set_attribute(@node, :_id, 'flop')
+      assert_equal 'flop', @node._id
     end
 
     should 'not mark as dirty' do
-      Zena::Db.set_attribute(@node, :node_name, 'flop')
+      Zena::Db.set_attribute(@node, :_id, 'flop')
       assert !@node.changed?
     end
 
     should 'set attribute in db' do
-      Zena::Db.set_attribute(@node, :node_name, 'flop')
+      Zena::Db.set_attribute(@node, :_id, 'flop')
       @node = secure!(Node) { nodes(:status) } # reload
-      assert_equal 'flop', @node.node_name
+      assert_equal 'flop', @node._id
     end
 
     should 'set a time' do

data/test/unit/zena/parser/zafu.yml

@@ -1,3 +1,5 @@
+# FIXME: move these tests to Zafu gem
+
 empty:
   src: ""
   res: ""
@@ -18,9 +20,9 @@ ignore_tag:
   src: "there is <li do='ignore'>delete me</li>nothing"
   res: "there is nothing"
 
-ignore_do_empty:
-  src: "there is <li do=''>delete me</li>nothing left"
-  res: "there is nothing left"
+#ignore_do_empty:
+#  src: "there is <li do=''>delete me</li>nothing left"
+#  res: "there is nothing left"
 
 hello_skip_content:
   src: "<r:hello>I want to live forever</r:hello>"

data/test/unit/zena/use/ancestry_test.rb

@@ -0,0 +1,198 @@
+require 'test_helper'
+
+class AncestryTest < Zena::Unit::TestCase
+
+  context 'On an object with a fullpath' do
+    setup do
+      login(:ant)
+    end
+
+    subject do
+      secure(Node) { nodes(:status) }
+    end
+
+    context 'on fullpath_as_title' do
+      should 'return path with titles' do
+        assert_equal ["projects list", "Clean Water project", "Etat des travaux"], subject.fullpath_as_title
+      end
+
+      should 'return double dot from rel_path' do
+        assert_equal '(../Clean Water project/Etat des travaux)', subject.pseudo_id(nodes(:wiki), :relative_path)
+      end
+    end # on fullpath_as_title
+
+    context 'on short_path' do
+      should 'return last two parent titles' do
+        assert_equal ["..", "Clean Water project", "Etat des travaux"], subject.short_path
+      end
+    end # on short_path
+
+    context 'and custom_base set' do
+      subject do
+        secure(Node) { nodes(:cleanWater) }
+      end
+
+      should 'set basepath' do
+        assert_equal fullpath(:projects, :cleanWater), subject.basepath
+      end
+
+      should 'set basepath in children' do
+        assert_equal fullpath(:projects, :cleanWater), nodes(:status).basepath
+      end
+    end # and custom_base set
+
+    context 'with a secret parent' do
+      subject do
+        secure(Node) { nodes(:talk) }
+      end
+
+      should 'replace parent by star on fullpath_as_title' do
+        assert_equal ["projects list", "*", "Talk"], subject.fullpath_as_title
+      end
+
+      should 'replace parent by star on short_path' do
+        assert_equal ["..", "*", "Talk"], subject.short_path
+      end
+    end # with a secret parent
+
+  end # On an object with a fullpath
+
+  context 'Moving an object' do
+    setup do
+      login(:lion)
+      subject.update_attributes(:parent_id => nodes_id(:lion))
+    end
+
+    subject do
+      secure(Node) { nodes(:secret) }
+    end
+
+    should 'rebuild fullpath in new parent' do
+      assert_equal fullpath(:people, :lion, :secret), subject.fullpath
+    end
+
+    should 'rebuild children fullpath' do
+      assert_equal fullpath(:people, :lion, :secret, :talk), nodes(:talk).fullpath
+      assert_equal fullpath(:people, :lion, :secret, :proposition), nodes(:proposition).fullpath
+    end
+
+    context 'with custom_base set' do
+      subject do
+        secure(Node) { nodes(:cleanWater) }
+      end
+
+      should 'rebuild basepath in new parent' do
+        assert_equal fullpath(:people, :lion, :cleanWater), subject.basepath
+      end
+
+      should 'rebuild children basepath' do
+        assert_equal fullpath(:people, :lion, :cleanWater), nodes(:status).basepath
+      end
+    end # with custom_base set
+
+
+  end # Moving an object
+
+  context 'Finding an object from a path' do
+    setup do
+      login(:lion)
+    end
+
+    subject do
+      secure(Node) { Node.find_by_path('projects list/Secret/Talk')}
+    end
+
+    should 'find object' do
+      assert_equal nodes_id(:talk), subject.id
+    end
+
+    context 'without access to secret parent' do
+      setup do
+        login(:anon)
+      end
+
+      should 'not find object' do
+        assert_nil subject
+      end
+    end # without access to secret parent
+    
+    context 'without access to the object' do
+      setup do
+        login(:anon)
+      end
+      
+      subject do
+        secure(Node) { Node.find_by_path('projects list/Secret') }
+      end
+
+      should 'not find object' do
+        assert_nil subject
+      end
+    end # without access to the object
+
+  end # Finding an object
+
+  context 'A node with ancestors' do
+    subject do
+      secure(Node) { nodes(:cleanWater) }
+    end
+
+    should 'return list of ancestors on ancestors' do
+      assert_equal nodes_zip(:zena, :projects), subject.ancestors.map(&:zip)
+    end
+
+    context 'with a secret parent' do
+      subject do
+        secure(Node) { nodes(:talk) }
+      end
+
+      should 'skip secret parent in ancestors' do
+        assert_equal nodes_zip(:zena, :projects), subject.ancestors.map(&:zip)
+      end
+    end # with a secret parent
+  end # A node with ancestors
+
+  context 'A visitor with write access' do
+    setup do
+      login(:tiger)
+    end
+
+    context 'creating a node' do
+      subject do
+        secure(Node) { Node.create(:parent_id => nodes_id(:projects), :title => 'Kyma')}
+      end
+
+      should 'build fullpath' do
+        assert_equal [nodes_zip(:projects), subject.zip].join('/'), subject.fullpath
+      end
+
+      should 'build basepath' do
+        err subject
+        assert_equal [nodes_zip(:projects), subject.zip].join('/'), subject.fullpath
+      end
+    end # creating a node
+
+  end # A visitor with write access
+
+
+  context 'A node in an ancestry loop' do
+    setup do
+      login(:ant)
+      Node.connection.execute "UPDATE nodes SET parent_id = #{nodes_id(:status)} WHERE id = #{nodes_id(:cleanWater)}"
+    end
+
+    subject do
+      secure(Node) { nodes(:lake_jpg) }
+    end
+
+    should 'raise Invalid record on site rebuild_fullpath' do
+      assert_raise(Zena::InvalidRecord) { current_site.rebuild_fullpath(subject.parent_id) }
+    end
+  end # A node in an ancestry loop
+
+
+  private
+    def fullpath(*args)
+      args.map {|sym| nodes_zip(sym).to_s}.join('/')
+    end
+end

data/test/unit/zena/use/calendar_test.rb

@@ -14,15 +14,15 @@ class CalendarTest < Zena::View::TestCase
     start_date, end_date = cal_start_end(Time.utc(2006,3,18), :month)
     assert_equal Date.civil(2006,02,26), start_date
     assert_equal Date.civil(2006,04,01), end_date
-    secure!(Note) { Note.create(:parent_id => nodes_id(:zena), :node_name => 'foobar', :event_at => Time.utc(2006,03,20))}
+    secure!(Note) { Note.create(:parent_id => nodes_id(:zena), :title => 'foobar', :event_at => Time.utc(2006,03,20))}
     nodes = secure!(Note) { Note.find(:all, :conditions => ["nodes.event_at >= ? AND nodes.event_at <= ?", start_date, end_date])}
     res = cal_weeks('event_at', nodes, start_date, end_date) do |week, hash|
       weeks << week
       event_hash = hash
     end
     assert_equal ["2006-03-18 00", "2006-03-20 00"], event_hash.keys.sort
-    assert_equal ['opening'], event_hash["2006-03-18 00"].map{|r| r.node_name}
-    assert_equal ['foobar'], event_hash["2006-03-20 00"].map{|r| r.node_name}
+    assert_equal ['parc opening'], event_hash["2006-03-18 00"].map{|r| r.title}
+    assert_equal ['foobar'], event_hash["2006-03-20 00"].map{|r| r.title}
   end
 
   def test_cal_weeks_hours
@@ -34,16 +34,16 @@ class CalendarTest < Zena::View::TestCase
     start_date, end_date = cal_start_end(Time.utc(2006,3,18), :month)
     assert_equal Date.civil(2006,02,26), start_date
     assert_equal Date.civil(2006,04,01), end_date
-    secure!(Note) { Note.create(:parent_id => nodes_id(:zena), :node_name => 'morning', :event_at => Time.utc(2006,03,20,9))}
-    secure!(Note) { Note.create(:parent_id => nodes_id(:zena), :node_name => 'afternoon', :event_at => Time.utc(2006,03,20,14))}
+    secure!(Note) { Note.create(:parent_id => nodes_id(:zena), :title => 'morning', :event_at => Time.utc(2006,03,20,9))}
+    secure!(Note) { Note.create(:parent_id => nodes_id(:zena), :title => 'afternoon', :event_at => Time.utc(2006,03,20,14))}
     nodes = secure!(Note) { Note.find(:all, :conditions => ["nodes.event_at >= ? AND nodes.event_at <= ?", start_date, end_date])}
     res = cal_weeks('event_at', nodes, start_date, end_date, hours) do |week, hash|
       weeks << week
       event_hash = hash
     end
     assert_equal ["2006-03-18 12", "2006-03-20 00", "2006-03-20 12"], event_hash.keys.sort
-    assert_equal ['opening'], event_hash["2006-03-18 12"].map{|r| r.node_name}
-    assert_equal ['morning'], event_hash["2006-03-20 00"].map{|r| r.node_name}
-    assert_equal ['afternoon'], event_hash["2006-03-20 12"].map{|r| r.node_name}
+    assert_equal ['parc opening'], event_hash["2006-03-18 12"].map{|r| r.title}
+    assert_equal ['morning'], event_hash["2006-03-20 00"].map{|r| r.title}
+    assert_equal ['afternoon'], event_hash["2006-03-20 12"].map{|r| r.title}
   end
 end

data/test/unit/zena/use/dates_test.rb

@@ -7,4 +7,6 @@ class DatesTest < Zena::View::TestCase
     visiting(:status)
     assert_match %r{span class="date_box".*img src="\/calendar\/iconCalendar.gif".*input id='datef.*' name='node\[updated_at\]' type='text' value='2006-04-11 00:00'}m, date_box(@node, 'updated_at')
   end
+
+  # see dates.yml
 end

data/test/unit/zena/use/fulltext_test.rb

@@ -18,10 +18,18 @@ class FulltextTest < Zena::Unit::TestCase
 
       context 'with valid code' do
         should 'succeed' do
-          assert subject.update_attributes(:idx_text_high => %q{sender:#{title} paper:#{paper}})
+          assert subject.update_attributes(:idx_text_high => %q{%Q{sender:#{title} paper:#{paper}}})
+          assert_equal %q{%Q{sender:#{title} paper:#{paper}}}, subject.idx_text_high
         end
       end # with valid code
 
+      context 'with invalid return type' do
+        should 'fail' do
+          assert !subject.update_attributes(:idx_text_high => '89')
+          assert_match %r{Compilation should produce a String. Found Number.}, subject.errors[:idx_text_high]
+        end
+      end # with invalid return type
+
       context 'with syntax errors' do
         should 'fail' do
           assert !subject.update_attributes(:idx_text_high => %q[foo:#{tit}le} paper:#{paper}])

data/test/unit/zena/use/html_tags_test.rb

@@ -76,7 +76,7 @@ class HtmlTagsTest < Zena::View::TestCase
     end # with a document
 
     {
-      'basecontact' => :lake,
+      'contact' => :lake,
       'project' => :cleanWater,
       'post'    => :opening,
       'tag'     => :art,
@@ -218,7 +218,7 @@ class HtmlTagsTest < Zena::View::TestCase
 
   def test_alt_with_apos
     doc = secure!(Node) { nodes(:lake_jpg) }
-    assert_equal "<img src='/en/projects/cleanWater/image24.jpg?1144713600' width='600' height='440' alt='it&apos;s a lake' class='full'/>", img_tag(doc)
+    assert_equal "<img src='/en/projects-list/Clean-Water-project/image24.jpg?1144713600' width='600' height='440' alt='it&apos;s a lake' class='full'/>", img_tag(doc)
   end
 
   def test_select_id
@@ -246,20 +246,6 @@ class HtmlTagsTest < Zena::View::TestCase
   #   assert_match %r{<select[^>]*></select>}, select
   # end
 
-  def test_show_path_root
-    login(:anon)
-    @node = secure!(Node) { Node.find(nodes_id(:zena))}
-    assert_equal "<li><a href='/en' class='current'>Zena the wild CMS</a></li>", show_path
-    @node = secure!(Node) { Node.find(nodes_id(:status))}
-    assert_match %r{.*Zena.*projects.*Clean Water.*li.*page22\.html' class='current'>status}m, show_path
-  end
-
-  def test_show_path_root_with_login
-    login(:ant)
-    @node = secure!(Node) { Node.find(nodes_id(:zena))}
-    assert_equal "<li><a href='/#{AUTHENTICATED_PREFIX}' class='current'>Zena the wild CMS</a></li>", show_path
-  end
-
   def map_actions(version)
     version_actions(version, :actions => :all
     ).split(%r{<.*/nodes/#{version.node.zip}/versions/#{version.number}/}).map{|l| l.gsub(/\?.*/,'').strip

data/test/unit/zena/use/i18n_test.rb

@@ -27,7 +27,7 @@ class I18nTest < Zena::View::TestCase
       end
 
       should 'change lang with lang param' do
-        assert_match %r{href=.*/oo/projects/cleanWater\?lang=.*fr.*}, lang_links
+        assert_match %r{href=.*/oo/projects-list/Clean-Water-project\?lang=.*fr.*}, lang_links
       end
     end # on lang_links
   end # With a logged in user
@@ -57,7 +57,7 @@ class I18nTest < Zena::View::TestCase
       end
 
       should 'change lang with prefix' do
-        assert_match %r{href=.*/fr/projects/cleanWater.*fr.*}, lang_links
+        assert_match %r{href=.*/fr/projects-list/Clean-Water-project.*fr.*}, lang_links
       end
     end # on lang_links
   end # Without a login

data/test/unit/zena/use/kpath_test.rb

@@ -0,0 +1,13 @@
+require 'test_helper'
+
+class KpathTest < Zena::Unit::TestCase
+  context 'A class path (kpath)' do
+    should 'represent the class hierarchy' do
+      assert_equal 'N', Node.kpath
+      assert_equal 'NP', Page.kpath
+      assert_equal 'U', PagerDummy.ksel
+      assert_equal 'NU', PagerDummy.kpath
+      assert_equal 'NUS', SubPagerDummy.kpath
+    end
+  end
+end