/test/language/unclassified/woj/aux_woj01_ref.e

http://github.com/tybor/Liberty · Specman e · 22 lines · 16 code · 6 blank · 0 comment · 0 complexity · 7ea0ae97cc0d438a0ac8ed9ea9aba017 MD5 · raw file 

    

  1. class AUX_WOJ01_REF
    2. 

  2. 

  3. inherit
    4. 

  4.    AUX_WOJ01_DEF
    5. 

  5. 

  6. create {ANY}
    7. 

  7.    make
    8. 

  8. 

  9. feature {ANY}
    10. 

  10.    s: STRING
    11. 

  11. 

  12.    make
    13. 

  13.       do
    14. 

  14.          create s.make(0)
    15. 

  15.       end
    16. 

  16. 

  17.    set (i: INTEGER)
    18. 

  18.       do
    19. 

  19.          s := i.out
    20. 

  20.       end
    21. 

  21. 

  22. end -- class AUX_WOJ01_REF
    23.