ccls-ccls_engine 3.11.0

data/test/unit/ccls/ineligible_reason_test.rb

@@ -0,0 +1,48 @@
+require 'test_helper'
+
+class Ccls::IneligibleReasonTest < ActiveSupport::TestCase
+
+	assert_should_behave_like_a_hash
+
+	assert_should_create_default_object
+	assert_should_act_as_list
+
+#	only if study_subject is ineligible
+#	assert_should_have_many(:enrollments)
+
+	assert_should_not_require_attributes( :position, :ineligible_context )
+
+	test "explicit Factory ineligible_reason test" do
+		assert_difference('IneligibleReason.count',1) {
+			ineligible_reason = Factory(:ineligible_reason)
+			assert_match /Key\d*/, ineligible_reason.key
+			assert_match /Desc\d*/, ineligible_reason.description
+		}
+	end
+
+	test "should return description as to_s" do
+		ineligible_reason = create_ineligible_reason
+		assert_equal ineligible_reason.description, "#{ineligible_reason}"
+	end
+
+	test "should find random" do
+		ineligible_reason = IneligibleReason.random()
+		assert ineligible_reason.is_a?(IneligibleReason)
+	end
+
+	test "should return nil on random when no records" do
+#		IneligibleReason.destroy_all
+		IneligibleReason.stubs(:count).returns(0)
+		ineligible_reason = IneligibleReason.random()
+		assert_nil ineligible_reason
+	end
+
+#protected
+#
+#	def create_ineligible_reason(options={})
+#		ineligible_reason = Factory.build(:ineligible_reason,options)
+#		ineligible_reason.save
+#		ineligible_reason
+#	end
+
+end

data/test/unit/ccls/instrument_test.rb

@@ -0,0 +1,62 @@
+require 'test_helper'
+
+class Ccls::InstrumentTest < ActiveSupport::TestCase
+
+	assert_should_behave_like_a_hash
+
+	assert_should_create_default_object
+	assert_should_act_as_list
+	assert_should_have_many(:instrument_versions)
+	assert_should_belong_to(:interview_method)
+	assert_should_initially_belong_to(:project)
+	assert_should_require_attributes( :name )
+	assert_should_not_require_attributes( :position,
+		:results_table_id,
+		:interview_method_id,
+		:began_use_on,
+		:ended_use_on )
+	assert_should_require_attribute_length( :name, :maximum => 250 )
+	assert_requires_complete_date( :began_use_on, :ended_use_on )
+
+	test "explicit Factory instrument test" do
+		assert_difference('Project.count',1) {
+		assert_difference('Instrument.count',1) {
+			instrument = Factory(:instrument)
+			assert_not_nil instrument.project
+			assert_equal 'Instrument Name', instrument.name
+			assert_match /Key\d*/, instrument.key
+			assert_match /Desc\d*/, instrument.description
+		} }
+	end
+
+	#	unfortunately name is NOT unique so should change this
+	test "should return name as to_s" do
+		instrument = create_instrument
+		assert_equal instrument.name, "#{instrument}"
+	end
+
+	test "should require project" do
+		assert_difference( "Instrument.count", 0 ) do
+			instrument = create_instrument( :project => nil)
+			assert !instrument.errors.on(:project)
+			assert  instrument.errors.on_attr_and_type?(:project_id,:blank)
+		end
+	end
+
+	test "should require valid project" do
+		assert_difference( "Instrument.count", 0 ) do
+			instrument = create_instrument( :project_id => 0)
+			assert !instrument.errors.on(:project_id)
+			assert  instrument.errors.on_attr_and_type?(:project,:blank)
+		end
+	end
+
+#protected
+#
+#	def create_instrument(options={})
+#		instrument = Factory.build(:instrument,options)
+#		instrument.save
+#		instrument
+#	end
+
+end

data/test/unit/ccls/instrument_type_test.rb

@@ -0,0 +1,39 @@
+require 'test_helper'
+
+class Ccls::InstrumentTypeTest < ActiveSupport::TestCase
+
+	assert_should_behave_like_a_hash
+
+	assert_should_create_default_object
+	assert_should_act_as_list
+	assert_should_have_many(:instrument_versions)
+	assert_should_initially_belong_to(:project)
+	assert_should_not_require_attributes( :position )
+
+	test "explicit Factory instrument_type test" do
+		assert_difference('Project.count',1) {
+		assert_difference('InstrumentType.count',1) {
+			instrument_type = Factory(:instrument_type)
+			assert_not_nil instrument_type.project
+			assert_match /Key\d*/, instrument_type.key
+			assert_match /Desc\d*/, instrument_type.description
+		} }
+	end
+
+	test "should require project" do
+		assert_difference( "InstrumentType.count", 0 ) do
+			instrument_type = create_instrument_type( :project => nil)
+			assert !instrument_type.errors.on(:project)
+			assert  instrument_type.errors.on_attr_and_type?(:project_id,:blank)
+		end
+	end
+
+	test "should require valid project" do
+		assert_difference( "InstrumentType.count", 0 ) do
+			instrument_type = create_instrument_type( :project_id => 0)
+			assert !instrument_type.errors.on(:project_id)
+			assert  instrument_type.errors.on_attr_and_type?(:project,:blank)
+		end
+	end
+
+end

data/test/unit/ccls/instrument_version_test.rb

@@ -0,0 +1,71 @@
+require 'test_helper'
+
+class Ccls::InstrumentVersionTest < ActiveSupport::TestCase
+
+	assert_should_behave_like_a_hash
+
+	assert_should_create_default_object
+	assert_should_act_as_list
+	assert_should_have_many( :interviews )
+	assert_should_belong_to( :language, :instrument )
+	assert_should_initially_belong_to( :instrument_type )
+	assert_should_not_require_attributes( 
+		:position,
+		:language_id,
+		:began_use_on,
+		:ended_use_on,
+		:instrument_id )
+
+	assert_requires_complete_date( :began_use_on, :ended_use_on )
+
+	test "explicit Factory instrument_version test" do
+		assert_difference('InstrumentType.count',1) {
+		assert_difference('InstrumentVersion.count',1) {
+			instrument_version = Factory(:instrument_version)
+			assert_not_nil instrument_version.instrument_type
+			assert_match /Key\d*/, instrument_version.key
+			assert_match /Desc\d*/, instrument_version.description
+		} }
+	end
+
+	test "should require instrument_type" do
+		assert_difference( "InstrumentVersion.count", 0 ) do
+			instrument_version = create_instrument_version( :instrument_type => nil)
+			assert !instrument_version.errors.on(:instrument_type)
+			assert  instrument_version.errors.on_attr_and_type?(:instrument_type_id,:blank)
+		end
+	end
+
+	test "should require valid instrument_type" do
+		assert_difference( "InstrumentVersion.count", 0 ) do
+			instrument_version = create_instrument_version( :instrument_type_id => 0)
+			assert !instrument_version.errors.on(:instrument_type_id)
+			assert  instrument_version.errors.on_attr_and_type?(:instrument_type,:blank)
+		end
+	end
+
+	test "should return description as to_s" do
+		instrument_version = create_instrument_version
+		assert_equal instrument_version.description, "#{instrument_version}"
+	end
+
+	test "should find random" do
+		instrument_version = InstrumentVersion.random()
+		assert instrument_version.is_a?(InstrumentVersion)
+	end
+
+	test "should return nil on random when no records" do
+		InstrumentVersion.stubs(:count).returns(0)
+		instrument_version = InstrumentVersion.random()
+		assert_nil instrument_version
+	end
+
+#protected
+#
+#	def create_instrument_version(options={})
+#		instrument_version = Factory.build(:instrument_version,options)
+#		instrument_version.save
+#		instrument_version
+#	end
+
+end

data/test/unit/ccls/interview_method_test.rb

@@ -0,0 +1,44 @@
+require 'test_helper'
+
+class Ccls::InterviewMethodTest < ActiveSupport::TestCase
+
+	assert_should_behave_like_a_hash
+
+	assert_should_create_default_object
+	assert_should_act_as_list
+	assert_should_have_many( :interviews, :instruments )
+	assert_should_not_require_attributes( :position )
+
+	test "explicit Factory interview_method test" do
+		assert_difference('InterviewMethod.count',1) {
+			interview_method = Factory(:interview_method)
+			assert_match /Key\d*/, interview_method.key
+			assert_match /Desc\d*/, interview_method.description
+		}
+	end
+
+	test "should return description as to_s" do
+		interview_method = create_interview_method
+		assert_equal interview_method.description, "#{interview_method}"
+	end
+
+	test "should find random" do
+		interview_method = InterviewMethod.random()
+		assert interview_method.is_a?(InterviewMethod)
+	end
+
+	test "should return nil on random when no records" do
+		InterviewMethod.stubs(:count).returns(0)
+		interview_method = InterviewMethod.random()
+		assert_nil interview_method
+	end
+
+#protected
+#
+#	def create_interview_method(options={})
+#		interview_method = Factory.build(:interview_method,options)
+#		interview_method.save
+#		interview_method
+#	end
+
+end

data/test/unit/ccls/interview_outcome_test.rb

@@ -0,0 +1,34 @@
+require 'test_helper'
+
+class Ccls::InterviewOutcomeTest < ActiveSupport::TestCase
+
+	assert_should_behave_like_a_hash
+
+	assert_should_create_default_object
+	assert_should_act_as_list
+	assert_should_have_many(:homex_outcomes)
+	assert_should_not_require_attributes( :position )
+
+	test "explicit Factory interview_outcome test" do
+		assert_difference('InterviewOutcome.count',1) {
+			interview_outcome = Factory(:interview_outcome)
+			assert_match /Key\d*/,  interview_outcome.key
+			assert_match /Desc\d*/, interview_outcome.description
+		}
+	end
+
+	test "should return description as to_s" do
+		interview_outcome = create_interview_outcome(:description => "Description")
+		assert_equal interview_outcome.description,
+			"#{interview_outcome}"
+	end
+
+#protected
+#
+#	def create_interview_outcome(options={})
+#		interview_outcome = Factory.build(:interview_outcome,options)
+#		interview_outcome.save
+#		interview_outcome
+#	end
+
+end

data/test/unit/ccls/interview_test.rb

@@ -0,0 +1,298 @@
+require 'test_helper'
+
+class Ccls::InterviewTest < ActiveSupport::TestCase
+
+	assert_should_create_default_object
+	assert_should_initially_belong_to(:study_subject)
+	assert_should_protect( :study_subject_id, :study_subject )
+	assert_should_belong_to( :address,
+		:instrument_version,
+		:interview_method,
+		:language,
+		:subject_relationship )
+	assert_should_belong_to( :interviewer, :class_name => 'Person')
+	assert_should_not_require_attributes( 
+		:address_id,
+		:language_id,
+		:interviewer_id,
+		:instrument_version_id,
+		:interview_method_id,
+		:study_subject_id,
+		:began_on,
+		:ended_on,
+		:intro_letter_sent_on,
+		:consent_read_over_phone,
+		:respondent_requested_new_consent,
+		:consent_reviewed_with_respondent )
+	assert_should_require_attribute_length( 
+		:subject_relationship_other, 
+		:respondent_first_name,
+		:respondent_last_name, 
+			:maximum => 250 )
+	assert_requires_complete_date( :began_on, :ended_on, :intro_letter_sent_on )
+	assert_should_protect( :began_at, :ended_at )
+
+	test "explicit Factory interview test" do
+		assert_difference('StudySubject.count',1) {
+		assert_difference('Interview.count',1) {
+			interview = Factory(:interview)
+			assert_not_nil interview.study_subject
+		} }
+	end
+
+	test "should create intro letter operational event " <<
+			"when intro_letter_sent_on set" do
+		study_subject = create_hx_study_subject
+		assert_difference( "OperationalEvent.count", 1 ) {
+		assert_difference( "Interview.count", 1 ) {
+			@interview = create_interview( :study_subject => study_subject,
+				:intro_letter_sent_on => Date.yesterday ).reload
+		} }
+		assert_equal OperationalEventType['intro'],
+			OperationalEvent.last.operational_event_type
+		assert_equal @interview.intro_letter_sent_on,
+			OperationalEvent.last.occurred_on
+	end
+
+	test "should update intro letter operational event " <<
+			"when intro_letter_sent_on updated" do
+		interview = create_interview(
+			:study_subject => create_hx_study_subject,
+			:intro_letter_sent_on => Date.yesterday )
+		assert_difference( "OperationalEvent.count", 0 ) {
+		assert_difference( "Interview.count", 0 ) {
+			interview.update_attributes(:intro_letter_sent_on => Date.today )
+		} }
+		assert_equal Date.today,
+			OperationalEvent.last.occurred_on
+	end
+
+	test "should NOT require valid address_id" do
+		assert_difference( "Interview.count", 1 ) do
+			interview = create_interview(:address_id => 0)
+			assert !interview.errors.on(:address)
+		end
+	end
+
+	test "should NOT require valid interviewer_id" do
+		assert_difference( "Interview.count", 1 ) do
+			interview = create_interview(:interviewer_id => 0)
+			assert !interview.errors.on(:interviewer)
+		end
+	end
+
+	test "should NOT require valid instrument_version_id" do
+		assert_difference( "Interview.count", 1 ) do
+			interview = create_interview(:instrument_version_id => 0)
+			assert !interview.errors.on(:instrument_version_id)
+		end
+	end
+
+	test "should NOT require valid interview_method_id" do
+		assert_difference( "Interview.count", 1 ) do
+			interview = create_interview(:interview_method_id => 0)
+			assert !interview.errors.on(:interview_method_id)
+		end
+	end
+
+	test "should NOT require valid language_id" do
+		assert_difference( "Interview.count", 1 ) do
+			interview = create_interview(:language_id => 0)
+			assert !interview.errors.on(:language_id)
+		end
+	end
+
+	test "should NOT require valid study_subject_id" do
+		assert_difference( "Interview.count", 1 ) do
+			interview = create_interview(:study_subject_id => 0)
+			assert !interview.errors.on(:study_subject_id)
+		end
+	end
+
+	test "should return join of respondent's name" do
+		interview = create_interview(
+			:respondent_first_name => "Santa",
+			:respondent_last_name => "Claus" )
+		assert_equal 'Santa Claus', interview.respondent_full_name
+	end
+
+	test "should require subject_relationship_other if " <<
+			"subject_relationship == other" do
+		assert_difference( "Interview.count", 0 ) do
+			interview = create_interview(
+				:subject_relationship => SubjectRelationship['other'] )
+			assert interview.errors.on(:subject_relationship_other)
+		end
+	end
+
+	test "should NOT ALLOW subject_relationship_other if " <<
+			"subject_relationship is blank" do
+		assert_difference( "Interview.count", 0 ) do
+			interview = create_interview(
+				:subject_relationship_id => '',
+				:subject_relationship_other => 'asdfasdf' )
+			assert interview.errors.on(:subject_relationship_other)
+		end
+	end
+
+	test "should ALLOW subject_relationship_other if " <<
+			"subject_relationship != other" do
+		assert_difference( "Interview.count", 1 ) do
+			interview = create_interview(
+				:subject_relationship => Factory(:subject_relationship),
+				:subject_relationship_other => 'asdfasdf' )
+		end
+	end
+
+	test "should require subject_relationship_other with custom message" do
+		assert_difference( "Interview.count", 0 ) do
+			interview = create_interview(
+				:subject_relationship => SubjectRelationship['other'] )
+			assert interview.errors.on(:subject_relationship_other)
+			assert_match /You must specify a relationship with 'other relationship' is selected/, 
+				interview.errors.full_messages.to_sentence
+			assert_no_match /Subject relationship other/, 
+				interview.errors.full_messages.to_sentence
+		end
+	end
+
+	%w( began ended ).each do |time|
+
+		test "should NOT create #{time}_at on save if time fields NOT given" do
+			assert_difference( "Interview.count", 1 ) do
+				interview = create_interview
+				assert_nil interview.send("#{time}_at")
+			end
+		end
+	
+		test "should NOT create #{time}_at on save if #{time}_on NOT given" do
+			assert_difference( "Interview.count", 1 ) do
+				interview = create_interview_with_times("#{time}_on" => nil)
+				assert_nil interview.send("#{time}_at")
+			end
+		end
+	
+		test "should NOT create #{time}_at on save if #{time}_at_hour NOT given" do
+			assert_difference( "Interview.count", 1 ) do
+				interview = create_interview_with_times("#{time}_at_hour" => nil)
+				assert_nil interview.send("#{time}_at")
+			end
+		end
+	
+		test "should NOT create #{time}_at on save if #{time}_at_minute NOT given" do
+			assert_difference( "Interview.count", 1 ) do
+				interview = create_interview_with_times("#{time}_at_minute" => nil)
+				assert_nil interview.send("#{time}_at")
+			end
+		end
+	
+		test "should NOT create #{time}_at on save if #{time}_at_meridiem NOT given" do
+			assert_difference( "Interview.count", 1 ) do
+				interview = create_interview_with_times("#{time}_at_meridiem" => nil)
+				assert_nil interview.send("#{time}_at")
+			end
+		end
+	
+		test "should create #{time}_at on save if time fields given" do
+			assert_difference( "Interview.count", 1 ) do
+				interview = create_interview_with_times
+				assert_not_nil interview.send("#{time}_at")
+				assert_equal interview.send("#{time}_at"),
+					DateTime.parse("May 12, 2000 1:30 PM")
+#					DateTime.parse("May 12, 2000 1:30 PM PST")
+			end
+		end
+
+		test "should nilify #{time}_at on update if #{time}_on NOT given" do
+			interview = create_interview_with_times
+			assert_not_nil interview.send("#{time}_at")
+			interview.update_attributes("#{time}_on" => nil)
+			assert_nil interview.send("#{time}_at")
+		end
+
+		test "should nilify #{time}_at on update if #{time}_at_hour NOT given" do
+			interview = create_interview_with_times
+			assert_not_nil interview.send("#{time}_at")
+			interview.update_attributes("#{time}_at_hour" => nil)
+			assert_nil interview.send("#{time}_at")
+		end
+
+		test "should nilify #{time}_at on update if #{time}_at_minute NOT given" do
+			interview = create_interview_with_times
+			assert_not_nil interview.send("#{time}_at")
+			interview.update_attributes("#{time}_at_minute" => nil)
+			assert_nil interview.send("#{time}_at")
+		end
+
+		test "should nilify #{time}_at on update if #{time}_at_meridiem NOT given" do
+			interview = create_interview_with_times
+			assert_not_nil interview.send("#{time}_at")
+			interview.update_attributes("#{time}_at_meridiem" => nil)
+			assert_nil interview.send("#{time}_at")
+		end
+
+		test "should require #{time}_at_hour be greater than 0" do
+			assert_difference( "Interview.count", 0 ) do
+				interview = create_interview_with_times("#{time}_at_hour" => 0)
+				assert_nil interview.send("#{time}_at")
+				assert interview.errors.on_attr_and_type?("#{time}_at_hour",:inclusion)
+			end
+		end
+
+		test "should require #{time}_at_hour be less than 13" do
+			assert_difference( "Interview.count", 0 ) do
+				interview = create_interview_with_times("#{time}_at_hour" => 13)
+				assert_nil interview.send("#{time}_at")
+				assert interview.errors.on_attr_and_type?("#{time}_at_hour",:inclusion)
+			end
+		end
+
+		test "should require #{time}_at_minute be greater than -1" do
+			assert_difference( "Interview.count", 0 ) do
+				interview = create_interview_with_times("#{time}_at_minute" => -1)
+				assert_nil interview.send("#{time}_at")
+				assert interview.errors.on_attr_and_type?("#{time}_at_minute",:inclusion)
+			end
+		end
+
+		test "should require #{time}_at_minute be less than 60" do
+			assert_difference( "Interview.count", 0 ) do
+				interview = create_interview_with_times("#{time}_at_minute" => 60)
+				assert_nil interview.send("#{time}_at")
+				assert interview.errors.on_attr_and_type?("#{time}_at_minute",:inclusion)
+			end
+		end
+
+		test "should require #{time}_at_meridiem is AM or PM" do
+			assert_difference( "Interview.count", 0 ) do
+				interview = create_interview_with_times("#{time}_at_meridiem" => 'MM')
+				assert_nil interview.send("#{time}_at")
+				assert interview.errors.on_attr_and_type?("#{time}_at_meridiem",:invalid)
+			end
+		end
+
+	end
+
+protected
+
+#	def create_interview(options={})
+#		interview = Factory.build(:interview,options)
+#		interview.save
+#		interview
+#	end
+
+	def create_interview_with_times(options={})
+		ioptions = HashWithIndifferentAccess.new({
+			:began_on => Date.parse('May 12, 2000'),
+			:began_at_hour => 1,
+			:began_at_minute => 30,
+			:began_at_meridiem => 'PM',
+			:ended_on => Date.parse('May 12, 2000'),
+			:ended_at_hour => 1,
+			:ended_at_minute => 30,
+			:ended_at_meridiem => 'PM'
+ 		}).merge(options)
+		create_interview(ioptions)
+	end
+
+end