// STLport regression testsuite component.

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

#include <iostream>

#include <algorithm>

#include "unary.h"

#ifdef MAIN 

#define ucompos1_test main

#endif

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

using namespace std;

#endif

int ucompos1_test(int, char**)

{

  int failures=0;

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

 int input [3] = { -1, -4, -16 };

  int output [3];

  transform((int*)input, (int*)input + 3, (int*)output, 

	    //	    compose1(square_root(), negate<int>()));

  	    unary_compose<square_root, negate<int> >(square_root(), negate<int>()));

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

    cout << output[i] << endl;

  if(1!=output[0])

    failures++;

  else if(2!=output[1])

    failures++;

  else if(4!=output[2])

    failures++;

  if(failures)

    return 1;

  else         

    return 0;

}

/*1

2

4*/