1--  Copyright 2009 Simon Wright <simon@pushface.org>
2
3--  This package is free software; you can redistribute it and/or
4--  modify it under terms of the GNU General Public License as
5--  published by the Free Software Foundation; either version 2, or
6--  (at your option) any later version. This package is distributed in
7--  the hope that it will be useful, but WITHOUT ANY WARRANTY; without
8--  even the implied warranty of MERCHANTABILITY or FITNESS FOR A
9--  PARTICULAR PURPOSE. See the GNU General Public License for more
10--  details. You should have received a copy of the GNU General Public
11--  License distributed with this package; see file COPYING.  If not,
12--  write to the Free Software Foundation, 59 Temple Place - Suite
13--  330, Boston, MA 02111-1307, USA.
14
15--  $Revision$
16--  $Date$
17--  $Author$
18--
19--  Non-simple item kinds for tests.
20
21with Ada.Strings.Maps.Constants;
22
23package body Tests.Support is
24
25
26   use Ada.Strings.Maps;
27   use Ada.Strings.Maps.Constants;
28
29
30   --  Compares only the Character components (case-insensitively).
31   function "=" (L, R : Item) return Boolean is
32   begin
33      return Value (Lower_Case_Map, L.C) = Value (Lower_Case_Map, R.C);
34   end "=";
35
36
37   --  Compares only the Character components (case-insensitively).
38   function "<" (L, R : Item) return Boolean is
39   begin
40      return Value (Lower_Case_Map, L.C) < Value (Lower_Case_Map, R.C);
41   end "<";
42
43
44end Tests.Support;
45