/test/language/unclassified/wmh/aux_wmh06.e

http://github.com/tybor/Liberty · Specman e · 25 lines · 19 code · 6 blank · 0 comment · 1 complexity · 454b9063b31525270d57cbb90ef2b321 MD5 · raw file

  1. class AUX_WMH06
  2. inherit
  3. DISPOSABLE
  4. create {ANY}
  5. make
  6. feature {}
  7. make
  8. do
  9. end
  10. feature {}
  11. dispose
  12. do
  13. dispose_count := dispose_count + 1
  14. if dispose_count > 1 then
  15. io.put_string("Error in TEST_WMH06.%N")
  16. end
  17. end
  18. dispose_count: INTEGER
  19. end -- class AUX_WMH06