indexing

	description:

		"Bitmap tests for EiffelMedia"

	library: "EM test"
	copyright: "Copyright (c) 2002, Till G. Bay and others"
	license: "Eiffel Forum License v2 (see forum.txt)"
	date: "$Date$"
	revision: "$Revision$"

deferred class EM_TEST_BITMAP

inherit

	EM_TEST_CASE
	redefine
		set_up
	end

	EM_APPLICATION

	EM_SHARED_BITMAP_FACTORY

feature

	set_up is
			-- set up the environment
		do
			video_subsystem.enable
		end



	test_bitmap is
			-- test bitmap class
		local
			b: EM_BITMAP
			c: EM_COLOR
		do
			bitmap_factory.create_empty_bitmap (10, 10)
			b := bitmap_factory.last_bitmap
			create c.make_with_rgb (10, 20, 30)

			b.lock
			b.set_pixel (0, 0, c)
			assert_equal ("em_bitmap_color", b.pixel_color (0, 0), c)
			b.unlock
		end
end