Celestin Apprentice 5/Apprentice-Release5.iso/Environments/SmallEiffel 0.3.3/SmallEiffel 68k/lib_test/test_generic7.e

Text File | 1996-06-13 | 559 b | 35 lines | [TEXT/EDIT]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
class TEST_GENERIC7
   -- From a bug report of Xavier GREGUT

creation make

feature

    make is
    local
        table: AUX_GENERIC7HT[STRING,INTEGER];
    do
        !! table.make(10);
        table.put(5, "cinq");
        display(table);
    end;

    display(l: AUX_GENERIC7XCT[INTEGER]) is
    do
        from
        l.start;
        until
        l.after
        loop
           check
          l.item = 5
           end;
           l.forth;
        end;
    end;

end -- TEST_GENERIC7