/test/language/address_of/test_address_of1.e

http://github.com/tybor/Liberty · Specman e · 24 lines · 18 code · 6 blank · 0 comment · 0 complexity · a61ffc382c94ce5987c4f0f5f141a25d MD5 · raw file

  1. class TEST_ADDRESS_OF1
  2. insert
  3. EIFFELTEST_TOOLS
  4. create {}
  5. main
  6. feature {}
  7. main
  8. do
  9. proc($function)
  10. end
  11. function: INTEGER
  12. do
  13. end
  14. proc (pointer: POINTER)
  15. do
  16. assert(pointer.is_not_null)
  17. end
  18. end