// STLport regression testsuite component.

// To compile as a separate example, please #define MAIN.

#include <algorithm>

#include <iostream>

#include <cstring>

#include <iterator>

#include <functional>

#ifdef MAIN 

#define setintr2_test main

#endif

#if !defined (STLPORT) || defined(__STL_USE_NAMESPACES)

using namespace std;

#endif

int setintr2_test(int, char**)

{

  int failures=0;

  cout<<"Results of setintr2_test:"<<endl;

char* word1 = "ABCDEFGHIJKLMNO";

char* word2 = "LMNOPQRSTUVWXYZ";

char word3[5];

  ostream_iterator <char> iter(cout, " ");

  cout << "word1: ";

  if(strcmp(word1,"ABCDEFGHIJKLMNO"))

    failures++; 

  copy(word1, word1 + ::strlen(word1), iter);

  cout << "\nword2: ";

  if(strcmp(word2,"LMNOPQRSTUVWXYZ"))

    failures++; 

  copy(word2, word2 + ::strlen(word2), iter);

  cout << endl;

  set_intersection(word1, word1 + ::strlen(word1),

                    word2, word2 + ::strlen(word2),

                    word3,

                    less<char>());

  word3[4]='\0';

  if(strcmp(word3,"LMNO"))

     failures++; 

  copy(word3,word3+ ::strlen(word3),iter);

  cout << endl;

  if(failures)

    return 1;

  else  

    return 0;

}