/test/language/unclassified/test_fa2.e
Specman e | 50 lines | 25 code | 3 blank | 22 comment | 1 complexity | 79196c73ae5f094fa45b9abbcf66e8cf MD5 | raw file
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-- ------------------------------------------------------------------------------------------------------------------------------