specify_cli 0.0.5

data/spec/helpers.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+require 'English'
+
+# RSpec helpers
+module Helpers
+  def set_branch
+    branch = `git branch --list #{TEST_BRANCH}`.chomp
+    `git branch #{TEST_BRANCH}` if branch.empty?
+    system("git checkout #{TEST_BRANCH}")
+    e = "Error checking out #{TEST_BRANCH}
+         there are probably uncommited changes on #{@origin}"
+    raise e unless $CHILD_STATUS == 0
+  end
+end

data/spec/models/app_resource_data_spec.rb

@@ -0,0 +1,38 @@
+# frozen_string_literal: true
+
+module Specify
+  module Model
+    RSpec.describe AppResourceData do
+      let :file do
+        Pathname.new(Dir.pwd).join('spec', 'support',
+                                   'viewsets', 'paleo.views.xml')
+      end
+
+      let :app_resource_data do
+        Collection.first(CollectionName: 'Test Collection')
+                  .view_set.app_resource_data
+      end
+
+      context 'when uploading a file' do
+        it 'increments the version number' do
+          v = app_resource_data.Version
+          expect { app_resource_data.import(file) }
+            .to change { app_resource_data.Version }
+              .from(v).to(v + 1)
+        end
+
+        it 'updates the modification timestamp' do
+          expect { app_resource_data.import(file) }
+            .to change(app_resource_data, :TimestampModified)
+        end
+
+        it 'uploads the files content as a Sequel Blob' do
+          app_resource_data.data = nil
+          expect { app_resource_data.import(file) }
+            .to change { app_resource_data.data }
+              .from(nil).to(Sequel.blob(File.read(file)))
+        end
+      end
+    end
+  end
+end

data/spec/models/app_resource_dir_spec.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+module Specify
+  module Model
+    RSpec.describe AppResourceDir do
+    end
+  end
+end

data/spec/models/auto_numbering_scheme_spec.rb

@@ -0,0 +1,78 @@
+# frozen_string_literal: true
+
+module Specify
+  module Model
+    RSpec.describe AutoNumberingScheme do
+      # FIXME: move to shared context
+      before :all do
+        cataloger =  Agent.first(FirstName: 'John', LastName: 'Specman')
+        collection_a = Collection.first Code: 'SIP'
+        collection_b = Collection.first Code: 'NECE'
+
+        collection_a.add_collection_object(cataloger: cataloger,
+                                           CatalogNumber: '000000011')
+        collection_a.add_collection_object(cataloger: cataloger,
+                                           CatalogNumber: '000000012')
+        collection_b.add_collection_object(cataloger: cataloger,
+                                           CatalogNumber: '000000013')
+      end
+
+      let :auto_numbering_scheme do
+        Collection.first(CollectionName: 'Test Collection')
+                  .auto_numbering_scheme
+      end
+
+      describe '#catalog_number?' do
+        context 'when the scheme is a catalog number' do
+        	subject { auto_numbering_scheme.catalog_number? }
+
+        	it { is_expected.to be true }
+        end
+      end
+
+      describe '#increment' do
+      	subject { auto_numbering_scheme.increment }
+
+      	it { is_expected.to eq '000000014' }
+      end
+
+      describe '#max' do
+        subject { auto_numbering_scheme.max }
+
+        it { is_expected.to eq '000000013' }
+      end
+
+      describe '#number_format' do
+        context 'when the scheme is a numeric catalog number format' do
+          subject { auto_numbering_scheme.number_format }
+
+          it do
+            is_expected.to have_attributes incrementer_length: 9
+          end
+        end
+      end
+
+      describe '#scheme_model' do
+      	context 'when the scheme is defined for collection objects' do
+      		subject { auto_numbering_scheme.scheme_model }
+
+      		it { is_expected.to be CollectionObject }
+      	end
+      end
+
+      describe '#scheme_type' do
+      	context 'when the scheme is a catalog number' do
+      		subject { auto_numbering_scheme.scheme_type }
+
+      		it { is_expected.to be :catalog_number }
+      	end
+      end
+
+      # FIXME: move to shared context
+      after :all do
+      	CollectionObject.dataset.delete
+      	CollectingEvent.dataset.delete
+      end
+    end
+  end
+end

data/spec/models/collection_object_spec.rb

@@ -0,0 +1,92 @@
+# frozen_string_literal: true
+
+module Specify
+  module Model
+    RSpec.describe CollectionObject do
+      # FIXME: move to shared context
+      before :all do
+        cataloger =  Agent.first(FirstName: 'John', LastName: 'Specman')
+        collection_a = Collection.first Code: 'SIP'
+        collection_b = Collection.first Code: 'NECE'
+
+        collection_a.add_collection_object(cataloger: cataloger,
+                                           CatalogNumber: '000000011')
+        collection_a.add_collection_object(cataloger: cataloger,
+                                           CatalogNumber: '000000012')
+        collection_b.add_collection_object(cataloger: cataloger,
+                                           CatalogNumber: '000000013')
+      end
+
+      let :collection do
+        Collection.first CollectionName: 'Test Collection'
+      end
+
+      context 'when adding to collection' do
+        let :cataloger do
+          Agent.first(FirstName: 'John', LastName: 'Specman')
+        end
+
+        context 'when passing the catalog number' do
+          subject do
+            collection.add_collection_object(cataloger: cataloger,
+                                             CatalogNumber: '000000009')
+          end
+
+          it do
+            is_expected.to have_attributes Version: 0,
+                                           TimestampCreated: an_instance_of(Time),
+                                           collection_member: collection,
+                                           CatalogedDate: an_instance_of(Date),
+                                           CatalogedDatePrecision: 1,
+                                           GUID: an_instance_of(String),
+                                           CatalogNumber: '000000009'
+          end
+        end
+
+        context 'when passing no catalog number' do
+          subject do
+            collection.add_collection_object(cataloger: cataloger)
+          end
+
+          it do
+            is_expected.to have_attributes Version: 0,
+                                           TimestampCreated: an_instance_of(Time),
+                                           collection_member: collection,
+                                           CatalogedDate: an_instance_of(Date),
+                                           CatalogedDatePrecision: 1,
+                                           GUID: an_instance_of(String),
+                                           CatalogNumber: '000000014'
+          end
+        end
+
+      	context 'when collecting event is emebedded' do
+          subject do
+            collection.add_collection_object(cataloger: cataloger)
+          end
+
+      		it do
+      		  ce = an_instance_of(CollectingEvent)
+      			is_expected.to have_attributes collecting_event: ce
+      		end
+      	end
+
+      	context 'when collecting event is not embedded' do
+          subject do
+          	Collection.first(Code: 'NECE')
+          	          .add_collection_object(CatalogNumber: '2')
+          end
+
+          it do
+            is_expected.to have_attributes collecting_event: nil
+          end
+      	end
+      end
+
+      # FIXME: move to shared context
+      after :all do
+      	CollectionObject.dataset.delete
+      	CollectingEvent.dataset.delete
+      end
+    end
+  end
+end

data/spec/models/collection_spec.rb

@@ -0,0 +1,32 @@
+# frozen_string_literal: true
+
+module Specify
+  module Model
+    RSpec.describe Collection do
+      let :collection do
+        described_class.first CollectionName: 'Test Collection'
+      end
+
+      describe '#view_set_dir' do
+        subject { collection.view_set_dir }
+
+        it do
+          is_expected
+            .to have_attributes DisciplineType: 'Invertebrate Paleontology',
+                                IsPersonal: false,
+                                UserType: nil,
+                                collection: collection,
+                                discipline: collection.discipline
+        end
+      end
+
+      describe '#view_set' do
+      	subject { collection.view_set }
+
+        it do
+          is_expected.to have_attributes Name: 'paleo.views'
+        end
+      end
+    end
+  end
+end

data/spec/models/discipline_spec.rb

@@ -0,0 +1,31 @@
+# frozen_string_literal: true
+
+module Specify
+  module Model
+    RSpec.describe Discipline do
+      let :discipline do
+        described_class.first Name: 'Test Discipline'
+      end
+
+      describe '#view_set_dir' do
+        subject { discipline.view_set_dir }
+
+        it do
+          is_expected
+            .to have_attributes DisciplineType: 'Invertebrate Paleontology',
+                                IsPersonal: false,
+                                UserType: nil,
+                                collection: nil
+        end
+      end
+
+      describe '#view_set' do
+        subject { discipline.view_set }
+
+        it 'returns the ViewSetObject for the given collection' do
+          is_expected.to have_attributes Name: 'Paleo Views'
+        end
+      end
+    end
+  end
+end

data/spec/models/record_set_spec.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+
+module Specify
+  module Model
+    RSpec.describe RecordSet do
+      subject do
+        described_class.create Name: 'Test Record Set',
+                               user: user,
+                               collection: collection
+      end
+
+      let(:collection) { Collection.first Code: 'SIP' }
+      let(:user) { User.first Name: 'specuser' }
+
+      it { p subject.highest_order_number }
+    end
+  end
+end

data/spec/models/user_spec.rb

@@ -0,0 +1,182 @@
+# frozen_string_literal: true
+
+module Specify
+  module Model
+    RSpec.describe User do
+      let(:collection) { Collection.first CollectionName: 'Test Collection' }
+      let(:user) { described_class.first Name: 'specuser' }
+
+      describe '#collection_valid?' do
+        before { user.log_out }
+
+        context 'when logged in to the collection passed as argument' do
+          subject { user.collection_valid? collection }
+
+          before { user.log_in collection }
+
+          it { is_expected.to be_truthy }
+        end
+
+        context 'when logged in to another collection' do
+          subject { user.collection_valid? collection }
+
+          before { user.log_in(Collection.first(Code: 'NECE')) }
+
+          it { is_expected.to be_falsey }
+        end
+      end
+
+      describe '#log_in' do
+        context 'when not logged in' do
+          before { user.log_out }
+
+          it do
+            just_before = Time.now
+            expect(user.log_in(collection))
+              .to include collection => a_value >= just_before
+          end
+
+          it do
+            just_before = Time.now
+            expect { user.log_in(collection) }
+              .to change(user, :values)
+              .from(including(IsLoggedIn: false,
+                              LoginCollectionName: nil,
+                              LoginDisciplineName: nil,
+                              LoginOutTime: a_value <= just_before))
+              .to(including(IsLoggedIn: true,
+                            LoginCollectionName: collection[:CollectionName],
+                            LoginDisciplineName: collection.discipline[:Name],
+                            LoginOutTime: a_value >= just_before))
+          end
+        end
+
+        context 'when already logged in' do
+          before { user.log_in(collection) }
+
+          it do
+            just_before = Time.now
+            expect(user.log_in(collection))
+              .to include collection => a_value <= just_before
+          end
+
+          it do
+            expect { user.log_in(collection) }
+              .not_to change(user, :values)
+          end
+        end
+
+        context 'when already logged in to a different collection' do
+          before { user.log_in(Collection.first(Code: 'NECE')) }
+
+          it do
+            expect { user.log_in collection }
+              .to raise_error LoginError::INCONSISTENT_LOGIN
+          end
+        end
+      end
+
+      describe '#log_out' do
+        before { user.log_in collection }
+
+        it do
+          just_before = Time.now
+          expect(user.log_out)
+            .to be >= just_before
+        end
+
+        it do
+          just_before = Time.now
+          expect { user.log_out }
+            .to change(user, :values)
+            .from(including(IsLoggedIn: true,
+                            LoginCollectionName: collection[:CollectionName],
+                            LoginDisciplineName: collection.discipline[:Name],
+                            LoginOutTime: a_value <= just_before))
+            .to(including(IsLoggedIn: false,
+                          LoginCollectionName: nil,
+                          LoginDisciplineName: nil,
+                          LoginOutTime: a_value >= just_before))
+        end
+      end
+
+      describe '#logged_in?' do
+        before { user.log_out }
+
+        context 'when logged in to the collection passed as argument' do
+          subject { user.logged_in? collection }
+
+          before { user.log_in collection }
+
+          it { is_expected.to include collection => a_value <= Time.now }
+        end
+
+        context 'when logged in to another collection' do
+          before { user.log_in(Collection.first(Code: 'NECE')) }
+
+          it do
+            expect { user.log_in collection }
+              .to raise_error LoginError::INCONSISTENT_LOGIN
+          end
+        end
+      end
+
+      describe '#logged_in_agent' do
+        subject { user.logged_in_agent }
+
+        before { user.log_in collection }
+
+        it do
+          is_expected
+            .to have_attributes FirstName: 'John', LastName: 'Doe'
+        end
+      end
+
+      describe '#new_login' do
+        before { user.log_out }
+
+        it do
+          just_before = Time.now
+          expect(user.new_login(collection))
+            .to include collection => a_value >= just_before
+        end
+
+        it do
+          just_before = Time.now
+          expect { user.new_login(collection) }
+            .to change(user, :values)
+            .from(including(IsLoggedIn: false,
+                            LoginCollectionName: nil,
+                            LoginDisciplineName: nil,
+                            LoginOutTime: a_value <= just_before))
+            .to(including(IsLoggedIn: true,
+                          LoginCollectionName: collection[:CollectionName],
+                          LoginDisciplineName: collection.discipline[:Name],
+                          LoginOutTime: a_value >= just_before))
+        end
+      end
+
+      describe '#view_set_dir' do
+        subject { user.view_set_dir(collection) }
+
+        it do
+          is_expected
+            .to have_attributes DisciplineType: 'Invertebrate Paleontology',
+                                IsPersonal: true,
+                                UserType: 'manager',
+                                collection: collection,
+                                user: user,
+                                discipline: collection.discipline
+        end
+      end
+
+      describe '#view_set' do
+        subject { user.view_set(collection) }
+
+        it do
+          is_expected.to have_attributes Name: 'paleo.views'
+        end
+      end
+    end
+  end
+end