indexing description: "Objects that test EV_LABEL." author: "" date: "$Date$" revision: "$Revision$" class LABEL_BASIC_TEST inherit COMMON_TEST redefine default_create end feature {NONE} -- Initialization default_create is -- Create `Current' and initialize test in `widget'. do -- Create `label' using `make_with_text'. create label.make_with_text ("A Label") widget := label end feature {NONE} -- Implementation label: EV_LABEL -- Widget that test is to be performed on. end -- class LABEL_BASIC_TEST