ccls-ccls_engine 3.11.0

data/test/unit/ccls/study_subject_enrollments_test.rb

@@ -0,0 +1,65 @@
+require 'test_helper'
+
+class Ccls::StudySubjectEnrollmentsTest < ActiveSupport::TestCase
+
+	test "should create study_subject and accept_nested_attributes_for enrollments" do
+		assert_difference( 'Enrollment.count', 2) {	#	ccls enrollment is auto-created, so 2
+		assert_difference( "StudySubject.count", 1 ) {
+			study_subject = create_study_subject(
+				:enrollments_attributes => [Factory.attributes_for(:enrollment,
+					:project_id => Project['non-specific'].id)])
+			assert !study_subject.new_record?, 
+				"#{study_subject.errors.full_messages.to_sentence}"
+		} }
+	end
+
+	test "should NOT destroy enrollments with study_subject" do
+		assert_difference('StudySubject.count',1) {
+		assert_difference('Enrollment.count',2) {	#	due to the callback creation of ccls enrollment
+			@study_subject = Factory(:enrollment).study_subject
+		} }
+		assert_difference('StudySubject.count',-1) {
+		assert_difference('Enrollment.count',0) {
+			@study_subject.destroy
+		} }
+	end
+
+	test "should return nil hx_enrollment if not enrolled" do
+		study_subject = create_study_subject
+		assert_nil study_subject.enrollments.find_by_project_id(
+			Project['HomeExposures'].id)
+	end
+
+	test "should return valid hx_enrollment if enrolled" do
+		study_subject = create_study_subject
+		hxe = Factory(:enrollment,
+			:study_subject => study_subject,
+			:project => Project['HomeExposures']
+		)
+		assert_not_nil study_subject.enrollments.find_by_project_id(
+			Project['HomeExposures'].id)
+	end
+
+	test "should create ccls project enrollment on creation" do
+		study_subject = nil
+		assert_difference('Project.count',0) {	#	make sure it didn't create id
+		assert_difference('Enrollment.count',1) {
+		assert_difference('StudySubject.count',1) {
+			study_subject = create_study_subject
+		} } }
+		assert_not_nil study_subject.enrollments.find_by_project_id(Project['ccls'].id)
+	end
+
+	test "should only create 1 ccls project enrollment on creation if given one" do
+		study_subject = nil
+		assert_difference('Project.count',0) {	#	make sure it didn't create id
+		assert_difference('Enrollment.count',1) {
+		assert_difference('StudySubject.count',1) {
+			study_subject = create_study_subject(:enrollments_attributes => [
+				{ :project_id => Project['ccls'].id }
+			])
+		} } }
+		assert_not_nil study_subject.enrollments.find_by_project_id(Project['ccls'].id)
+	end
+
+end

data/test/unit/ccls/study_subject_homex_outcome_test.rb

@@ -0,0 +1,64 @@
+require 'test_helper'
+
+class Ccls::StudySubjectHomexOutcomeTest < ActiveSupport::TestCase
+
+	test "should create study_subject and accept_nested_attributes_for homex_outcome" do
+		assert_difference( 'HomexOutcome.count', 1) {
+		assert_difference( "StudySubject.count", 1 ) {
+			study_subject = create_study_subject(
+				:homex_outcome_attributes => Factory.attributes_for(:homex_outcome))
+			assert !study_subject.new_record?, 
+				"#{study_subject.errors.full_messages.to_sentence}"
+		} }
+	end
+
+	#	StudySubject currently accepts nested attributes for homex_outcome,
+	#	but an empty homex_outcome is no longer invalid.
+	test "should create study_subject with empty homex_outcome" do
+		assert_difference( 'HomexOutcome.count', 1) {
+		assert_difference( 'StudySubject.count', 1) {
+			study_subject = create_study_subject( :homex_outcome_attributes => {})
+		} }
+	end
+
+	test "should NOT destroy homex_outcome with study_subject" do
+		assert_difference('StudySubject.count',1) {
+		assert_difference('HomexOutcome.count',1) {
+			@study_subject = Factory(:study_subject)
+			Factory(:homex_outcome, :study_subject => @study_subject)
+		} }
+		assert_difference('StudySubject.count',-1) {
+		assert_difference('HomexOutcome.count',0) {
+			@study_subject.destroy
+		} }
+	end
+
+	#	Delegated homex_outcome fields
+	%w( interview_outcome sample_outcome
+			interview_outcome_on sample_outcome_on 
+		).each do |method_name|
+
+		test "should respond to #{method_name}" do
+			study_subject = create_study_subject
+			assert study_subject.respond_to?(method_name)
+		end
+
+	end
+
+	#	Delegated homex_outcome fields except ... interview_outcome, sample_outcome
+	%w( interview_outcome_on sample_outcome_on ).each do |method_name|
+
+		test "should return nil #{method_name} without homex_outcome" do
+			study_subject = create_study_subject
+			assert_nil study_subject.send(method_name)
+		end
+
+		test "should return #{method_name} with homex_outcome" do
+			study_subject = create_study_subject(
+				:homex_outcome_attributes => Factory.attributes_for(:homex_outcome))
+			assert_not_nil study_subject.send(method_name)
+		end
+
+	end
+
+end

data/test/unit/ccls/study_subject_identifier_test.rb

@@ -0,0 +1,439 @@
+require 'test_helper'
+
+#	This is just a collection of identifier related tests 
+#	for StudySubject separated only for clarity due
+#	to the size of the StudySubjectTest class.
+class Ccls::StudySubjectIdentifierTest < ActiveSupport::TestCase
+
+	test "studyid should be patid, case_control_type and orderno" do
+		StudySubject.any_instance.stubs(:get_next_patid).returns('123')
+		study_subject = Factory(:case_study_subject)
+		assert study_subject.is_case?
+		assert_not_nil study_subject.studyid
+		assert_nil study_subject.studyid_nohyphen
+		assert_nil study_subject.studyid_intonly_nohyphen
+		assert_equal "0123-C-0", study_subject.studyid
+	end
+
+	test "should create study subject with specified matchingid" do
+		#	just to make sure that this method is defined
+		#	get funny errors when accidentally comment out.
+		assert_difference('StudySubject.count',1) {
+			study_subject = create_study_subject(:matchingid => '54321')
+			assert_equal '054321', study_subject.matchingid
+		}
+	end
+
+	test "should not assign icf_master_id when there are none" do
+		study_subject = Factory(:study_subject, :icf_master_id => nil)
+		study_subject.assign_icf_master_id
+		assert_nil study_subject.icf_master_id
+	end
+
+	test "should not assign icf_master_id if already have one and one exists" do
+		study_subject = Factory(:study_subject)
+		assert_nil study_subject.reload.icf_master_id
+		imi1 = Factory(:icf_master_id,:icf_master_id => '12345678A')
+		study_subject.assign_icf_master_id
+		assert_equal imi1.icf_master_id, study_subject.reload.icf_master_id
+		imi2 = Factory(:icf_master_id,:icf_master_id => '12345678B')
+		study_subject.assign_icf_master_id
+		assert_equal imi1.icf_master_id, study_subject.reload.icf_master_id
+	end
+
+	test "should assign icf_master_id when there is one" do
+		study_subject = create_study_subject
+		imi = Factory(:icf_master_id,:icf_master_id => '12345678A')
+		study_subject.assign_icf_master_id
+		assert_not_nil study_subject.icf_master_id
+		assert_equal '12345678A', study_subject.icf_master_id
+		imi.reload
+		assert_not_nil imi.assigned_on
+		assert_equal Date.today, imi.assigned_on
+		assert_not_nil imi.study_subject_id
+		assert_equal imi.study_subject_id, study_subject.id
+	end
+
+	test "should assign icf_master_id to mother on creation if one exists" do
+		study_subject = create_study_subject
+		imi = Factory(:icf_master_id,:icf_master_id => '12345678A')
+		assert_equal '12345678A', imi.icf_master_id
+		mother = study_subject.create_mother
+		assert_not_nil mother.reload.icf_master_id
+		assert_equal '12345678A', mother.icf_master_id
+	end
+
+	test "should not assign icf_master_id to mother on creation if none exist" do
+		study_subject = create_study_subject
+		mother = study_subject.create_mother
+		assert_nil mother.reload.icf_master_id
+	end
+
+	test "should return 'no ID assigned' if study_subject has no icf_master_id" do
+		study_subject = create_study_subject
+		assert_nil   study_subject.icf_master_id
+		assert_equal study_subject.icf_master_id_to_s, '[no ID assigned]'
+	end
+
+	test "should return icf_master_id if study_subject has icf_master_id" do
+		study_subject = create_study_subject
+		assert_nil   study_subject.icf_master_id
+		assert_equal study_subject.icf_master_id_to_s, '[no ID assigned]'
+		imi = Factory(:icf_master_id,:icf_master_id => '12345678A')
+		study_subject.assign_icf_master_id
+		assert_not_nil study_subject.icf_master_id
+		assert_equal   study_subject.icf_master_id, imi.icf_master_id
+		assert_equal   study_subject.icf_master_id_to_s, imi.icf_master_id
+	end
+
+	test "should require unique icf_master_id" do
+		assert_difference('StudySubject.count',1){
+			Factory(:study_subject, :icf_master_id => 'Fake1234')
+		}
+		assert_difference('StudySubject.count',0){
+			study_subject = Factory.build(:study_subject, :icf_master_id => 'Fake1234')
+			study_subject.save
+			assert study_subject.errors.on_attr_and_type?(:icf_master_id, :taken)
+		}
+	end
+
+	test "should nullify blank state_id_no before validation" do
+		study_subject = Factory.build(:study_subject, :state_id_no => '')
+		assert  study_subject.state_id_no.blank?
+		assert !study_subject.state_id_no.nil?
+		study_subject.valid?
+		assert  study_subject.state_id_no.blank?
+		assert  study_subject.state_id_no.nil?
+	end 
+
+	test "should nullify blank state_registrar_no before validation" do
+		study_subject = Factory.build(:study_subject, :state_registrar_no => '')
+		assert  study_subject.state_registrar_no.blank?
+		assert !study_subject.state_registrar_no.nil?
+		study_subject.valid?
+		assert  study_subject.state_registrar_no.blank?
+		assert  study_subject.state_registrar_no.nil?
+	end 
+
+	test "should nullify blank local_registrar_no before validation" do
+		study_subject = Factory.build(:study_subject, :local_registrar_no => '')
+		assert  study_subject.local_registrar_no.blank?
+		assert !study_subject.local_registrar_no.nil?
+		study_subject.valid?
+		assert  study_subject.local_registrar_no.blank?
+		assert  study_subject.local_registrar_no.nil?
+	end 
+
+#	test "should pad subjectid with leading zeros before validation" do
+#		study_subject = Factory.build(:study_subject)
+#		assert study_subject.subjectid.length < 6 
+#		study_subject.valid?	#save
+#		assert study_subject.subjectid.length == 6
+#	end 
+
+	test "should pad matchingid with leading zeros before validation" do
+		study_subject = Factory.build(:study_subject,{ :matchingid => '123' })
+		assert study_subject.matchingid.length < 6 
+		assert_equal '123', study_subject.matchingid
+		study_subject.valid?	#save
+		assert study_subject.matchingid.length == 6
+		assert_equal '000123', study_subject.matchingid
+	end 
+
+	test "should pad patid with leading zeros before validation" do
+		study_subject = Factory.build(:study_subject)
+		study_subject.patid = '123'
+		assert study_subject.patid.length < 4
+		assert_equal '123', study_subject.patid
+		study_subject.valid?	#save
+		assert study_subject.patid.length == 4
+		assert_equal '0123', study_subject.patid
+	end 
+
+	#	remove ssn from factory and don't use class level test
+	test "should require unique ssn" do
+		Factory(:study_subject,:ssn => '123-45-6789')
+		assert_difference('StudySubject.count',0){
+			study_subject = Factory.build(:study_subject,:ssn => '123-45-6789')
+			study_subject.save
+			assert study_subject.errors.on_attr_and_type?(:ssn,:taken)
+		}
+	end
+
+	test "should nullify blank ssn" do
+		assert_difference('StudySubject.count',1){
+			study_subject = Factory(:study_subject, :ssn => '')
+			assert  study_subject.reload.ssn.nil?
+		}
+	end 
+
+	test "should create with string standard format ssn" do
+		assert_difference( "StudySubject.count", 1 ) do
+			study_subject = create_study_subject(:ssn => '987-65-4321')
+			assert !study_subject.new_record?, 
+				"#{study_subject.errors.full_messages.to_sentence}"
+			assert_equal '987-65-4321', study_subject.reload.ssn
+		end
+	end
+
+	test "should require standard formatted ssn" do
+		%w( 1s2n3-4k5=6;7sdfg89 123456789 12345678X 12345678 1-34-56-789 ).each do |invalid_ssn|
+			assert_difference( "StudySubject.count", 0 ) do
+				study_subject = create_study_subject(:ssn => invalid_ssn)
+				assert study_subject.errors.on_attr_and_type?(:ssn,:invalid)
+			end
+		end
+	end
+
+#	patid and childid should be protected as they are generated values
+
+	test "should generate orderno = 0 for case_control_type == 'c'" do
+		#	case_control_type is NOT the trigger.  SubjectType is.
+		study_subject = Factory(:case_study_subject).reload
+		assert_equal 0, study_subject.orderno
+	end
+
+	test "should not overwrite given studyid" do
+		study_subject = Factory(:study_subject,:studyid => 'MyStudyId').reload
+		assert_equal 'MyStudyId', study_subject.studyid
+	end
+
+	test "should set studyid with patid, case_control_type and orderno for" <<
+			" case_control_type c" do
+		StudySubject.any_instance.stubs(:get_next_patid).returns('123')
+		study_subject = Factory(:case_study_subject).reload
+		assert_equal "0123", study_subject.patid
+		assert_equal "C", study_subject.case_control_type
+		assert_equal "0", study_subject.orderno.to_s
+		assert_not_nil study_subject.studyid
+		assert_nil study_subject.studyid_nohyphen
+		assert_nil study_subject.studyid_intonly_nohyphen
+		assert_equal "0123-C-0", study_subject.studyid
+	end
+
+	test "should generate subjectid on creation for any study_subject" do
+		study_subject = Factory(:study_subject)
+		assert_not_nil study_subject.subjectid
+		assert study_subject.subjectid.length == 6
+	end
+
+	test "should generate patid on creation of case_control_type == 'c'" do
+		assert_difference('StudySubject.maximum(:patid).to_i', 1) {
+			study_subject = Factory(:case_study_subject).reload
+			assert_not_nil study_subject.patid
+		}
+	end
+
+	%w( c b f 4 5 6 ).each do |cct|
+
+		test "should generate childid on creation of case_control_type #{cct}" do
+			assert_difference('StudySubject.maximum(:childid).to_i', 1) {
+				study_subject = Factory(:study_subject, :case_control_type => cct )
+				assert_not_nil study_subject.childid
+			}
+		end
+
+		test "should generate familyid == subjectid on creation of case_control_type #{cct}" do
+			study_subject = Factory(:study_subject, :case_control_type => cct )
+			assert_not_nil study_subject.subjectid
+			assert_not_nil study_subject.familyid
+			assert_equal   study_subject.subjectid, study_subject.familyid
+		end
+
+	end
+
+	test "should generate familyid == child's subjectid on creation of case's mother" do
+		case_study_subject = create_case_study_subject
+		assert_equal case_study_subject.subjectid, case_study_subject.familyid
+		mother = case_study_subject.create_mother
+		assert_equal case_study_subject.subjectid, mother.familyid
+	end
+
+	test "should generate familyid == child's subjectid on creation of control's mother" do
+		control_study_subject = create_control_study_subject
+		assert_equal control_study_subject.subjectid, control_study_subject.familyid
+		mother = control_study_subject.create_mother
+		assert_equal control_study_subject.subjectid, mother.familyid
+	end
+
+	test "should generate matchingid == subjectid on creation of case" do
+		study_subject = Factory(:case_study_subject).reload
+		assert_not_nil study_subject.subjectid
+		assert_not_nil study_subject.matchingid
+		assert_equal   study_subject.subjectid, study_subject.matchingid
+	end
+
+	test "should not generate new patid for case if given" do
+		#	existing data import
+		assert_difference( "StudySubject.maximum(:patid).to_i", 123 ) {	#	was 0, now 123
+		assert_difference( "StudySubject.count", 1 ) {
+			study_subject = Factory(:case_study_subject, :patid => '123').reload
+			assert_not_nil study_subject.studyid
+			assert_nil study_subject.studyid_nohyphen
+			assert_nil study_subject.studyid_intonly_nohyphen
+			assert_equal "0123-C-0", study_subject.studyid
+			assert_equal "0123",     study_subject.patid
+		} } #}
+	end
+
+	test "should not generate new childid if given" do
+		#	existing data import
+		assert_difference( "StudySubject.maximum(:childid).to_i", 123 ) {	#	was 0, now 123
+		assert_difference( "StudySubject.count", 1 ) {
+			study_subject = Factory(:case_study_subject, :childid => '123').reload
+			assert_equal 123, study_subject.childid
+		} } #}
+	end
+
+	test "should not generate new orderno if given" do
+		#	existing data import
+		assert_difference( "StudySubject.count", 1 ) {
+			study_subject = Factory(:case_study_subject, :orderno => 9).reload
+			assert_equal 9, study_subject.orderno
+		}
+	end
+
+	test "should not generate new subjectid if given" do
+		#	existing data import
+		assert_difference( "StudySubject.count", 1 ) {
+			study_subject = Factory(:case_study_subject, :subjectid => 'ABCDEF').reload
+			assert_equal "ABCDEF", study_subject.subjectid
+		}
+	end
+
+	test "should not generate new familyid if given" do
+		#	existing data import
+		assert_difference( "StudySubject.count", 1 ) {
+			study_subject = Factory(:case_study_subject, :familyid => 'ABCDEF').reload
+			assert_equal "ABCDEF", study_subject.familyid
+		}
+	end
+
+	test "should not generate new matchingid if given" do
+		#	existing data import
+		assert_difference( "StudySubject.count", 1 ) {
+			study_subject = Factory(:case_study_subject, :matchingid => '123456').reload
+			assert_equal "123456", study_subject.matchingid
+		}
+	end
+
+	test "should find by studyid or icf_master_id with studyid" do
+		study_subject1 = Factory(:case_study_subject)
+		study_subject2 = Factory(:case_study_subject)
+		study_subjects = StudySubject.find_all_by_studyid_or_icf_master_id(
+			study_subject1.studyid, nil )
+		assert  study_subjects.include?(study_subject1)
+		assert !study_subjects.include?(study_subject2)
+	end
+
+	test "should find by studyid or icf_master_id with case studyid" do
+		subject = Factory(:complete_case_study_subject)
+		study_subjects = StudySubject.find_all_by_studyid_or_icf_master_id(
+			subject.studyid, nil )
+		assert study_subjects.include?(subject)
+	end
+
+	test "should find by studyid or icf_master_id with case icf_master_id" do
+		subject = Factory(:complete_case_study_subject)
+		Factory(:icf_master_id, :icf_master_id => '123456789' )
+		subject.assign_icf_master_id
+		study_subjects = StudySubject.find_all_by_studyid_or_icf_master_id(
+			nil, subject.icf_master_id )
+		assert study_subjects.include?(subject)
+	end
+
+	test "should find by studyid or icf_master_id with control studyid" do
+		subject = Factory(:complete_control_study_subject,
+			:patid => '1234', :case_control_type => 'X', :orderno => 9)
+		assert_equal subject.patid, '1234'
+		assert_equal subject.case_control_type, 'X'
+		assert_equal subject.orderno, 9
+		assert_equal subject.studyid, '1234-X-9'
+		study_subjects = StudySubject.find_all_by_studyid_or_icf_master_id(
+			subject.studyid, nil )
+		assert study_subjects.include?(subject)
+	end
+
+	test "should find by studyid or icf_master_id with control icf_master_id" do
+		subject = Factory(:complete_control_study_subject)
+		Factory(:icf_master_id, :icf_master_id => '123456789' )
+		subject.assign_icf_master_id
+		study_subjects = StudySubject.find_all_by_studyid_or_icf_master_id(
+			nil, subject.icf_master_id )
+		assert study_subjects.include?(subject)
+	end
+
+#	Mothers won't have a studyid
+#	test "should find by studyid or icf_master_id with mother studyid" do
+#		subject = Factory(:complete_mother_study_subject)
+#		puts subject.studyid
+#		study_subjects = StudySubject.find_all_by_studyid_or_icf_master_id(
+#			subject.studyid, nil )
+#		assert study_subjects.include?(subject)
+#	end
+
+	test "should find by studyid or icf_master_id with mother icf_master_id" do
+		subject = Factory(:complete_mother_study_subject)
+		Factory(:icf_master_id, :icf_master_id => '123456789' )
+		subject.assign_icf_master_id
+		study_subjects = StudySubject.find_all_by_studyid_or_icf_master_id(
+			nil, subject.icf_master_id )
+		assert study_subjects.include?(subject)
+	end
+
+#	TODO what about both studyid and icf_master_id?
+
+
+
+
+
+
+
+
+
+
+
+#	The problems with autogeneration of childid, patid and subjectid are
+#	that they cannot be validated automatically.  Validation would simply
+#	return this failure to the user, whom can do nothing about it.
+#	Autogeneration must work on its own.  subjectid seems to effectively
+#	select an unused subjectid, but if many subjects were being created at 
+#	the same time could theoretically select the same random number.
+#	If/When this occurs, a database error will be returned and confuse
+#	the user.
+#
+
+#	ActiveRecord::StatementInvalid: Mysql::Error: Duplicate entry '12345' for key 'index_identifiers_on_childid': INSERT INTO `identifiers` (`familyid`, `created_at`, `case_control_type`, `childidwho`, `ssn`, `updated_at`, `state_id_no`, `matchingid`, `gbid`, `idno_wiemels`, `related_childid`, `state_registrar_no`, `study_subject_id`, `studyid`, `childid`, `studyid_nohyphen`, `icf_master_id`, `orderno`, `lab_no`, `lab_no_wiemels`, `accession_no`, `subjectid`, `newid`, `studyid_intonly_nohyphen`, `local_registrar_no`, `patid`, `related_case_childid`) VALUES('407928', '2011-10-28 12:36:07', '3', NULL, '000000002', '2011-10-28 12:36:07', '2', NULL, '2', '2', NULL, '2', 2, NULL, 12345, NULL, '2', NULL, NULL, '2', '2', '407928', NULL, NULL, '2', NULL, NULL)
+	test "duplicating childid should raise database error" do
+		StudySubject.any_instance.stubs(:get_next_childid).returns(12345)
+		study_subject1 = Factory(:study_subject)
+		assert_not_nil study_subject1.childid
+		assert_raises(ActiveRecord::StatementInvalid){
+			study_subject2 = Factory(:study_subject)
+		}
+	end
+
+#	ActiveRecord::StatementInvalid: Mysql::Error: Duplicate entry '0123-C-0' for key 'piccton': INSERT INTO `identifiers` (`familyid`, `created_at`, `case_control_type`, `childidwho`, `ssn`, `updated_at`, `state_id_no`, `matchingid`, `gbid`, `idno_wiemels`, `related_childid`, `state_registrar_no`, `study_subject_id`, `studyid`, `childid`, `studyid_nohyphen`, `icf_master_id`, `orderno`, `lab_no`, `lab_no_wiemels`, `accession_no`, `subjectid`, `newid`, `studyid_intonly_nohyphen`, `local_registrar_no`, `patid`, `related_case_childid`) VALUES('975152', '2011-10-28 12:36:08', 'C', NULL, '000000004', '2011-10-28 12:36:08', '4', '975152', '4', '4', NULL, '4', 4, NULL, 2, NULL, '4', 0, NULL, '4', '4', '975152', NULL, NULL, '4', '0123', NULL)
+	test "duplicating patid should raise database error" do
+		StudySubject.any_instance.stubs(:get_next_patid).returns('0123')
+		study_subject1 = Factory(:case_study_subject)
+		assert_not_nil study_subject1.patid
+		assert_raises(ActiveRecord::StatementInvalid){
+			study_subject2 = Factory(:case_study_subject)
+		}
+	end
+
+	#	This should never actually happen as the code actually removes all those that exist.
+	#	But it does show that if/when creation of an identifier with an existing
+	#		is attempted, it will raise a database error.
+#	ActiveRecord::StatementInvalid: Mysql::Error: Duplicate entry '012345' for key 'index_identifiers_on_subjectid': INSERT INTO `identifiers` (`familyid`, `created_at`, `case_control_type`, `childidwho`, `ssn`, `updated_at`, `state_id_no`, `matchingid`, `gbid`, `idno_wiemels`, `related_childid`, `state_registrar_no`, `study_subject_id`, `studyid`, `childid`, `studyid_nohyphen`, `icf_master_id`, `orderno`, `lab_no`, `lab_no_wiemels`, `accession_no`, `subjectid`, `newid`, `studyid_intonly_nohyphen`, `local_registrar_no`, `patid`, `related_case_childid`) VALUES('012345', '2011-10-28 12:36:08', '5', NULL, '000000006', '2011-10-28 12:36:08', '6', NULL, '6', '6', NULL, '6', 6, NULL, 4, NULL, '6', NULL, NULL, '6', '6', '012345', NULL, NULL, '6', NULL, NULL)
+	test "duplicating subjectid should raise database error" do
+		StudySubject.any_instance.stubs(:generate_subjectid).returns('012345')
+		study_subject1 = Factory(:study_subject)
+		assert_not_nil study_subject1.subjectid
+		assert_raises(ActiveRecord::StatementInvalid){
+			study_subject2 = Factory(:study_subject)
+		}
+	end
+
+end