ccls-ccls_engine 3.11.0

data/test/unit/ccls/follow_up_test.rb

@@ -0,0 +1,23 @@
+require 'test_helper'
+
+class Ccls::FollowUpTest < ActiveSupport::TestCase
+
+	assert_should_create_default_object
+	assert_should_initially_belong_to(
+		:section,
+		:enrollment,
+		:follow_up_type)
+
+	test "explicit Factory follow_up test" do
+		assert_difference('FollowUpType.count',1) {
+		assert_difference('Enrollment.count',2) {	#	again, creates subject, which creates ccls enrollment
+		assert_difference('Section.count',1) {
+		assert_difference('FollowUp.count',1) {
+			follow_up = Factory(:follow_up)
+			assert_not_nil follow_up.section
+			assert_not_nil follow_up.enrollment
+			assert_not_nil follow_up.follow_up_type
+		} } } }
+	end
+
+end

data/test/unit/ccls/follow_up_type_test.rb

@@ -0,0 +1,34 @@
+require 'test_helper'
+
+class Ccls::FollowUpTypeTest < ActiveSupport::TestCase
+
+	assert_should_behave_like_a_hash
+
+	assert_should_create_default_object
+	assert_should_act_as_list
+	assert_should_have_many(:follow_ups)
+	assert_should_not_require_attributes( :position )
+#	assert_should_require_attribute_length( :event_category, :in => 4..250 )
+
+	test "explicit Factory follow_up_type test" do
+		assert_difference('FollowUpType.count',1) {
+			follow_up_type = Factory(:follow_up_type)
+			assert_match /Key\d*/, follow_up_type.key
+			assert_match /Desc\d*/, follow_up_type.description
+		}
+	end
+
+	test "should return description as to_s" do
+		follow_up_type = create_follow_up_type
+		assert_equal follow_up_type.description, "#{follow_up_type}"
+	end
+
+#protected
+#
+#	def create_follow_up_type(options={})
+#		follow_up_type = Factory.build(:follow_up_type,options)
+#		follow_up_type.save
+#		follow_up_type
+#	end
+
+end

data/test/unit/ccls/gift_card_search_test.rb

@@ -0,0 +1,153 @@
+require 'test_helper'
+
+class Ccls::GiftCardSearchTest < ActiveSupport::TestCase
+
+#	test "should return GiftCardSearch" do
+#		assert GiftCardSearch().is_a?(GiftCardSearch)
+#	end 
+
+	test "should respond to search" do
+		assert GiftCard.respond_to?(:search)
+	end
+
+	test "should return Array" do
+		gift_cards = GiftCard.search()
+		assert gift_cards.is_a?(Array)
+	end
+
+	test "should include gift_card" do
+		gift_card = create_gift_card
+		#	there are already about 40 in the fixtures
+		#	so we need to get more than that to include the last one.
+		gift_cards = GiftCard.search(:per_page => 50)
+		assert gift_cards.include?(gift_card)
+	end
+
+	test "should include gift_card without pagination" do
+		gift_card = create_gift_card
+		gift_cards = GiftCard.search(:paginate => false)
+		assert gift_cards.include?(gift_card)
+	end
+
+	test "should NOT order by bogus column with dir" do
+		GiftCard.destroy_all
+		g1,g2,g3 = create_gift_cards(3)
+		gift_cards = GiftCard.search(
+			:order => 'whatever', :dir => 'asc')
+		assert_equal [g1,g2,g3], gift_cards
+	end
+
+	test "should NOT order by bogus column" do
+		GiftCard.destroy_all
+		g1,g2,g3 = create_gift_cards(3)
+		gift_cards = GiftCard.search(:order => 'whatever')
+		assert_equal [g1,g2,g3], gift_cards
+	end
+
+	test "should order by id asc by default" do
+		GiftCard.destroy_all
+		g1,g2,g3 = create_gift_cards_with_childids(9,3,6)
+		gift_cards = GiftCard.search(
+			:order => 'id')
+		assert_equal [g1,g2,g3], gift_cards
+	end
+
+	test "should order by id asc" do
+		GiftCard.destroy_all
+		g1,g2,g3 = create_gift_cards_with_childids(9,3,6)
+		gift_cards = GiftCard.search(
+			:order => 'id', :dir => 'asc')
+		assert_equal [g1,g2,g3], gift_cards
+	end
+
+	test "should order by id desc" do
+		GiftCard.destroy_all
+		g1,g2,g3 = create_gift_cards_with_childids(9,3,6)
+		gift_cards = GiftCard.search(
+			:order => 'id', :dir => 'desc')
+		assert_equal [g3,g2,g1], gift_cards
+	end
+
+	test "should include gift_card by q first_name" do
+		g1,g2 = create_gift_cards_with_first_names('Michael','Bob')
+		gift_cards = GiftCard.search(:q => 'mi ch ha')
+		assert  gift_cards.include?(g1)
+		assert !gift_cards.include?(g2)
+	end
+
+	test "should include gift_card by q last_name" do
+		g1,g2 = create_gift_cards_with_last_names('Michael','Bob')
+		gift_cards = GiftCard.search(:q => 'cha ael')
+		assert  gift_cards.include?(g1)
+		assert !gift_cards.include?(g2)
+	end
+
+	test "should include gift_card by q childid" do
+		g1,g2 = create_gift_cards_with_childids(999999,'1')
+		assert_equal 999999, g1.study_subject.childid
+		gift_cards = GiftCard.search(:q => g1.study_subject.childid)
+		assert  gift_cards.include?(g1)
+		assert !gift_cards.include?(g2)
+	end
+
+	test "should include gift_card by q patid" do
+		g1,g2 = create_gift_cards_with_patids(999999,'1')
+		gift_cards = GiftCard.search(:q => g1.study_subject.patid)
+		assert  gift_cards.include?(g1)
+		assert !gift_cards.include?(g2)
+	end
+
+	test "should include gift_card by q number" do
+		g1,g2 = create_gift_cards_with_numbers('9999','1111')
+		gift_cards = GiftCard.search(:q => g1.number)
+		assert  gift_cards.include?(g1)
+		assert !gift_cards.include?(g2)
+	end
+
+protected
+
+	def create_gift_card(options={})
+		gift_card = Factory.build(:gift_card,options)
+		gift_card.save
+		gift_card
+	end
+
+	def create_gift_cards(count=0,options={})
+		gift_cards = []
+		count.times{ gift_cards.push(create_gift_card(options)) }
+		return gift_cards
+	end
+
+	def create_gift_card_with_first_name(first_name)
+		study_subject = create_study_subject_with_first_name(first_name)
+		gift_card = create_gift_card
+		study_subject.gift_cards << gift_card
+		gift_card
+	end
+	
+	def create_gift_card_with_last_name(last_name)
+		study_subject = create_study_subject_with_last_name(last_name)
+		gift_card = create_gift_card
+		study_subject.gift_cards << gift_card
+		gift_card
+	end
+	
+	def create_gift_card_with_childid(childid)
+		study_subject = create_study_subject_with_childid(childid)
+		gift_card = create_gift_card
+		study_subject.gift_cards << gift_card
+		gift_card
+	end
+	
+	def create_gift_card_with_patid(patid)
+		study_subject = create_study_subject_with_patid(patid)
+		gift_card = create_gift_card
+		study_subject.gift_cards << gift_card
+		gift_card
+	end
+	
+	def create_gift_card_with_number(number)
+		create_gift_card(:number => number)
+	end
+
+end

data/test/unit/ccls/gift_card_test.rb

@@ -0,0 +1,40 @@
+require 'test_helper'
+
+class Ccls::GiftCardTest < ActiveSupport::TestCase
+
+	assert_should_create_default_object
+	assert_should_belong_to(:study_subject, :project)
+	assert_should_protect( :study_subject_id, :study_subject )
+	assert_should_require_attributes(:number)
+	assert_should_require_unique_attributes(:number)
+	assert_should_not_require_attributes( :study_subject_id,
+		:project_id,
+		:issued_on,
+		:expiration,
+		:vendor )
+	assert_should_require_attribute_length( :expiration,
+		:vendor,
+		:number, 
+			:maximum => 250 )
+
+	test "explicit Factory gift_card test" do
+		assert_difference('GiftCard.count',1) {
+			gift_card = Factory(:gift_card)
+			assert_match /\d*/, gift_card.number
+		}
+	end
+
+	test "should return number as to_s" do
+		gift_card = create_gift_card
+		assert_equal gift_card.number, "#{gift_card}"
+	end
+
+#protected
+#
+#	def create_gift_card(options={})
+#		gift_card = Factory.build(:gift_card,options)
+#		gift_card.save
+#		gift_card
+#	end
+
+end

data/test/unit/ccls/home_exposure_response_test.rb

@@ -0,0 +1,83 @@
+require 'test_helper'
+
+class Ccls::HomeExposureResponseTest < ActiveSupport::TestCase
+
+	assert_should_create_default_object
+	assert_should_initially_belong_to(:study_subject)
+	assert_should_protect( :study_subject_id, :study_subject )
+	assert_should_require_attribute_length( :additional_comments, :maximum => 65000 )
+
+#	not working
+#	assert_should_require_unique_attribute(:study_subject_id)
+
+	test "explicit Factory home_exposure_response test" do
+		assert_difference('StudySubject.count',1) {
+		assert_difference('HomeExposureResponse.count',1) {
+			home_exposure_response = Factory(:home_exposure_response)
+			assert_not_nil home_exposure_response.study_subject
+		} }
+	end
+
+#	test "should require study_subject" do
+#		assert_difference( "HomeExposureResponse.count", 0 ) do
+#			home_exposure_response = create_home_exposure_response( :study_subject => nil)
+#			assert !home_exposure_response.errors.on(:study_subject)
+#			assert  home_exposure_response.errors.on_attr_and_type?(:study_subject_id, :blank)
+#		end
+#	end
+#
+#	test "should require valid study_subject" do
+#		assert_difference( "HomeExposureResponse.count", 0 ) do
+#			home_exposure_response = create_home_exposure_response( :study_subject_id => 0)
+#			assert !home_exposure_response.errors.on(:study_subject_id)
+#			assert  home_exposure_response.errors.on_attr_and_type?(:study_subject,:blank)
+#		end
+#	end
+
+	test "should require unique study_subject_id" do
+		o = create_home_exposure_response
+		assert_no_difference "HomeExposureResponse.count" do
+			home_exposure_response = create_home_exposure_response(
+				:study_subject => o.study_subject)
+			assert home_exposure_response.errors.on_attr_and_type?(:study_subject_id, :taken)
+		end
+	end
+
+	test "should return array of fields" do
+		fields = HomeExposureResponse.fields
+		assert fields.is_a?(Array)
+		assert fields.length > 100
+		assert fields.first.is_a?(Hash)
+	end
+
+	test "should return array of db_field_names" do
+		db_field_names = HomeExposureResponse.db_field_names
+		assert db_field_names.is_a?(Array)
+		assert db_field_names.length > 100
+		assert db_field_names.first.is_a?(String)
+	end
+
+#	test "should return array of field_names" do
+#		field_names = HomeExposureResponse.field_names
+#		assert field_names.is_a?(Array)
+#		assert field_names.length > 100
+#	end
+
+#	temporary? It's been here a while.
+#	test "should return the same array for field_names and db_field_names" do
+#		db_field_names = HomeExposureResponse.db_field_names
+#		field_names = HomeExposureResponse.field_names
+#		assert_equal field_names, db_field_names
+#	end
+
+	assert_should_not_require_attributes( *HomeExposureResponse.db_field_names )
+
+#protected
+#
+#	def create_home_exposure_response(options={})
+#		home_exposure_response = Factory.build(:home_exposure_response,options)
+#		home_exposure_response.save
+#		home_exposure_response
+#	end
+
+end

data/test/unit/ccls/homex_outcome_test.rb

@@ -0,0 +1,199 @@
+require 'test_helper'
+
+class Ccls::HomexOutcomeTest < ActiveSupport::TestCase
+
+	assert_should_create_default_object
+	assert_should_act_as_list
+	assert_should_belong_to( 
+		:study_subject, 
+		:sample_outcome, 
+		:interview_outcome )
+	assert_should_protect( :study_subject_id, :study_subject )
+	assert_requires_complete_date( 
+		:interview_outcome_on, 
+		:sample_outcome_on )
+	assert_should_not_require_attributes( 
+		:position,
+		:study_subject_id,
+		:sample_outcome_id,
+		:sample_outcome_on,
+		:interview_outcome_id,
+		:interview_outcome_on )
+
+#	TODO Need to add something to allow_nil => true
+#	assert_should_require_unique_attribute(:study_subject_id)
+
+	test "explicit Factory homex_outcome test" do
+		assert_difference('HomexOutcome.count',1) {
+			homex_outcome = Factory(:homex_outcome)
+			assert_nil     homex_outcome.sample_outcome
+			assert_not_nil homex_outcome.sample_outcome_on	#	because of SampleOutcome test
+			assert_nil     homex_outcome.interview_outcome
+			assert_not_nil homex_outcome.interview_outcome_on	#	because of InterviewOutcome test
+		}
+	end
+
+	#
+	#	study_subject uses accepts_attributes_for :pii
+	#	so the pii can't require study_subject_id on create
+	#	or this test fails.
+	#
+#	test "should require study_subject_id on update" do
+#		assert_difference( "HomexOutcome.count", 1 ) do
+#			homex_outcome = create_homex_outcome
+#			homex_outcome.reload.update_attributes(:updated_at => Time.now)
+#			assert !homex_outcome.errors.on(:study_subject)
+#			assert  homex_outcome.errors.on_attr_and_type?(:study_subject_id,:blank)
+#		end
+#	end
+
+# validate on foreign key rather than association so error shows up correctly in view.
+#	test "should require valid study_subject" do
+#	end
+
+	test "should require unique study_subject_id" do
+		study_subject = Factory(:study_subject)
+		create_homex_outcome(:study_subject => study_subject)
+		assert_difference( "HomexOutcome.count", 0 ) do
+			homex_outcome = create_homex_outcome(:study_subject => study_subject)
+			assert homex_outcome.errors.on(:study_subject_id)
+		end
+	end
+
+	test "should require interview_outcome_on if interview_outcome_id?" do
+		assert_difference( "HomexOutcome.count", 0 ) do
+			homex_outcome = create_homex_outcome(
+				:interview_outcome_on => nil,
+				:interview_outcome_id => InterviewOutcome.first.id)
+			assert homex_outcome.errors.on(:interview_outcome_on)
+		end
+	end
+
+	test "should require sample_outcome_on if sample_outcome_id?" do
+		assert_difference( "HomexOutcome.count", 0 ) do
+			homex_outcome = create_homex_outcome(
+				:sample_outcome_on => nil,
+				:sample_outcome_id => SampleOutcome.first.id)
+			assert homex_outcome.errors.on(:sample_outcome_on)
+		end
+	end
+
+	test "should create operational event when interview scheduled" do
+		homex_outcome = create_complete_homex_outcome
+		#	arbitrary past date
+		past_date = Date.parse('Jan 15 2003')
+		assert_difference('OperationalEvent.count',1) do
+			homex_outcome.update_attributes(
+				:interview_outcome_on => past_date,
+				:interview_outcome    => InterviewOutcome['scheduled'])
+		end
+		oe = OperationalEvent.last
+		assert_equal 'scheduled', oe.operational_event_type.key
+		assert_equal past_date,   oe.occurred_on
+		assert_equal homex_outcome.study_subject_id, oe.enrollment.study_subject_id
+	end
+
+	test "should create operational event when interview completed" do
+		homex_outcome = create_complete_homex_outcome
+		#	arbitrary past date
+		past_date = Date.parse('Jan 15 2003')
+		assert_difference('OperationalEvent.count',1) do
+			homex_outcome.update_attributes(
+				:interview_outcome_on => past_date,
+				:interview_outcome    => InterviewOutcome['complete'])
+		end
+		oe = OperationalEvent.last
+		assert_equal 'iv_complete', oe.operational_event_type.key
+		assert_equal past_date,   oe.occurred_on
+		assert_equal homex_outcome.study_subject_id, oe.enrollment.study_subject_id
+	end
+
+	test "should raise NoHomeExposureEnrollment on create_interview_outcome_update" <<
+			" if no enrollment in HomeExposures" do
+		study_subject = Factory(:study_subject)
+		homex_outcome = Factory(:homex_outcome,:study_subject => study_subject)
+		assert_nil study_subject.enrollments.find_by_project_id(Project['HomeExposures'].id)
+		assert_raises(HomexOutcome::NoHomeExposureEnrollment){
+			homex_outcome.update_attributes(
+				:interview_outcome_on => Date.parse('Jan 15 2003'),
+				:interview_outcome    => InterviewOutcome['complete'])
+		}
+	end
+
+	test "should create operational event when sample kit sent" do
+		homex_outcome = create_complete_homex_outcome
+		#	arbitrary past date
+		past_date = Date.parse('Jan 15 2003')
+		assert_difference('OperationalEvent.count',1) do
+			homex_outcome.update_attributes(
+				:sample_outcome_on => past_date,
+				:sample_outcome    => SampleOutcome['sent'])
+		end
+		oe = OperationalEvent.last
+		assert_equal 'kit_sent', oe.operational_event_type.key
+		assert_equal past_date,  oe.occurred_on
+		assert_equal homex_outcome.study_subject_id, oe.enrollment.study_subject_id
+	end
+
+	test "should create operational event when sample received" do
+		homex_outcome = create_complete_homex_outcome
+		#	arbitrary past date
+		past_date = Date.parse('Jan 15 2003')
+		assert_difference('OperationalEvent.count',1) do
+			homex_outcome.update_attributes(
+				:sample_outcome_on => past_date,
+				:sample_outcome    => SampleOutcome['received'])
+		end
+		oe = OperationalEvent.last
+		assert_equal 'sample_received', oe.operational_event_type.key
+		assert_equal past_date,  oe.occurred_on
+		assert_equal homex_outcome.study_subject_id, oe.enrollment.study_subject_id
+	end
+
+	test "should create operational event when sample complete" do
+		homex_outcome = create_complete_homex_outcome
+		#	arbitrary past date
+		past_date = Date.parse('Jan 15 2003')
+		assert_difference('OperationalEvent.count',1) do
+			homex_outcome.update_attributes(
+				:sample_outcome_on => past_date,
+				:sample_outcome    => SampleOutcome['complete'])
+		end
+		oe = OperationalEvent.last
+		assert_equal 'sample_complete', oe.operational_event_type.key
+		assert_equal past_date,  oe.occurred_on
+		assert_equal homex_outcome.study_subject_id, oe.enrollment.study_subject_id
+	end
+
+	test "should raise NoHomeExposureEnrollment on create_sample_outcome_update" <<
+			" if no enrollment in HomeExposures" do
+		study_subject = Factory(:study_subject)
+		homex_outcome = Factory(:homex_outcome,:study_subject => study_subject)
+		assert_nil study_subject.enrollments.find_by_project_id(Project['HomeExposures'].id)
+		assert_raises(HomexOutcome::NoHomeExposureEnrollment){
+			homex_outcome.update_attributes(
+				:sample_outcome_on => Date.parse('Jan 15 2003'),
+				:sample_outcome    => SampleOutcome['complete'])
+		}
+	end
+
+protected
+
+#	def create_homex_outcome(options={})
+#		homex_outcome = Factory.build(:homex_outcome,options)
+#		homex_outcome.save
+#		homex_outcome
+#	end
+
+	def create_complete_homex_outcome(options={})
+		s = Factory(:study_subject,options[:study_subject]||{})
+		p = Project.find_or_create_by_key('HomeExposures')
+		Factory(:enrollment, :study_subject => s, :project => p )
+		h = create_homex_outcome(
+			(options[:homex_outcome]||{}).merge(:study_subject => s,
+			:interview_outcome_on => nil,
+			:sample_outcome_on => nil))
+		h
+	end
+
+end