with Ada.Text_IO;		use Ada.Text_IO;
with Ada.Strings.Unbounded; 	use Ada.Strings.Unbounded;
with Systems;			use Systems;
with Caches;			use Caches;
with Cache_Set;			use Cache_Set;

procedure cache_analysis_test
is
   my_caches			: Caches_Set;
   cache_replacement		: Cache_Replacement_Type;
   cache_coherence_protocol	: Cache_Coherence_Protocol_Type;
   cache_category		: Cache_Type;

   a_cache_ptr			: Generic_Cache_Ptr;
   a_system			: System;

begin
   Put_line ("Hello CHEDDAR !");

   Initialize(A_System => a_system);

   cache_replacement := Cache_Replacement_Type'Val(0);
   cache_coherence_protocol := Cache_Coherence_Protocol_Type'Val(0);
   cache_category := Cache_Type'Val(0);

   Add_Cache(a_system.Caches,
             To_Unbounded_String ("Cache01"),
             5,
             5,
             1,
             cache_replacement,
             1.1,
             1.1,
             1,
             cache_coherence_protocol,
             cache_category);

   a_cache_ptr := a_system.Caches.Search_Cache(name => To_Unbounded_String("Cache01"));
   Put_line (To_String(a_cache_ptr.name));
   Put_line ("------------------------");
   Put_line ("Write system to xml file");
   Write_To_Xml_File(A_System  => a_system,
                     File_Name => "binaries/bin/debug/namth_test.xml");
   Put_line ("Finish write");
   Put_line ("------------------------");

end cache_analysis_test;