home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / SmallEiffel 0.3.3 / SmallEiffel 68k / lib_test / test_rename1.e < prev    next >
Encoding:
Text File  |  1996-06-13  |  943 b   |  54 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_RENAME1
  5.    
  6. inherit 
  7.    ANY
  8.       rename equal as dummy_equal
  9.       end;
  10.    
  11. creation {ANY}
  12.    make
  13.    
  14. feature {ANY}
  15.    
  16.    r: INTEGER is
  17.       do
  18.      Result := 1;
  19.       end;
  20.    
  21.    make is
  22.       local
  23.      aux: AUX_RENAME1;
  24.      c: TEST_RENAME1;
  25.       do
  26.      -- ??     is_true(dummy_equal(Current,Current));
  27.      --     PB dans rename of real procedure.
  28.      
  29.      is_true(r = 1);
  30.      !!aux;
  31.      is_true(aux.r = 2);
  32.      is_true(aux.super_r = 1);
  33.      c := Current;
  34.      is_true(c.r = 1);
  35.      c := aux;
  36.      is_true(c.r = 1);
  37.       end;
  38.  
  39.    is_true(b: BOOLEAN) is
  40.       do
  41.      cpt := cpt + 1;
  42.      if not b then
  43.         std_output.put_string("TEST_RENAME1: ERROR Test # ");
  44.         std_output.put_integer(cpt);
  45.         std_output.put_string("%N");
  46.      else
  47.         -- std_output.put_string("Yes%N");
  48.      end;
  49.       end;
  50.    
  51.    cpt: INTEGER;
  52.    
  53. end -- TEST_RENAME1
  54.