ccls-ccls_engine 3.11.0

data/test/unit/ccls/hospital_test.rb

@@ -0,0 +1,102 @@
+require 'test_helper'
+
+class Ccls::HospitalTest < ActiveSupport::TestCase
+
+	assert_should_create_default_object
+	assert_should_act_as_list
+	assert_should_initially_belong_to(:organization)
+	assert_should_require_attributes_not_nil( :has_irb_waiver )
+	assert_should_not_require_attributes( :position )
+	assert_should_require_unique_attributes( :organization_id )
+
+	test "explicit Factory hospital test" do
+		assert_difference('Organization.count',1) {
+		assert_difference('Hospital.count',1) {
+			hospital = Factory(:hospital)
+			assert_not_nil hospital.organization
+			assert !hospital.has_irb_waiver	#	database default
+		} }
+	end
+
+	test "explicit Factory nonwaivered hospital test" do
+		assert_difference('Organization.count',1) {
+		assert_difference('Hospital.count',1) {
+			hospital = Factory(:nonwaivered_hospital)
+			assert_not_nil hospital.organization
+			assert !hospital.has_irb_waiver	#	database default
+		} }
+	end
+
+	test "explicit Factory waivered hospital test" do
+		assert_difference('Organization.count',1) {
+		assert_difference('Hospital.count',1) {
+			hospital = Factory(:waivered_hospital)
+			assert_not_nil hospital.organization
+			assert hospital.has_irb_waiver
+		} }
+	end
+
+	test "should require organization" do
+		assert_difference( "Hospital.count", 0 ) do
+			hospital = create_hospital( :organization => nil)
+			assert !hospital.errors.on(:organization)
+			assert  hospital.errors.on_attr_and_type?(:organization_id,:blank)
+		end
+	end
+
+	test "should require valid organization" do
+		assert_difference( "Hospital.count", 0 ) do
+			hospital = create_hospital( :organization_id => 0)
+			assert !hospital.errors.on(:organization_id)
+			assert  hospital.errors.on_attr_and_type?(:organization,:blank)
+		end
+	end
+
+	test "should return organization name as to_s if organization" do
+		organization = create_organization
+		hospital = create_hospital(:organization => organization)
+		assert_not_nil hospital.organization
+		assert_equal organization.name, "#{hospital}"
+	end
+
+#	If organization is required, this can't ever happen
+#	test "should return Unknown as to_s if no organization" do
+#		hospital = create_hospital
+#		assert_nil hospital.reload.organization
+#		assert_equal 'Unknown', "#{hospital}"
+#	end
+
+	test "should return waivered hospitals" do
+		hospitals = Hospital.waivered
+		assert !hospitals.empty?
+		assert_equal 22, hospitals.length	#	this is true now, but will change
+		hospitals.each do |hospital|
+			assert hospital.has_irb_waiver
+		end
+	end
+
+	test "should return nonwaivered hospitals" do
+		hospitals = Hospital.nonwaivered
+		assert !hospitals.empty?
+		#	the addition of the "unspecified" and "don't know" make this 5 now
+		assert_equal 5, hospitals.length	#	this is true now, but will change
+		hospitals.each do |hospital|
+			assert !hospital.has_irb_waiver
+		end
+	end
+
+#protected
+#
+#	def create_hospital(options={})
+#		hospital = Factory.build(:hospital,options)
+#		hospital.save
+#		hospital
+#	end
+#
+#	def create_organization(options={})
+#		organization = Factory.build(:organization,options)
+#		organization.save
+#		organization
+#	end
+
+end

data/test/unit/ccls/icf_master_id_test.rb

@@ -0,0 +1,30 @@
+require 'test_helper'
+
+class Ccls::IcfMasterIdTest < ActiveSupport::TestCase
+
+	assert_should_create_default_object
+	assert_should_belong_to(:study_subject)
+	assert_should_protect( :study_subject_id, :study_subject )
+
+	test "explicit Factory icf_master_id test" do
+		assert_difference('IcfMasterId.count',1) {
+			icf_master_id = Factory(:icf_master_id)
+			assert_nil icf_master_id.icf_master_id
+		}
+	end
+
+	test "should return icf_master_id as to_s" do
+		icf_master_id = create_icf_master_id(:icf_master_id => '123456789')
+		assert_equal "#{icf_master_id.icf_master_id}", "#{icf_master_id}"
+		assert_equal "123456789", "#{icf_master_id}"
+	end
+
+#protected
+#
+#	def create_icf_master_id(options={})
+#		icf_master_id = Factory.build(:icf_master_id,options)
+#		icf_master_id.save
+#		icf_master_id
+#	end
+
+end

data/test/unit/ccls/icf_master_tracker_change_test.rb

@@ -0,0 +1,14 @@
+require 'test_helper'
+
+class Ccls::IcfMasterTrackerChangeTest < ActiveSupport::TestCase
+#			t.string :icf_master_id
+#			t.date :master_tracker_date
+#			t.boolean :new_tracker_record
+#			t.string :modified_column
+#			t.string :previous_value
+#			t.string :new_value
+
+	assert_should_create_default_object
+	assert_should_require( :icf_master_id )
+
+end

data/test/unit/ccls/icf_master_tracker_test.rb

@@ -0,0 +1,132 @@
+require 'test_helper'
+
+class Ccls::IcfMasterTrackerTest < ActiveSupport::TestCase
+
+	assert_should_create_default_object
+	assert_should_protect(:Masterid)
+	assert_should_require(:Masterid)
+	assert_should_require_unique(:Masterid)
+	assert_should_require_attribute_length( :last_update_attempt_errors, :maximum => 65000 )
+
+	test "should not attach to study subject on create if none exists" do
+		icf_master_tracker = Factory(:icf_master_tracker,
+			:Masterid => '1234')
+		assert_nil icf_master_tracker.study_subject
+	end
+
+	test "should attach to study subject on create if exists" do
+		icf_master_id = Factory(:icf_master_id, :icf_master_id => '1234')
+		study_subject = Factory(:complete_case_study_subject)
+		study_subject.assign_icf_master_id
+		icf_master_tracker = Factory(:icf_master_tracker,
+			:Masterid => '1234')
+		assert_not_nil icf_master_tracker.study_subject
+		assert_equal   icf_master_tracker.study_subject, study_subject
+	end
+
+	test "should attach to study subject on update if exists" do
+		icf_master_tracker = Factory(:icf_master_tracker,
+			:Masterid => '1234')
+		assert_nil icf_master_tracker.study_subject
+		icf_master_id = Factory(:icf_master_id, :icf_master_id => '1234')
+		study_subject = Factory(:complete_case_study_subject)
+		study_subject.assign_icf_master_id
+		icf_master_tracker.save
+		assert_not_nil icf_master_tracker.study_subject
+		assert_equal   icf_master_tracker.study_subject, study_subject
+	end
+
+	test "should flag for update on create" do
+		icf_master_tracker = Factory(:icf_master_tracker)
+		assert icf_master_tracker.flagged_for_update
+	end
+
+	test "should flag for update on change" do
+		icf_master_tracker = Factory(:icf_master_tracker)
+		assert  icf_master_tracker.flagged_for_update
+		icf_master_tracker.update_attribute(:flagged_for_update,false)
+		assert !icf_master_tracker.flagged_for_update
+		icf_master_tracker.update_attribute(:Eligible, 'trigger change')
+		assert  icf_master_tracker.flagged_for_update
+	end
+
+	test "should NOT flag for update if no change" do
+		icf_master_tracker = Factory(:icf_master_tracker)
+		assert  icf_master_tracker.flagged_for_update
+		icf_master_tracker.update_attribute(:flagged_for_update,false)
+		assert !icf_master_tracker.flagged_for_update
+		icf_master_tracker.save
+		assert !icf_master_tracker.flagged_for_update
+	end
+
+	test "should return those flagged for update" do
+		assert IcfMasterTracker.have_changed.empty?
+		icf_master_tracker = Factory(:icf_master_tracker)
+		assert IcfMasterTracker.have_changed.include?(
+			icf_master_tracker )
+		icf_master_tracker.update_attribute(:flagged_for_update,false)
+		assert IcfMasterTracker.have_changed.empty?
+	end
+
+#	test "should create operational event for study subject if change" do
+#		icf_master_id = Factory(:icf_master_id, :icf_master_id => '1234')
+#		study_subject = Factory(:complete_case_study_subject)
+#		study_subject.assign_icf_master_id
+#		assert_difference('OperationalEvent.count',1) {
+#			icf_master_tracker = Factory(:icf_master_tracker,
+#				:Masterid => '1234', :Eligible => 'trigger change')
+#			assert_not_nil icf_master_tracker.study_subject
+#			assert_equal   icf_master_tracker.study_subject, study_subject
+#			assert icf_master_tracker.study_subject.enrollments.find_by_project_id(
+#				Project['ccls'].id).operational_events.collect(&:operational_event_type_id
+#				).include?(OperationalEventType[:other].id)
+#		}
+#	end
+#
+#	test "should not create operational event for study subject if no change" do
+#		icf_master_id = Factory(:icf_master_id, :icf_master_id => '1234')
+#		study_subject = Factory(:complete_case_study_subject)
+#		study_subject.assign_icf_master_id
+#		assert_difference('OperationalEvent.count',0) {
+#			icf_master_tracker = Factory(:icf_master_tracker,
+#				:Masterid => '1234')	#, :Eligible => 'trigger change')
+#			assert_not_nil icf_master_tracker.study_subject
+#			assert_equal   icf_master_tracker.study_subject, study_subject
+#			assert !icf_master_tracker.study_subject.enrollments.find_by_project_id(
+#				Project['ccls'].id).operational_events.collect(&:operational_event_type_id
+#				).include?(OperationalEventType[:other].id)
+#		}
+#	end
+
+	test "should create one new icf_master_tracker_change record on create" do
+		assert_difference('IcfMasterTracker.count',1) {
+		assert_difference('IcfMasterTrackerChange.count',1) {
+			@icf_master_tracker = Factory(:icf_master_tracker)
+		} }
+		last_tracker_change = IcfMasterTrackerChange.last
+		assert       last_tracker_change.new_tracker_record
+		assert_equal last_tracker_change.icf_master_id, @icf_master_tracker.Masterid
+	end
+
+	test "should not create icf_master_tracker_change on save if no change" do
+		icf_master_tracker = Factory(:icf_master_tracker)
+		assert_difference('IcfMasterTracker.count',0) {
+		assert_difference('IcfMasterTrackerChange.count',0) {
+			icf_master_tracker.save
+		} }
+	end
+
+	test "should create one icf_master_tracker_change on save if one change" do
+		icf_master_tracker = Factory(:icf_master_tracker, :Currphone => "something")
+		assert_difference('IcfMasterTracker.count',0) {
+		assert_difference('IcfMasterTrackerChange.count',1) {
+			icf_master_tracker.update_attribute(:Currphone, "something else")
+		} }
+		last_tracker = IcfMasterTrackerChange.last
+		assert !last_tracker.new_tracker_record
+		assert_equal last_tracker.modified_column, 'Currphone'
+		assert_equal last_tracker.previous_value, 'something'
+		assert_equal last_tracker.new_value, 'something else'
+	end
+
+end

data/test/unit/ccls/icf_master_tracker_update_test.rb

@@ -0,0 +1,176 @@
+require 'test_helper'
+
+class Ccls::IcfMasterTrackerUpdateTest < ActiveSupport::TestCase
+	include Ccls::IcfMasterTrackerUpdateTestHelper
+
+	setup :turn_off_paperclip_logging
+
+	assert_should_create_default_object
+
+	test "should create without attached csv_file" do
+		assert_difference('IcfMasterTrackerUpdate.count',1) {
+			@object = Factory(:icf_master_tracker_update)
+		}
+		assert_nil @object.csv_file_file_name
+		assert_nil @object.csv_file_content_type
+		assert_nil @object.csv_file_file_size
+		assert_nil @object.csv_file_updated_at
+	end
+
+	test "should create with attached csv_file" do
+		assert_difference('IcfMasterTrackerUpdate.count',1) {
+			@object = create_test_file_and_icf_master_tracker_update
+		}
+		assert_not_nil @object.csv_file_file_name
+		assert_equal   @object.csv_file_file_name, csv_test_file_name
+		assert_not_nil @object.csv_file_content_type
+		assert_not_nil @object.csv_file_file_size
+		assert_not_nil @object.csv_file_updated_at
+		cleanup_icf_master_tracker_update_and_test_file(@object)
+	end
+
+	test "should parse nil attached csv_file" do
+		icf_master_tracker_update = Factory(:icf_master_tracker_update)
+		assert_nil icf_master_tracker_update.csv_file_file_name
+		assert_difference('IcfMasterTracker.count',0) {
+			results = icf_master_tracker_update.parse
+			assert_equal [], results
+		}
+	end
+
+	test "should parse non-existant attached csv_file" do
+		icf_master_tracker_update = create_test_file_and_icf_master_tracker_update
+		assert  File.exists?(icf_master_tracker_update.csv_file.path)
+		File.delete(icf_master_tracker_update.csv_file.path)
+		assert !File.exists?(icf_master_tracker_update.csv_file.path)
+		assert_difference('IcfMasterTracker.count',0) {
+			results = icf_master_tracker_update.parse
+			assert_equal [], results
+		}
+		cleanup_icf_master_tracker_update_and_test_file(icf_master_tracker_update)
+	end
+
+	test "should parse attached csv_file" do
+		icf_master_tracker_update = create_test_file_and_icf_master_tracker_update
+		assert_difference('IcfMasterTracker.count',1) {
+			results = icf_master_tracker_update.parse
+			assert_equal results.length, 1
+			assert       results[0].is_a?(IcfMasterTracker)
+			assert       results[0].flagged_for_update
+		}
+		cleanup_icf_master_tracker_update_and_test_file(icf_master_tracker_update)
+	end
+
+	test "should parse attached csv_file with existing icf_master_tracker" do
+		icf_master_tracker_update = create_test_file_and_icf_master_tracker_update
+		results = nil
+		assert_difference('IcfMasterTracker.count',1) {
+			results = icf_master_tracker_update.parse
+			assert_equal results.length, 1
+			assert       results[0].is_a?(IcfMasterTracker)
+			assert       results[0].flagged_for_update
+		}
+		assert_difference('IcfMasterTracker.count',0) {
+			new_results = icf_master_tracker_update.parse
+			assert_equal new_results.length, 1
+			assert       new_results[0].is_a?(IcfMasterTracker)
+			assert_equal results, new_results
+		}
+		cleanup_icf_master_tracker_update_and_test_file(icf_master_tracker_update)
+	end
+
+	test "should copy attributes when csv_file converted to icf_master_tracker" do
+		icf_master_tracker_update = create_test_file_and_icf_master_tracker_update
+		assert_difference('IcfMasterTracker.count',1) {
+			results = icf_master_tracker_update.parse
+			assert_equal 1,  results.length
+			assert       results[0].flagged_for_update
+			icf_master_tracker = results.last
+#			assert_equal candidate_control.related_patid, study_subject.patid
+#			assert_equal candidate_control.mom_is_biomom, control[:biomom]
+#			assert_equal candidate_control.dad_is_biodad, control[:biodad]
+##control[:date]},#{
+#			assert_equal candidate_control.mother_full_name, control[:mother_full_name]
+#			assert_equal candidate_control.mother_maiden_name, control[:mother_maiden_name]
+##control[:father_full_name]},#{
+#			assert_equal candidate_control.full_name, control[:child_full_name]
+#			assert_equal candidate_control.dob, 
+#				Date.new(control[:child_doby].to_i, control[:child_dobm].to_i, control[:child_dobd].to_i)
+#			assert_equal candidate_control.sex, control[:child_gender]
+##control[:birthplace_country]},#{
+##control[:birthplace_state]},#{
+##control[:birthplace_city]},#{
+#			assert_equal candidate_control.mother_hispanicity_id, control[:mother_hispanicity]
+##control[:mother_hispanicity_mex]},#{
+#			assert_equal candidate_control.mother_race_id, control[:mother_race]
+##control[:mother_race_other]},#{
+#			assert_equal candidate_control.father_hispanicity_id, control[:father_hispanicity]
+##control[:father_hispanicity_mex]},#{
+#			assert_equal candidate_control.father_race_id, control[:father_race]
+##control[:father_race_other]}} }
+		}
+		cleanup_icf_master_tracker_update_and_test_file(icf_master_tracker_update)
+	end
+
+	test "should parse attached csv_file and attach tracker to subject" do
+		study_subject = create_case_for_icf_master_tracker_update
+		icf_master_tracker_update = create_test_file_and_icf_master_tracker_update
+		assert_difference('IcfMasterTracker.count',1) {
+			results = icf_master_tracker_update.parse
+			assert_equal results.length, 1
+			assert       results[0].flagged_for_update
+			assert       results[0].is_a?(IcfMasterTracker)
+			assert_equal results[0].study_subject, study_subject
+		}
+		cleanup_icf_master_tracker_update_and_test_file(icf_master_tracker_update)
+	end
+
+	test "should test with real data file" do
+		#	real data and won't be in repository
+		real_data_file = 'icf_master_tracker_011712.csv'
+		unless File.exists?(real_data_file)
+			puts
+			puts "-- Real data test file does not exist. Skipping."
+			return 
+		end
+
+		#	minimal semi-real case creation
+		s0 = Factory(:study_subject,:sex => 'F',
+			:first_name => 'FakeFirst1',:last_name => 'FakeLast1', 
+			:dob => Date.parse('10/16/1977'))
+
+		s1 = Factory(:study_subject,:sex => 'F',
+			:first_name => 'FakeFirst2',:last_name => 'FakeLast2', 
+			:dob => Date.parse('9/21/1988'))
+		Factory(:icf_master_id,:icf_master_id => '15270110G')
+		s1.assign_icf_master_id
+
+		s2 = Factory(:study_subject,:sex => 'M',
+			:first_name => 'FakeFirst3',:last_name => 'FakeLast3', 
+			:dob => Date.parse('6/1/2009'))
+		Factory(:icf_master_id,:icf_master_id => '15397125B')
+		s2.assign_icf_master_id
+
+		icf_master_tracker_update = Factory(:icf_master_tracker_update,
+			:csv_file => File.open(real_data_file) )
+		assert_not_nil icf_master_tracker_update.csv_file_file_name
+
+		assert_difference('IcfMasterTracker.count',62){
+			results = icf_master_tracker_update.parse
+			assert_equal results.length, 62
+			assert_nil   results[0].study_subject
+			assert_equal results[1].study_subject, s1
+			assert_equal results[2].study_subject, s2
+			results.each { |r|
+				assert  r.is_a?(IcfMasterTracker)
+				assert !r.new_record?
+				assert  r.flagged_for_update
+			}
+		}
+#
+#	TODO add some tests to see if anything was updated
+#
+		icf_master_tracker_update.destroy
+	end
+
+end