class TEST_STRATEGY

inherit
	AGENT_ARG[FILE_SYSTEM_OBJECT, BOOLEAN]
	KL_SHARED_STANDARD_FILES

feature {ANY}
	-- Status Report
	is_callable: BOOLEAN is
			-- Can we use `call'?
		do
			Result := True
		end

	is_executable: BOOLEAN is
			-- Can we use `execute'?
		do
			Result := True
		end
feature {ANY}
	-- Access
	call (a_fso: FILE_SYSTEM_OBJECT) is
			-- overridden call to print some useful information
		do
			std.output.put_string(" |- Looking at: ")
			std.output.put_string(a_fso.name)
			std.output.put_character('%N')
		end

	execute (a_fso: FILE_SYSTEM_OBJECT): BOOLEAN is
			-- overridden execute to print some useful information
		do
			call (a_fso)
			Result := True
		end
end -- class TEST_STRATEGY

	
