-- Copyright 1994 Grady Booch -- Copyright 1998-2003 Simon Wright -- This package is free software; you can redistribute it and/or -- modify it under terms of the GNU General Public License as -- published by the Free Software Foundation; either version 2, or -- (at your option) any later version. This package 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 distributed with this package; see file COPYING. If not, -- write to the Free Software Foundation, 59 Temple Place - Suite -- 330, Boston, MA 02111-1307, USA. -- $Id: queue_test_support.ads,v 1.6.2.2 2003/02/08 16:27:54 simon Exp $ with BC.Containers; with BC.Containers.Queues; with BC.Containers.Queues.Bounded; with BC.Containers.Queues.Dynamic; with BC.Containers.Queues.Unbounded; with BC.Containers.Queues.Unmanaged; with BC.Support.Standard_Storage; with Global_Heap; package Queue_Test_Support is package Containers is new BC.Containers (Item => Character); package Queues is new Containers.Queues; package QB is new Queues.Bounded (Maximum_Size => 100); package QD is new Queues.Dynamic (Initial_Size => 10, Storage => Global_Heap.Storage); package QU is new Queues.Unbounded (Storage => BC.Support.Standard_Storage.Pool); package QUM is new Queues.Unmanaged; end Queue_Test_Support;