------------------------------------------------------------------------------
--                              Vision2Pixels                               --
--                                                                          --
--                         Copyright (C) 2006-2012                          --
--                      Pascal Obry - Olivier Ramonat                       --
--                                                                          --
--  This library is free software; you can redistribute it and/or modify    --
--  it under the terms of the GNU General Public License as published by    --
--  the Free Software Foundation; either version 2 of the License, or (at   --
--  your option) any later version.                                         --
--                                                                          --
--  This library is distributed in the hope that it will be useful, but     --
--  WITHOUT ANY WARRANTY; without even the implied warranty of              --
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU       --
--  General Public License for more details.                                --
--                                                                          --
--  You should have received a copy of the GNU General Public License       --
--  along with this library; if not, write to the Free Software Foundation, --
--  Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.       --
------------------------------------------------------------------------------

with Web_Tests.CdC;
with Web_Tests.Forum_Entry;
with Web_Tests.Last_Visit;
with Web_Tests.Last_Visit_After_Post;
with Web_Tests.Menu;
with Web_Tests.Post;
with Web_Tests.RSS;
with Web_Tests.Themes;
with Web_Tests.Threads_Navigation;
with Web_Tests.User;
with Web_Tests.User_Page;
with Web_Tests.Wiki;

package body Web_Suite is

   Web_Suite_Test : Access_Test_Suite;

   ----------------------
   -- Web_Suite_Access --
   ----------------------

   function Web_Suite_Access return Access_Test_Suite is
   begin
      return Web_Suite_Test;
   end Web_Suite_Access;

begin --  Web_Suite : Initialize the web_suite test

   Web_Suite_Test := new Test_Suite;
   Add_Test (Web_Suite_Test, new Web_Tests.Last_Visit.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.Wiki.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.CdC.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.User.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.Threads_Navigation.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.Post.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.Last_Visit_After_Post.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.Menu.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.User_Page.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.Forum_Entry.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.RSS.Test_Case);
   Add_Test (Web_Suite_Test, new Web_Tests.Themes.Test_Case);
end Web_Suite;
