zena 1.2.4 → 1.2.5

data/test/sites/ocean/roles.yml

@@ -6,3 +6,7 @@ DEFAULTS:
 Contact:
   kpath:           NC
   real_class:      Node
+  
+Note:
+  kpath:           NN
+  real_class:      Note

data/test/sites/zena/columns.yml

@@ -38,4 +38,6 @@ Contact_email:
 
 Contact_address:
 
-Contact_country:
+Contact_country:  
+
+Note_info:

data/test/sites/zena/roles.yml

@@ -60,4 +60,8 @@ Blog:
   prop:
     idx_class:       IdxProject
     idx_scope:       "{'blog' => 'self'}"
-    idx_reverse_scope: "nodes in project"
+    idx_reverse_scope: "nodes in project"
+
+Note:
+  kpath:           NN
+  real_class:      Note

data/test/sites/zena/sites.yml

@@ -1,5 +1,6 @@
 zena:
   host:            test.host
+  orphan:          zena
   root:            zena
   anon:            anon
   public_group:    public
@@ -12,6 +13,27 @@ zena:
   formats_updated_at: 2008-05-01
   api_group:       managers
   prop:
+    recaptcha_pub: 'pub'
+    recaptcha_priv: 'priv'
+    usr_prototype_attributes: "{'klass' => 'Contact', 'address' => 'Iping', 'name' => login}"
+
+alias:
+  master:          zena
+  host:            alias.host
+  orphan:          zena
+  root:            wiki
+  anon:            anon
+  public_group:    public
+  site_group:      workers
+  authentication:  no
+  auto_publish:    no
+  redit_time:      7200
+  languages:       
+  default_lang:    
+  formats_updated_at:
+  api_group:       
+  prop:
+    ssl_on_auth: true
     recaptcha_pub: 'pub'
     recaptcha_priv: 'priv'
     usr_prototype_attributes: "{'klass' => 'Contact', 'address' => 'Iping', 'name' => login}"

data/test/unit/document_test.rb

@@ -80,6 +80,20 @@ class DocumentTest < Zena::Unit::TestCase
           assert_equal 'water-1', subject.title
         end
       end # with same title
+      
+      context 'with a sub-class of Image' do
+        setup do
+          login(:lion)
+          vclass = secure(VirtualClass) { VirtualClass.create(:superclass => 'Image', :name => 'Video', :create_group_id => groups_id(:public))}
+        end
+        
+        should 'create a document' do
+          assert_difference('Node.count', 1) do
+            assert !subject.new_record?
+            assert_equal Document, subject.class
+          end
+        end
+      end
 
       context 'without a file' do
         subject do

data/test/unit/node_test.rb

@@ -140,7 +140,21 @@ class NodeTest < Zena::Unit::TestCase
           end
         end
       end # setting with transformations
+      
+      context 'saving multiple times' do
+        subject do
+          secure(Node) { nodes(:status) }
+        end
 
+        should 'not create multiple versions' do
+          assert_difference('Version.count', 1) do
+            subject.update_attributes_with_transformation(:title => 'One')
+            assert subject.update_attributes_with_transformation(:reference_id => '33')
+            assert subject.update_attributes_with_transformation(:reference_id => '34')
+          end
+        end
+      end
+      
     end # on a node with write access
   end # A logged in user
 

data/test/unit/role_test.rb

@@ -250,14 +250,11 @@ class RoleTest < Zena::Unit::TestCase
       end
 
       context 'with invalid index' do
-        should 'raise errors' do
+        should 'raise index errors' do
           e = nil
           assert_difference('Column.count', 0) do
             e = assert_raise(ActiveRecord::RecordInvalid) do
               subject.import_columns({
-                'one' => {
-                  'ptype' => 'stringbar',
-                },
                 'two' => {
                   'ptype' => 'integer',
                   'index' => 'bad',
@@ -271,6 +268,24 @@ class RoleTest < Zena::Unit::TestCase
         end
       end # with invalid index
 
+      context 'with invalid ptype' do
+        should 'raise index errors' do
+          e = nil
+          assert_difference('Column.count', 0) do
+            e = assert_raise(ActiveRecord::RecordInvalid) do
+              subject.import_columns({
+                'one' => {
+                  'ptype' => 'stringbar',
+                },
+              })
+            end
+          end
+
+          r = e.record
+          assert_equal "Column 'one' Validation failed: Ptype invalid", "#{r.class} '#{r.name}' #{e.message}"
+        end
+      end # with invalid ptype
+      
       context 'with invalid column name' do
         should 'raise errors' do
           e = nil

data/test/unit/site_test.rb

@@ -362,7 +362,74 @@ class SiteTest < Zena::Unit::TestCase
     end
   end
 
+  context 'A site alias' do
+    subject do
+      Site.find_by_host('alias.host')
+    end
+
+    should 'return master' do
+      assert_equal sites_id('zena'), subject.id
+    end
+
+    should 'have alias' do
+      assert_equal sites_id('alias'), subject.alias.id
+    end
+
+    should 'return alias host' do
+      assert_equal 'alias.host', subject.host
+    end
+    
+    should 'return master zafu path' do
+      assert_equal '/test.host/zafu', subject.zafu_path
+    end
+    
+    should 'return master data path' do
+      assert_equal '/test.host/data', subject.data_path
+    end
+    
+    should 'return alias public path' do
+      assert_equal '/alias.host/public', subject.public_path
+    end
+    
+    should 'return alias cache path' do
+      assert_equal '/alias.host/public', subject.cache_path
+    end
+    
+    should 'return alias auth settings' do
+      assert subject.ssl_on_auth
+    end
+    
+    should 'return alias root node' do
+      assert_equal nodes_id(:wiki), subject.root_id
+    end
+  end
+  
+  context 'Creating a site alias' do
+    subject do
+      Site.find_by_host('test.host')
+    end
+
+    should 'create site' do
+      assert_difference('Site.count', 1) do
+        assert_difference('Node.count', 0) do
+          assert_difference('User.count', 0) do
+            subject.create_alias('foo.bar')
+          end
+        end
+      end
+    end
 
+    should 'set master_id' do
+      ali = subject.create_alias('foo.bar')
+      assert_equal subject.id, ali.master_id
+    end
+    
+    should 'set host name' do
+      ali = subject.create_alias('foo.bar')
+      assert_equal 'foo.bar', ali.host
+    end
+  end
+  
   private
     def fullpath(*args)
       args.map {|sym| nodes_zip(sym).to_s}.join('/')

data/test/unit/user_test.rb

@@ -54,6 +54,26 @@ class UserTest < Zena::Unit::TestCase
           assert_nothing_raised { users(:ant).destroy }
         end
       end
+      
+      class GroupsUsersCounter < ActiveRecord::Base
+        set_table_name :groups_users
+      end
+      
+      should 'remove links to groups' do
+        assert_difference('User.count', -1) do
+          assert_difference('GroupsUsersCounter.count', -2) do
+            assert_nothing_raised { users(:ant).destroy }
+          end
+        end
+      end
+      
+      should 'not remove linked node' do
+        assert_difference('User.count', -1) do
+          assert_difference('Node.count', 0) do
+            assert_nothing_raised { users(:ant).destroy }
+          end
+        end
+      end
     end # with admin rights
   end # Destroying a user
 

data/test/unit/virtual_class_test.rb

@@ -2,8 +2,8 @@
 require 'test_helper'
 
 class VirtualClassTest < Zena::Unit::TestCase
-  POST_PROPERTIES = %w{assigned cached_role_ids date origin settings summary text title tz weight}
-  NOTE_PROPERTIES = %w{assigned cached_role_ids origin settings summary text title tz weight}
+  POST_PROPERTIES = %w{assigned cached_role_ids date info origin settings summary text title tz weight}
+  NOTE_PROPERTIES = %w{assigned cached_role_ids info origin settings summary text title tz weight}
   
   def test_virtual_subclasse
     # add a sub class
@@ -427,8 +427,19 @@ class VirtualClassTest < Zena::Unit::TestCase
       end # that is not a virtual class instance
 
     end # from a node instance
-
   end # Loading a virtual class
+  
+  context 'With a virtual class linked to a real class' do
+    setup do
+      login(:lion)
+      vclass = secure(VirtualClass) { VirtualClass.create(:superclass => 'Document', :name => 'Image')}
+    end
+
+    should 'description' do
+      
+    end
+  end
+  
 
   def self.should_clear_cache
 
@@ -509,7 +520,7 @@ class VirtualClassTest < Zena::Unit::TestCase
     should 'load new role from cache' do
       subject
       # no more linked to assigned
-      assert_equal %w{assigned cached_role_ids date foo origin settings summary text title tz weight}, VirtualClass['Post'].column_names.sort
+      assert_equal %w{assigned cached_role_ids date foo info origin settings summary text title tz weight}, VirtualClass['Post'].column_names.sort
     end
 
   end # Creating a Column
@@ -528,7 +539,7 @@ class VirtualClassTest < Zena::Unit::TestCase
     should 'load new role from cache' do
       subject
       # no more linked to Original
-      assert_equal %w{assigned cached_role_ids date summary text title}, VirtualClass['Post'].column_names.sort
+      assert_equal %w{assigned cached_role_ids date info summary text title}, VirtualClass['Post'].column_names.sort
     end
 
   end # Updating a Role
@@ -566,7 +577,7 @@ class VirtualClassTest < Zena::Unit::TestCase
     should 'load new role from cache' do
       subject
       # no more linked to Original
-      assert_equal %w{assigned cached_role_ids date summary text title}, VirtualClass['Post'].column_names.sort
+      assert_equal %w{assigned cached_role_ids date info summary text title}, VirtualClass['Post'].column_names.sort
     end
 
   end # Deleting a Role
@@ -585,7 +596,7 @@ class VirtualClassTest < Zena::Unit::TestCase
     should 'load new role from cache' do
       subject
       # no more linked to assigned
-      assert_equal %w{assigned cached_role_ids date origin settings summary text title weight}, VirtualClass['Post'].column_names.sort
+      assert_equal %w{assigned cached_role_ids date info origin settings summary text title weight}, VirtualClass['Post'].column_names.sort
     end
 
   end # Deleting a Column
@@ -710,6 +721,37 @@ class VirtualClassTest < Zena::Unit::TestCase
           assert_equal %w{Node Original Task}, subject.sorted_roles.map(&:name)
         end
       end
+      
+      context 'linked to a real class' do
+        subject do
+          VirtualClass['Note']
+        end
+
+        should 'have an id' do
+          assert subject.id
+        end
+
+        should 'define superclass' do
+          assert_equal VirtualClass['Node'], subject.superclass
+        end
+
+        should 'be the superclass of descendants' do
+          assert_equal subject, VirtualClass['Post'].superclass
+        end
+
+        should 'load all properties' do
+          assert_equal %w{assigned cached_role_ids info origin settings summary text title tz weight}, subject.column_names.sort
+        end
+
+        should 'return list of roles' do
+          assert_equal %w{Node Original Task Note}, subject.sorted_roles.map(&:name)
+        end
+        
+        should 'define safe columns' do
+          assert_equal %w{info}, subject.defined_safe_columns.map(&:name)
+        end
+      end
+
     end # of a real class
 
 
@@ -723,7 +765,7 @@ class VirtualClassTest < Zena::Unit::TestCase
       end
 
       should 'return safe columns' do
-        assert_equal %w{summary text title assigned origin settings tz weight date}, subject.safe_columns.map(&:name)
+        assert_equal %w{summary text title assigned origin settings tz weight info date}, subject.safe_columns.map(&:name)
       end
 
       should 'return defined safe columns' do
@@ -731,7 +773,7 @@ class VirtualClassTest < Zena::Unit::TestCase
       end
 
       should 'return safe column types' do
-        assert_equal %w{assigned date origin settings summary text title tz weight}, subject.safe_column_types.keys.sort
+        assert_equal %w{assigned date info origin settings summary text title tz weight}, subject.safe_column_types.keys.sort
       end
 
       should 'return type on safe method type' do
@@ -744,7 +786,7 @@ class VirtualClassTest < Zena::Unit::TestCase
       end
 
       should 'return list of roles' do
-        assert_equal %w{Node Original Task Post}, subject.sorted_roles.map(&:name)
+        assert_equal %w{Node Original Task Note Post}, subject.sorted_roles.map(&:name)
       end
     end # of a virtual class
 
@@ -836,7 +878,8 @@ class VirtualClassTest < Zena::Unit::TestCase
             :superclass      => 'Document',
             :name            => 'HtmlDoc',
             :create_group_id => groups_id(:public), 
-            :content_type    => 'text/html'}
+            :content_type    => 'text/html',
+          }
         end
 
         should 'save and create regexp' do
@@ -852,6 +895,68 @@ class VirtualClassTest < Zena::Unit::TestCase
         end
         
       end
+      
+      context 'linked to a real class' do
+        subject do
+          v = secure(VirtualClass) do
+            VirtualClass.new({
+              :superclass      => 'Document',
+              :name            => 'Page',
+              :create_group_id => groups_id(:public),
+            })
+          end
+          v.save
+          v
+        end
+
+        should 'save' do
+          assert !subject.new_record?
+        end
+        
+        should 'rewrite superclass' do
+          subject
+          assert_equal VirtualClass['Node'], subject.superclass
+        end
+        
+        should 'properly set real_class' do
+          assert_equal Page, subject.real_class
+        end
+        
+        should 'echo kpath' do
+          assert_equal Page.kpath, subject.kpath
+        end
+      end
+      
+
+      context 'linked to Node class' do
+        subject do
+          v = secure(VirtualClass) do
+            VirtualClass.new({
+              :name            => 'Node',
+              :create_group_id => groups_id(:public),
+            })
+          end
+          v.save
+          v
+        end
+
+        should 'save' do
+          err subject
+          assert !subject.new_record?
+        end
+
+        should 'rewrite superclass' do
+          assert_equal Node, subject.superclass
+        end
+
+        should 'properly set real_class' do
+          assert_equal Node, subject.real_class
+        end
+
+        should 'echo kpath' do
+          assert_equal Node.kpath, subject.kpath
+        end
+      end
     end
   end