/test/language/unclassified/test_fa2.e

http://github.com/tybor/Liberty · 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. 

  2. -- See the Copyright notice at the end of this file.
    3. 

  3. --
    4. 

  4. class TEST_FA2
    5. 

  5.    -- From a bug report of Franck ARNAUD
    6. 

  6. 

  7. create {}
    8. 

  8.    make
    9. 

  9. 

  10. feature {ANY}
    11. 

  11.    make
    12. 

  12.       local
    13. 

  13.          strings: AUX_FA2DICO[STRING, INTEGER]; streams: AUX_FA2DICO[INPUT_STREAM, INTEGER]
    14. 

  14.          bidon1: AUX_FA2MY_SET[AUX_FA2DICO_NODE[STRING, INTEGER]]; bidon2: AUX_FA2DICO[STRING, INTEGER]
    15. 

  15.          bidon3: AUX_FA2DICO[INPUT_STREAM, INTEGER]
    16. 

  16.          bidon4: AUX_FA2MY_LINKED_LIST[AUX_FA2DICO_NODE[INPUT_STREAM, INTEGER]]
    17. 

  17.          bidon5: AUX_FA2MY_LINKED_LIST[AUX_FA2DICO_NODE[STRING, INTEGER]]
    18. 

  18.          bidon6: AUX_FA2MY_SET[AUX_FA2DICO_NODE[INPUT_STREAM, INTEGER]]; bobool: BOOLEAN
    19. 

  19.       do
    20. 

  20.          if bobool then
    21. 

  21.             strings.remove
    22. 

  22.             streams.remove
    23. 

  23.          end
    24. 

  24.          create bidon1
    25. 

  25.          create bidon2
    26. 

  26.          create bidon3
    27. 

  27.          create bidon4
    28. 

  28.          create bidon5
    29. 

  29.          create bidon6
    30. 

  30.       end
    31. 

  31. 

  32. end -- class TEST_FA2
    33. 

  33. --
    34. 

  34. -- ------------------------------------------------------------------------------------------------------------------------------
    35. 

  35. -- Copyright notice below. Please read.
    36. 

  36. --
    37. 

  37. -- SmartEiffel is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License,
    38. 

  38. -- as published by the Free Software Foundation; either version 2, or (at your option) any later version.
    39. 

  39. -- SmartEiffel is distributed in the hope that it will be useful but WITHOUT ANY WARRANTY; without even the implied warranty
    40. 

  40. -- of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have
    41. 

  41. -- received a copy of the GNU General Public License along with SmartEiffel; see the file COPYING. If not, write to the Free
    42. 

  42. -- Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
    43. 

  43. --
    44. 

  44. -- Copyright(C) 1994-2002: INRIA - LORIA (INRIA Lorraine) - ESIAL U.H.P.       - University of Nancy 1 - FRANCE
    45. 

  45. -- Copyright(C) 2003-2006: INRIA - LORIA (INRIA Lorraine) - I.U.T. Charlemagne - University of Nancy 2 - FRANCE
    46. 

  46. --
    47. 

  47. -- Authors: Dominique COLNET, Philippe RIBET, Cyril ADRIAN, Vincent CROIZIER, Frederic MERIZEN
    48. 

  48. --
    49. 

  49. -- http://SmartEiffel.loria.fr - SmartEiffel@loria.fr
    50. 

  50. -- ------------------------------------------------------------------------------------------------------------------------------
    51.