//Small header to get STLport numerous defines:

 #include <utility>

 #if defined (STLPORT) && !defined (_STLP_NO_EXTENSIONS)

 #  include <rope>

 #  if !defined (_STLP_USE_NO_IOSTREAMS)

 #    include <sstream>

 #  endif

 #endif

 #include "cppunit/cppunit_proxy.h"

 // #include <stdlib.h> // for rand etc

 #if defined (_STLP_USE_NAMESPACES)

 using namespace std;

 #endif

 //

 // TestCase class

 //

 class RopeTest : public CPPUNIT_NS::TestCase

 {

   CPPUNIT_TEST_SUITE(RopeTest);

 #if !defined (STLPORT) || defined (_STLP_NO_EXTENSIONS) || defined (_STLP_USE_NO_IOSTREAMS)

   CPPUNIT_IGNORE;

 #endif

   CPPUNIT_TEST(io);

 #if defined (_STLP_USE_NO_IOSTREAMS)

   CPPUNIT_STOP_IGNORE;

 #endif

   CPPUNIT_TEST(find1);

   CPPUNIT_TEST(find2);

   CPPUNIT_TEST(construct_from_char);

   CPPUNIT_TEST(bug_report);

 #if !defined (_STLP_MEMBER_TEMPLATES)

   CPPUNIT_IGNORE;

 #endif

   CPPUNIT_TEST(test_saved_rope_iterators);

   CPPUNIT_TEST_SUITE_END();

 protected:

   void io();

   void find1();

   void find2();

   void construct_from_char();

   void bug_report();

   void test_saved_rope_iterators();

 };

 CPPUNIT_TEST_SUITE_REGISTRATION(RopeTest);

 //

 // tests implementation

 //

 void RopeTest::io()

 {

 #if defined (STLPORT) && !defined (_STLP_NO_EXTENSIONS) && !defined (_STLP_USE_NO_IOSTREAMS) 

   char const* cstr = "rope test string";

   crope rstr(cstr);

   {

     ostringstream ostr;

     ostr << rstr;

     CPPUNIT_ASSERT( ostr );

     CPPUNIT_ASSERT( ostr.str() == cstr );

   }

 #endif

 }

 void RopeTest::find1()

 {

 #if defined (STLPORT) && !defined (_STLP_NO_EXTENSIONS) 

   crope r("Fuzzy Wuzzy was a bear");

   crope::size_type n = r.find( "hair" );

   CPPUNIT_ASSERT( n == crope::npos );

   n = r.find("ear");

   CPPUNIT_ASSERT( n == (r.size() - 3) );

 #endif

 }

 void RopeTest::find2()

 {

 #if defined (STLPORT) && !defined (_STLP_NO_EXTENSIONS) 

   crope r("Fuzzy Wuzzy was a bear");

   crope::size_type n = r.find( 'e' );

   CPPUNIT_ASSERT( n == (r.size() - 3) );

 #endif

 }

 void RopeTest::construct_from_char()

 {

 #if defined (STLPORT) && !defined (_STLP_NO_EXTENSIONS) 

   crope r('1');

   char const* s = r.c_str();

   CPPUNIT_ASSERT( '1' == s[0] && '\0' == s[1] );

 #endif

 }

 // Test used for a bug report from Peter Hercek

 void RopeTest::bug_report()

 {

 #if defined (STLPORT) && !defined (_STLP_NO_EXTENSIONS) 

   //first create a rope bigger than crope::_S_copy_max = 23

   // so that any string addition is added to a new leaf

   crope evilRope("12345678901234567890123_");

   //crope* pSevenCharRope( new TRope("1234567") );

   crope sevenCharRope0("12345678");

   crope sevenCharRope1("1234567");

   // add _Rope_RopeRep<c,a>::_S_alloc_granularity-1 = 7 characters

   evilRope += "1234567"; // creates a new leaf

   crope sevenCharRope2("1234567");

   // add one more character to the leaf

   evilRope += '8'; // here is the write beyond the allocated memory

   CPPUNIT_ASSERT( strcmp(sevenCharRope2.c_str(), "1234567") == 0 );

 #endif

 }

 #if defined (STLPORT) && !defined (_STLP_NO_EXTENSIONS)

 const char str[] = "ilcpsklryvmcpjnbpbwllsrehfmxrkecwitrsglrexvtjmxypu\

 nbqfgxmuvgfajclfvenhyuhuorjosamibdnjdbeyhkbsomblto\

 uujdrbwcrrcgbflqpottpegrwvgajcrgwdlpgitydvhedtusip\

 pyvxsuvbvfenodqasajoyomgsqcpjlhbmdahyviuemkssdslde\

 besnnngpesdntrrvysuipywatpfoelthrowhfexlwdysvspwlk\

 fblfdf";

 crope create_rope( int len )

 {

    int l = len/2;

    crope result;

    if(l <= 2)

    {

       static int j = 0;

       for(int i = 0; i < len; ++i)

       {

          // char c = 'a' + rand() % ('z' - 'a');

          result.append(1, /* c */ str[j++] );

          j %= sizeof(str);

       }

    }

    else

    {

       result = create_rope(len/2);

       result.append(create_rope(len/2));

    }

    return result;

 }

 #endif

 void RopeTest::test_saved_rope_iterators()

 {

 #if defined (STLPORT) && !defined (_STLP_NO_EXTENSIONS) && \

     defined (_STLP_MEMBER_TEMPLATES)

    //

    // Try and create a rope with a complex tree structure:

    //

    // srand(0);

    crope r = create_rope(300);

    string expected(r.begin(), r.end());

    CPPUNIT_ASSERT(expected.size() == r.size());

    CPPUNIT_ASSERT(equal(expected.begin(), expected.end(), r.begin()));

    crope::const_iterator i(r.begin()), j(r.end());

    int pos = 0;

    while(i != j)

    {

       crope::const_iterator k;

       // This initial read triggers the bug:

       CPPUNIT_ASSERT(*i);

       k = i;

       int newpos = pos;

       // Now make sure that i is incremented into the next leaf:

       while(i != j)

       {

          CPPUNIT_ASSERT(*i == expected[newpos]);

          ++i;

          ++newpos;

       }

       // Back up from stored value and continue:

       i = k;

       ++i;

       ++pos;

    }

 #endif

 }