home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / SmallEiffel 0.3.3 / SmallEiffel 68k / lib_test / test_inherit_array1.e < prev    next >
Encoding:
Text File  |  1996-06-13  |  762 b   |  33 lines  |  [TEXT/EDIT]
  1. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  2. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  3. --
  4. class TEST_INHERIT_ARRAY1
  5.  
  6. creation make
  7.    
  8. feature 
  9.    
  10.    a_integer: AUX_INHERIT_ARRAY1[INTEGER];
  11.    a_real: AUX_INHERIT_ARRAY1[REAL];
  12.    a_double: AUX_INHERIT_ARRAY1[DOUBLE];
  13.    a_character: AUX_INHERIT_ARRAY1[CHARACTER];
  14.    a_boolean: AUX_INHERIT_ARRAY1[BOOLEAN];
  15.    a_any: AUX_INHERIT_ARRAY1[ANY];
  16.  
  17.    make is
  18.       local
  19.      cat: CAT;
  20.      dog: DOG;
  21.       do
  22.      !!a_integer.make(<<1,2,3>>);
  23. --     !!a_real.make(<<1.0,2.5,3.6>>);
  24. --     !!a_double.make(<<1.0,2.0,3.7>>);
  25.      !!a_boolean.make(<<true,false,true>>);
  26.      !!cat;
  27.      !!dog;
  28. --     !!a_any.make(<<cat,2,dog>>);
  29. --     !!a_any.make(<<cat,Void,dog>>);
  30.       end;
  31.    
  32. end -- TEST_INHERIT_ARRAY1
  33.