/test/lib/string/test_string11.e

http://github.com/tybor/Liberty · Specman e · 68 lines · 43 code · 4 blank · 21 comment · 0 complexity · 777f2e675f5f4c130c318712acf6be06 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. --
  4. class TEST_STRING11
  5. insert
  6. EIFFELTEST_TOOLS
  7. create {}
  8. make
  9. feature {ANY}
  10. make
  11. local
  12. c: CHARACTER; s, s1, s2: STRING
  13. do
  14. c := 0.hexadecimal_digit
  15. assert(c = '0')
  16. c := 1.hexadecimal_digit
  17. assert(c = '1')
  18. c := 9.hexadecimal_digit
  19. assert(c = '9')
  20. c := 10.hexadecimal_digit
  21. assert(c = 'A')
  22. c := 15.hexadecimal_digit
  23. assert(c = 'F')
  24. s := "0000"
  25. s.to_hexadecimal
  26. assert(("0").is_equal(s))
  27. s := "1000"
  28. s.to_hexadecimal
  29. assert(("8").is_equal(s))
  30. s := "1111"
  31. s.to_hexadecimal
  32. assert(("F").is_equal(s))
  33. s := "111"
  34. s.to_hexadecimal
  35. assert(("7").is_equal(s))
  36. s := "11111"
  37. s.to_hexadecimal
  38. assert(("1F").is_equal(s))
  39. s := "11111111"
  40. s.to_hexadecimal
  41. assert(("FF").is_equal(s))
  42. create s1.make(1)
  43. create s2.make(0)
  44. s1.append(s2)
  45. end
  46. end -- class TEST_STRING11
  47. --
  48. -- ------------------------------------------------------------------------------------------------------------------------------
  49. -- Copyright notice below. Please read.
  50. --
  51. -- SmartEiffel is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License,
  52. -- as published by the Free Software Foundation; either version 2, or (at your option) any later version.
  53. -- SmartEiffel is distributed in the hope that it will be useful but WITHOUT ANY WARRANTY; without even the implied warranty
  54. -- of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have
  55. -- received a copy of the GNU General Public License along with SmartEiffel; see the file COPYING. If not, write to the Free
  56. -- Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
  57. --
  58. -- Copyright(C) 1994-2002: INRIA - LORIA (INRIA Lorraine) - ESIAL U.H.P. - University of Nancy 1 - FRANCE
  59. -- Copyright(C) 2003-2006: INRIA - LORIA (INRIA Lorraine) - I.U.T. Charlemagne - University of Nancy 2 - FRANCE
  60. --
  61. -- Authors: Dominique COLNET, Philippe RIBET, Cyril ADRIAN, Vincent CROIZIER, Frederic MERIZEN
  62. --
  63. -- http://SmartEiffel.loria.fr - SmartEiffel@loria.fr
  64. -- ------------------------------------------------------------------------------------------------------------------------------