home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / eiffel / smalleif.97 / se.t / SmallEiffel / lib_test / bug_array2aux.e < prev    next >
Encoding:
Text File  |  1996-05-02  |  338 b   |  24 lines
  1. class TEST_ARRAY_AUX
  2. --
  3. -- From a bug report of Marc SCALZOLARO
  4. --
  5. creation {ANY}
  6.    make
  7.    
  8. feature {ANY}
  9.    
  10.    tab: ARRAY[ARRAY[INTEGER]] is
  11.       once
  12.      Result := << <<1,2,3>>, <<4,5,6>> >>;
  13.       end;
  14.    
  15.    tab2 : ARRAY2[INTEGER];
  16.    
  17.    make is 
  18.       do
  19.      !!tab2.array2 (tab);
  20.      tab2.transpose;
  21.       end;
  22.  
  23. end -- TEST_ARRAY2AUX
  24.