home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / SmallEiffel 0.3.3 / SmallEiffel 68k / lib_test / test_array_resize.e < prev    next >
Encoding:
Text File  |  1996-06-13  |  1.6 KB  |  73 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_ARRAY_RESIZE
  5.  
  6. creation {ANY}
  7.    make
  8.    
  9. feature {ANY}
  10.    
  11.    ti1, ti2: ARRAY[INTEGER];
  12.    tc1, tc2: ARRAY[CAT];
  13.         
  14.    c1, c2, c3, c4, c5, c6: CAT;
  15.  
  16.    make is
  17.       do
  18.      ti1 := <<1,2,3,4,5,6,7,8,9>>;
  19.      ti2 := <<1,2,3,4,5,6,7,8,9>>;
  20.      ti1.resize(2,9);
  21.      is_true(ti1.is_equal(ti2.sub_array(2,9)));
  22.      ti1.resize(2,8);
  23.      is_true(ti1.is_equal(ti2.sub_array(2,8)));
  24.      ti1.resize(3,7);
  25.      is_true(ti1.is_equal(ti2.sub_array(3,7)));
  26.      ti1.resize(1,9);
  27.      is_true(ti1.is_equal(<<0,0,3,4,5,6,7,0,0>>));
  28.      ti1.resize(1,10);
  29.      is_true(ti1.is_equal(<<0,0,3,4,5,6,7,0,0,0>>));
  30.      ti1.make(1,9);
  31.      is_true(ti1.is_equal(<<0,0,0,0,0,0,0,0,0>>));
  32.      
  33.      !!c1;
  34.      !!c2;
  35.      !!c3;
  36.      !!c4;
  37.      !!c5;
  38.      !!c6;
  39.      
  40.      tc1 := <<c1,c2,c3,c4,c5,c6>>;
  41.      tc2 := <<c1,c2,c3,c4,c5,c6>>;
  42.      tc1.resize(2,6);
  43.      is_true(tc1.is_equal(tc2.sub_array(2,6)));
  44.      tc1.resize(2,5);
  45.      is_true(tc1.is_equal(tc2.sub_array(2,5)));
  46.      tc1.resize(3,4);
  47.      is_true(tc1.is_equal(tc2.sub_array(3,4)));
  48.      tc1.resize(1,6);
  49.      is_true(tc1.is_equal(<<Void,Void,c3,c4,Void,Void>>));
  50.      tc1.resize(1,7);
  51.      is_true(tc1.is_equal(<<Void,Void,c3,c4,Void,Void,Void>>));
  52.      tc1.make(1,6);
  53.      tc2.clear_all;
  54.      is_true(tc1.is_equal(tc2));
  55.       
  56.       end;
  57.    
  58.    is_true(b: BOOLEAN) is
  59.       do
  60.      cpt := cpt + 1;
  61.      if not b then
  62.         std_output.put_string("TEST_ARRAY_RESIZE: ERROR Test # ");
  63.         std_output.put_integer(cpt);
  64.         std_output.put_string("%N");
  65.      else
  66.         -- std_output.put_string("Yes%N");
  67.      end;
  68.       end;
  69.    
  70.    cpt: INTEGER;
  71.    
  72. end -- TEST_ARRAY_RESIZE
  73.