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 / test_string2.e < prev    next >
Encoding:
Text File  |  1996-05-02  |  1.3 KB  |  68 lines
  1. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  2. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  3. --
  4. class TEST_STRING2
  5.    
  6. creation {ANY}
  7.    make
  8.    
  9. feature {ANY}
  10.    
  11.    make is
  12.       local
  13.      s1, s2: STRING;
  14.       do
  15.           !!s1.copy("kiki");
  16.      is_true(equal(s1,"kiki"));
  17.  
  18.      !!s2.copy(s1);
  19.      is_true(s1 /= s2);
  20.      is_true(s1.is_equal(s2));
  21.  
  22.      s1 := s2;
  23.      !!s2.copy(s2);
  24.      is_true(s1 /= s2);
  25.      is_true(s1.is_equal(s2));
  26.  
  27.      !!s1.make(25);
  28.      is_true(s1.capacity >= 25);
  29.      is_true(s1.count = 0);
  30.  
  31.      !!s1.blank(25);
  32.      is_true(s1.capacity >= 25);
  33.      is_true(s1.occurrences_of(' ') = 25);
  34.      is_true(s1.count = 25);
  35.  
  36.      !!s1.make(1);
  37.      is_true(s1.capacity >= 1);
  38.      is_true(s1.count = 0);
  39.      s1.extend('x');
  40.      is_true(s1.count = 1);
  41.  
  42.      s1 := "foo.c";
  43.      s1.remove_suffix(".c");
  44.      is_true(s1.is_equal("foo"));
  45.  
  46.      is_true(("foo bar").has_prefix("foo"));
  47.      is_true(("foo bar").has_prefix(""));
  48.      is_true(("foo bar").has_suffix(""));
  49.      is_true(not ("foo").has_prefix("foo bar"));
  50.      is_true(not ("foo bar").has_prefix(" foo"));
  51.       end;
  52.    
  53.    is_true(b: BOOLEAN) is
  54.       do
  55.      cpt := cpt + 1;
  56.      if not b then
  57.         std_output.put_string("TEST_STRING2: ERROR Test # ");
  58.         std_output.put_integer(cpt);
  59.         std_output.put_string("%N");
  60.      else
  61.         -- std_output.put_string("Yes %N");
  62.      end;
  63.       end;
  64.    
  65.    cpt: INTEGER;
  66.    
  67. end -- TEST_STRING2
  68.