/test/language/unclassified/uw/test_uw02.e

http://github.com/tybor/Liberty · Specman e · 20 lines · 15 code · 4 blank · 1 comment · 0 complexity · e19d822d9c4f469bee816e361a0d3fbf MD5 · raw file 

    

  1. class TEST_UW02
    2. 

  2.    -- From a bug report of Ulrich Windl
    3. 

  3. 

  4. create {}
    5. 

  5.    make
    6. 

  6. 

  7. feature {ANY}
    8. 

  8.    make
    9. 

  9.       local
    10. 

  10.          s: STRING
    11. 

  11.       do
    12. 

  12.          s := dummy_once
    13. 

  13.       end
    14. 

  14. 

  15.    dummy_once: STRING
    16. 

  16.       do
    17. 

  17.          Result := "Is this stupid ;-)"
    18. 

  18.       end
    19. 

  19. 

  20. end -- class TEST_UW02
    21.