test_setting_bible_emits_bible_set is
		local
			signal_log: ARRAY [BIBLE_ACCESS]
			bible: BIBLE
		do
			create bible.from_id (settings.bible_id)
			create signal_log.make (1, 0)
			
			bible_access.bible_set.connect (agent signal_log.add_last)
			
			bible_access.set_bible (bible)
			assert_integers_equal ("signal emitted once", 1, signal_log.count)
			assert_equal ("bible_set emitted", bible_access, signal_log.first)
		end