/test/language/unclassified/test_fa2.e

 1-- This file is part of SmartEiffel The GNU Eiffel Compiler Tools and Libraries.
 2-- See the Copyright notice at the end of this file.
 3--
 4class TEST_FA2
 5   -- From a bug report of Franck ARNAUD
 6
 7create {}
 8   make
 9
10feature {ANY}
11   make
12      local
13         strings: AUX_FA2DICO[STRING, INTEGER]; streams: AUX_FA2DICO[INPUT_STREAM, INTEGER]
14         bidon1: AUX_FA2MY_SET[AUX_FA2DICO_NODE[STRING, INTEGER]]; bidon2: AUX_FA2DICO[STRING, INTEGER]
15         bidon3: AUX_FA2DICO[INPUT_STREAM, INTEGER]
16         bidon4: AUX_FA2MY_LINKED_LIST[AUX_FA2DICO_NODE[INPUT_STREAM, INTEGER]]
17         bidon5: AUX_FA2MY_LINKED_LIST[AUX_FA2DICO_NODE[STRING, INTEGER]]
18         bidon6: AUX_FA2MY_SET[AUX_FA2DICO_NODE[INPUT_STREAM, INTEGER]]; bobool: BOOLEAN
19      do
20         if bobool then
21            strings.remove
22            streams.remove
23         end
24         create bidon1
25         create bidon2
26         create bidon3
27         create bidon4
28         create bidon5
29         create bidon6
30      end
31
32end -- class TEST_FA2
33--
34-- ------------------------------------------------------------------------------------------------------------------------------
35-- Copyright notice below. Please read.
36--
37-- SmartEiffel is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License,
38-- as published by the Free Software Foundation; either version 2, or (at your option) any later version.
39-- SmartEiffel is distributed in the hope that it will be useful but WITHOUT ANY WARRANTY; without even the implied warranty
40-- of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have
41-- received a copy of the GNU General Public License along with SmartEiffel; see the file COPYING. If not, write to the Free
42-- Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
43--
44-- Copyright(C) 1994-2002: INRIA - LORIA (INRIA Lorraine) - ESIAL U.H.P.       - University of Nancy 1 - FRANCE
45-- Copyright(C) 2003-2006: INRIA - LORIA (INRIA Lorraine) - I.U.T. Charlemagne - University of Nancy 2 - FRANCE
46--
47-- Authors: Dominique COLNET, Philippe RIBET, Cyril ADRIAN, Vincent CROIZIER, Frederic MERIZEN
48--
49-- http://SmartEiffel.loria.fr - SmartEiffel@loria.fr
50-- ------------------------------------------------------------------------------------------------------------------------------