your_platform 0.0.1 → 0.0.2

data/spec/models/group_mixins/roles_spec.rb

@@ -0,0 +1,46 @@
+require 'spec_helper'
+
+describe GroupMixins::Roles do
+
+  describe "#administrated_object" do
+    before do
+      @some_group = create( :group )
+      @sub_group = create( :group ); @sub_group.parent_groups << @some_group
+      @officers_parent = @sub_group.create_officers_parent_group
+      @admins_parent = @sub_group.find_or_create_admins_parent_group
+      @main_admins_parent = @sub_group.create_main_admins_parent_group
+    end
+    context "for an officers_parent_group" do
+      subject { @officers_parent.administrated_object }
+      it "should be the parent of the officers_parent" do
+        subject.should == @sub_group
+      end
+    end
+    context "for a child group of the officers_parent_group" do
+      subject { @main_admins_parent.administrated_object }
+      it "should be the parent of the officers_parent as well" do
+        subject.should == @sub_group
+      end
+    end
+    context "for the administrated object itself" do
+      subject { @sub_group.administrated_object }
+      it { should == nil }
+    end
+    context "for a parent of the aministrated object" do
+      subject { @some_group.administrated_object }
+      it { should == nil }
+    end
+    context "for the administrated object being something different than a group" do
+      before do
+        @some_page = create( :page )
+        @main_admins_parent = @some_page.create_main_admins_parent_group
+      end
+      subject { @main_admins_parent.administrated_object }
+      it "should work as well" do
+        subject.should == @some_page
+      end
+    end
+
+  end  
+
+end

data/spec/models/group_spec.rb

@@ -0,0 +1,341 @@
+require 'spec_helper'
+
+describe Group do
+
+  # General Properties
+  # ==========================================================================================
+
+  describe "(Basic Properties)" do
+
+    before { @group = create( :group ) }
+    subject { @group }
+
+    it { should respond_to( :name ) }
+    it { should respond_to( :name= ) }
+    it { should respond_to( :token ) }
+    it { should respond_to( :token= ) }
+    it { should respond_to( :internal_token ) }
+    it { should respond_to( :internal_token= ) }
+    it { should respond_to( :extensive_name ) }
+    it { should respond_to( :extensive_name= ) }
+
+    describe "#title" do
+      it "should be the same as the group's name" do
+        @group.name = "Group Name"
+        @group.title.should == "Group Name"
+      end
+    end
+
+    describe "#name" do
+      subject { @group.name }
+      describe "for a translation of the name exists" do
+        before { @group.name = "admins" }
+        it "should return the translated name" do
+          I18n.t(:admins).should_not == "admins"
+          subject.should == I18n.t(:admins)
+        end
+      end
+      describe "for no translation of the name exists" do
+        before { @group.name = "asdjkl" }
+        it "should return the name itself" do
+          subject.should == "asdjkl"
+        end
+      end
+    end
+
+  end
+
+
+  # Associated Objects
+  # ==========================================================================================
+  
+  # Workflows
+  # ------------------------------------------------------------------------------------------
+
+  describe "(Workflows)" do
+    before do
+      @group = create( :group )
+      @subgroup = create( :group )
+      @subgroup.parent_groups << @group
+      
+      @workflow = create( :workflow )
+      @workflow.parent_groups << @group
+      @subworkflow = create( :workflow )
+      @subworkflow.parent_groups << @subgroup
+
+      @group.reload
+      @workflow.reload
+    end
+    subject { @group }
+
+    describe "#descendant_workflows" do
+      it "should return the workflows of the group and its subgroups" do
+        @group.descendant_workflows.should include( @workflow, @subworkflow )
+        @workflow.ancestor_groups.should include( @group )
+      end
+    end
+
+    describe "#child_workflows" do
+      it "should return only the workflows of the groups, not of the subgroups" do
+        @group.child_workflows.should include( @workflow )
+        @group.child_workflows.should_not include( @subworkflow )
+        @workflow.ancestor_groups.should include( @group )
+        @subworkflow.ancestor_groups.should include( @group, @subgroup )
+      end
+    end
+  end
+
+
+  # Events
+  # ------------------------------------------------------------------------------------------
+
+  describe "(Events)" do
+    before do 
+      @group = create( :group )
+      @subgroup = @group.child_groups.create
+      @upcoming_events = [ @group.events.create( start_at: 5.hours.from_now ), 
+                           @subgroup.events.create( start_at: 5.hours.from_now ) ]
+      @recent_events = [ @group.events.create( start_at: 2.days.ago ) ]
+      @unrelated_events = [ create( :event ) ]
+    end
+
+    describe "#upcoming_events" do
+      subject { @group.upcoming_events }
+      it { should include *@upcoming_events }
+      it { should_not include *@recent_events }
+      it { should_not include *@unrelated_events }
+    end
+
+    describe "#events" do
+      subject { @group.events }
+      it { should include *@upcoming_events }
+      it { should include *@recent_events }
+      it { should_not include *@unrelated_events }
+    end
+  end
+
+
+  # Users
+  # ------------------------------------------------------------------------------------------
+
+  describe "(Users)" do
+
+    before do
+      @user = create( :user )
+      @group = create( :group )
+      @subgroup = create( :group ); @group.child_groups << @subgroup
+    end
+
+    describe "#descendant_users" do
+      describe "for usual groups" do
+        before { @user.parent_groups << @subgroup }
+        subject { @group.descendant_users }
+
+        it "should return all descendant users, including the users of the subgroups" do
+          subject.should include( @user )
+        end
+      end
+    end
+
+    describe "#child_users" do
+      describe "for usual groups" do
+        before { @user.parent_groups << @group }
+        subject { @group.child_users }
+
+        it "should return all child users" do
+          subject.should include( @user )
+        end
+      end
+    end
+
+  end
+
+
+  # Groups
+  # ------------------------------------------------------------------------------------------
+
+  describe "(Groups)" do
+    describe "#descendant_groups_by_name" do
+      before do
+        @name_match = "Group Name"
+        @group = create( :group )
+        @group1 = create( :group, :name => @name_match ); @group1.parent_groups << @group
+        @group2 = create( :group, :name => "Other #{@name_match}" ); @group2.parent_groups << @group1        
+        @group3 = create( :group, :name => @name_match ); @group3.parent_groups << @group2
+        @matching_groups = [ @group1, @group3 ]
+        @not_matching_groups = [ @group2 ]
+      end
+      subject { @group.descendant_groups_by_name( @name_match ) }
+      it "should return all descendant groups matching the name" do
+        @matching_groups.each { |g| subject.should include( g ) }
+        @not_matching_groups.each { |g| subject.should_not include( g ) }
+      end
+    end
+
+    describe "#corporation" do
+      before do
+        @group = create(:group)
+        @corporation = create(:corporation)
+      end
+      subject { @group.reload.corporation }
+      describe "for the group being a corporation" do
+        before { @group = @corporation }
+        it "should return self" do
+          subject.should == @group
+        end
+      end
+      describe "for the group being a child of a corporation" do
+        before { @group.parent_groups << @corporation }
+        it "should return the parent" do
+          subject.should == @corporation 
+        end
+      end
+      describe "for the group being a descendant of a corporation" do
+        before do
+          @middle_group = @group.parent_groups.create
+          @middle_group.parent_groups << @corporation
+        end
+        it "should return the ancestor" do
+          subject.should == @corporation
+        end
+      end
+      describe "for the group being not related to a corporation" do
+        it "should return nil" do
+          subject.should == nil
+        end
+      end
+    end
+    
+    describe "#corporation?" do
+      subject { @group.corporation? }
+      describe "for the group being a corporation" do
+        before { @group = create(:corporation) }
+        it { should == true }
+      end
+      describe "for the group not being a corporation" do
+        before { @group = create(:group) }
+        it { should == false }
+      end
+      describe "for the group being a child of a corporation" do
+        before do
+          @group = create(:group)
+          @group.parent_groups << create(:corporation)
+        end
+        it { should == false }
+      end
+    end
+    
+    describe '#leaf_groups' do
+      subject { @group.leaf_groups }
+      describe 'for the group being a corporation' do
+        before { @group = create(:corporation) }
+        it { should == [] }
+      end
+      describe 'for the group being a corporation with status groups' do
+        before do
+          @group = create(:corporation_with_status_groups)
+          @status_groups = @group.status_groups
+        end
+        it { should == @status_groups }
+      end
+      describe 'for the group being a corporation with admin, normal and status groups' do
+        before do
+        @group = create(:corporation)
+        @group.find_or_create_admins_parent_group
+        @status_1 = @group.child_groups.create
+        @group_a = @group.child_groups.create
+        @status_2 = @group_a.child_groups.create
+        @group_b = @group.child_groups.create
+        @status_3 = @group_b.child_groups.create
+        end
+        it 'should contain all status groups' do 
+          should include(@status_1)
+          should include(@status_2)
+          should include(@status_3)
+          should_not include(@group_a)
+          should_not include(@group_b)
+          should_not include(@group.admins_parent)
+        end
+      end
+    end
+
+    describe '#cached(:leaf_groups)' do
+      subject { @group.reload.cached(:leaf_groups) }
+      describe 'for the group being a corporation' do
+        before do
+          @group = create(:corporation)
+          @group.cached(:leaf_groups)
+        end
+        it { should == @group.leaf_groups }
+      end
+      describe 'for the group being a corporation with status groups' do
+        before do
+          @group = create(:corporation_with_status_groups)
+          @group.cached(:leaf_groups)
+        end
+        it { should == @group.cached(:leaf_groups) }
+      end
+      describe 'for the group being a corporation with admin groups' do
+        before do
+          @group = create(:corporation)
+          @group.cached(:leaf_groups)
+          @group.find_or_create_admins_parent_group
+        end
+        it { should == @group.leaf_groups }
+      end
+      describe 'for the group being a corporation with normal and status groups' do
+        before do
+          @group = create(:corporation)
+          @group.cached(:leaf_groups)
+          wait_for_cache
+          
+          # The creation of this group structure should reset the cache.
+          @status_1 = @group.child_groups.create
+          @group_a = @group.child_groups.create
+          @status_2 = @group_a.child_groups.create
+          @group_b = @group.child_groups.create
+          @status_3 = @group_b.child_groups.create
+        end
+        it { should == @group.leaf_groups }
+      end
+    end
+  end
+
+
+  # Adding objects
+  # --------------
+
+  describe "#<<" do
+    before { @group = create(:group) }
+    subject { @group << @object_to_add }
+    
+    describe "(user)" do
+      before do
+        @user = create(:user)
+        @object_to_add = @user
+      end
+      it "should add the user as a child user" do
+        @group.child_users.should_not include @user
+        subject
+        @group.reload.child_users.should include @user
+      end
+      it "should set the valid_from attribute on the membership" do
+        subject
+        UserGroupMembership.with_invalid.find_by_user_and_group(@user, @group).valid_from.should > 1.second.ago
+      end
+    end
+    
+    describe "(group)" do
+      before do
+        @subgroup = create(:group)
+        @object_to_add = @subgroup
+      end
+      it "should add the group as a subgroup" do
+        @group.child_groups.should_not include @subgroup
+        subject
+        @group.child_groups.should include @subgroup
+      end
+    end
+  end
+
+end

data/spec/models/list_export_spec.rb

@@ -0,0 +1,155 @@
+require 'spec_helper'
+
+describe ListExport do
+  
+  before do
+    @group = create :group
+    @corporation = create :corporation_with_status_groups
+    @user = create :user
+    @group.assign_user @user
+    @corporation.status_groups.first.assign_user @user  # in order to give the @user a #title other than his #name.
+    @user_title_without_name = @user.title.gsub(@user.name, '').strip
+    @user_title_without_name = '""' if @user_title_without_name.blank? # to match the csv format
+  end
+  
+  describe "birthday_list: " do
+    before do
+      @user.date_of_birth = "1925-09-28".to_date
+      @user.save
+      @next_birthday = @user.date_of_birth.change(:year => Time.zone.now.year)
+      
+      @list_export = ListExport.new(@group.members, :birthday_list)
+    end
+    describe "#headers" do
+      subject { @list_export.headers }
+      it { should include 'Nachname', 'Vorname', 'Namenszusatz', 'Diesjähriger Geburtstag', 'Geburtsdatum', 'Aktuelles Alter' }
+    end
+    describe "#to_csv" do
+      subject { @list_export.to_csv }
+      it { should include "Nachname;Vorname;Namenszusatz;Diesjähriger Geburtstag;Geburtsdatum;Aktuelles Alter" }
+      it { should include "#{@user.last_name};#{@user.first_name};#{@user_title_without_name};#{I18n.localize(@next_birthday)};#{I18n.localize(@user.date_of_birth)};#{@user.age}" }
+    end
+  end
+  
+  describe "address_list: " do
+    before do
+      @address1 = @user.profile_fields.create(type: 'ProfileFieldTypes::Address', value: "Pariser Platz 1\n 10117 Berlin")
+      @address1.update_column(:updated_at, "2014-06-20".to_datetime)
+      @name_surrounding = @user.profile_fields.create(type: 'ProfileFieldTypes::NameSurrounding').becomes(ProfileFieldTypes::NameSurrounding)
+      @name_surrounding.name_prefix = "Dr."
+      @name_surrounding.name_suffix = "M.Sc."
+      @name_surrounding.text_above_name = "Herrn"
+      @name_surrounding.text_below_name = ""
+      @name_surrounding.save
+      @user.save
+      
+      @list_export = ListExport.new(@group.members, :address_list)
+    end
+    describe "#headers" do
+      subject { @list_export.headers }
+      it { should include('Nachname', 'Vorname', 'Namenszusatz', 'Postanschrift mit Name', 'Postanschrift', 
+        'Letzte Änderung der Postanschrift am', 'Postleitzahl (PLZ)', 'Stadt', 'Land', 'Länder-Kennzeichen', 'Persönlicher Titel',
+        'Zeile über dem Namen', 'Zeile unter dem Namen', 'Text vor dem Namen', 'Text hinter dem Namen')
+      }
+    end
+    describe "#to_csv" do
+      subject { @list_export.to_csv }
+      it { should include "Nachname;Vorname;Namenszusatz;Postanschrift mit Name;Postanschrift;Letzte Änderung der Postanschrift am;Postleitzahl (PLZ);Stadt;Land;Länder-Kennzeichen;Persönlicher Titel;Zeile über dem Namen;Zeile unter dem Namen;Text vor dem Namen;Text hinter dem Namen" }
+      it { should include "#{@user.last_name};#{@user.first_name};#{@user_title_without_name};\"Herrn\nDr. #{@user.name} M.Sc.\n#{@corporation.name}\nPariser Platz 1\n10117 Berlin\";\"#{@user.postal_address}\";20.06.2014;10117;Berlin;Germany;DE;;Herrn;\"\";Dr.;M.Sc." }
+    end
+  end
+  
+  describe "#phone_list: " do
+    before do
+      @phone_field = @user.profile_fields.create(label: 'Phone', type: 'ProfileFieldTypes::Phone', value: '123456').becomes(ProfileFieldTypes::Phone)
+      @fax_field = @user.profile_fields.create(label: 'Fax', type: 'ProfileFieldTypes::Phone', value: '123457').becomes(ProfileFieldTypes::Phone)
+      @mobile_field = @user.profile_fields.create(label: 'Mobile', type: 'ProfileFieldTypes::Phone', value: '01234').becomes(ProfileFieldTypes::Phone)
+      @user.reload
+      
+      @list_export = ListExport.new(@group.members, :phone_list)
+    end
+    describe "#headers" do
+      subject { @list_export.headers }
+      it { should == ['Nachname', 'Vorname', 'Namenszusatz', 'Beschriftung', 'Telefonnummer'] }
+    end
+    describe "#to_csv" do
+      subject { @list_export.to_csv }
+      it { should ==
+        "Nachname;Vorname;Namenszusatz;Beschriftung;Telefonnummer\n" + 
+        "#{@user.last_name};#{@user.first_name};#{@user_title_without_name};Phone;123456\n" +
+        "#{@user.last_name};#{@user.first_name};#{@user_title_without_name};Mobile;01234\n"
+      }
+    end
+  end
+  
+  describe "email list: " do
+    before do
+      @user.profile_fields.where(type: 'ProfileFieldTypes::Email').each { |field| field.destroy }
+      @email_field_1 = @user.profile_fields.create(label: 'Email', type: 'ProfileFieldTypes::Email', value: 'foo@example.com').becomes(ProfileFieldTypes::Email)
+      @email_field_2 = @user.profile_fields.create(label: 'Work Email', type: 'ProfileFieldTypes::Email', value: 'bar@example.com').becomes(ProfileFieldTypes::Email)
+      @user.reload
+      
+      @list_export = ListExport.new(@group.members, :email_list)
+    end
+    describe "#headers" do
+      subject { @list_export.headers }
+      it { should include 'Nachname', 'Vorname', 'Namenszusatz', 'Beschriftung', 'E-Mail-Adresse' }
+    end
+    describe "#to_csv" do
+      subject { @list_export.to_csv }
+      it { should ==
+        "Nachname;Vorname;Namenszusatz;Beschriftung;E-Mail-Adresse\n" + 
+        "#{@user.last_name};#{@user.first_name};#{@user_title_without_name};Email;foo@example.com\n" +
+        "#{@user.last_name};#{@user.first_name};#{@user_title_without_name};Work Email;bar@example.com\n"
+      }
+    end
+  end
+  
+  describe "member_development: " do
+    before do
+      @user.direct_memberships.destroy_all
+      @corporation = create :corporation_with_status_groups
+      @status_group_names = @corporation.status_groups.collect { |group| group.name }
+      @date1 = "2006-12-01".to_datetime
+      @date2 = "2007-02-02".to_datetime
+      @date3 = "2008-04-01".to_datetime
+      @membership1 = @corporation.status_groups[0].assign_user @user, at: @date1
+      @membership2 = @membership1.move_to @corporation.status_groups[1], at: @date2
+      @membership3 = @membership2.move_to @corporation.status_groups[2], at: @date3
+      @user.reload
+      @user_title_without_name = @user.title.gsub(@user.name, '').strip
+      @user_title_without_name = '""' if @user_title_without_name.blank? # to match the csv format
+      
+      @list_export = ListExport.new(@corporation, :member_development)
+    end
+    describe "#headers" do
+      subject { @list_export.headers }
+      it { should include 'Nachname', 'Vorname', 'Namenszusatz', 'Geburtsdatum', 'Verstorben am', *@status_group_names }
+    end
+    describe "#to_csv" do
+      subject { @list_export.to_csv }
+      it { should ==
+        "Nachname;Vorname;Namenszusatz;Geburtsdatum;Verstorben am;Member Status 1;Member Status 2;Member Status 3\n" + 
+        "#{@user.last_name};#{@user.first_name};#{@user_title_without_name};;;01.12.2006;02.02.2007;01.04.2008\n"
+      }
+    end
+  end
+  
+  describe "name_list: " do
+    before do
+      @user.profile_fields.create(type: 'ProfileFieldTypes::AcademicDegree', value: "Dr. rer. nat.", label: :academic_degree)
+      @user.profile_fields.create(type: 'ProfileFieldTypes::General', value: "Dr.", label: :personal_title)
+      
+      @list_export = ListExport.new(@group.members, :name_list)
+    end
+    describe "#headers" do
+      subject { @list_export.headers }
+      it { should include 'Nachname', 'Vorname', 'Namenszusatz', 'Persönlicher Titel', 'Akademischer Grad' }
+    end
+    describe "#to_csv" do
+      subject { @list_export.to_csv }
+      it { should include "Nachname;Vorname;Namenszusatz;Persönlicher Titel;Akademischer Grad" }
+      it { should include "#{@user.last_name};#{@user.first_name};#{@user_title_without_name};Dr.;Dr. rer. nat." }
+    end
+  end
+end