indexing
	description: "System's root class"

class
	TEST

create
	make 

feature -- Initialization
	
	
	make is
		do
			test_agents_on_attributes_and_externals 
		end
	
	tests_simple is
		local
			f1: FUNCTION [INTEGER]
			f2: FUNCTION [STRING, STRING, STRING]
			p1: PROCEDURE
			p2: PROCEDURE [STRING, STRING]
		do
		end
	
		
	test_agents_on_attributes_and_externals is
		do
			a := 100
			print ("Attributes, we expect 100 and get: " + (agent a).item ([]).out)
			io.new_line
			
			print ("Externals, we expect 100 and get: " + (agent get_a_c_int).item ([]).out)
			io.new_line			
		end

	a: INTEGER
	
	frozen get_a_c_int: INTEGER is
		external
			"C inline"
		alias
			"[
				return 100
			]"
		end
		
	test_procedure_with_locals is
		local
			p: PROCEDURE [INTEGER, STRING]
		do
		end
		
	test_sortable_array is
		local
			a_int: I_SORTABLE_ARRAY [INTEGER]
			a_string: I_SORTABLE_ARRAY [STRING]
		do
		end
		
end