| /* |
| * Licensed to the Apache Software Foundation (ASF) under one |
| * or more contributor license agreements. See the NOTICE file |
| * distributed with this work for additional information |
| * regarding copyright ownership. The ASF licenses this file |
| * to you under the Apache License, Version 2.0 (the |
| * "License"); you may not use this file except in compliance |
| * with the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| */ |
| |
| /* $Rev$ $Date$ */ |
| |
| /** |
| * Test C++0x lambda expressions. |
| */ |
| |
| #include <assert.h> |
| #include "function.hpp" |
| #include "sstream.hpp" |
| #include "fstream.hpp" |
| #include "perf.hpp" |
| |
| namespace tuscany { |
| |
| #ifdef HAS_CXX0X_LAMBDAS |
| |
| const lambda<const int(const int)> inc(const int i) { |
| return [i](const int x)->const int { |
| return x + i; |
| }; |
| } |
| |
| const int square(const int x) { |
| return x * x; |
| } |
| |
| const int mapLambda(const lambda<const int(const int)> f, int v) { |
| return f(v); |
| } |
| |
| const bool testLambda() { |
| const lambda<const int(const int)> sq = square; |
| assert(sq(2) == 4); |
| assert(mapLambda(square, 2) == 4); |
| assert(mapLambda(sq, 2) == 4); |
| assert(mapLambda([](const int x)->const int { return x * x; }, 2) == 4); |
| |
| const lambda<const int(const int)> incf = inc(10); |
| assert(incf(1) == 11); |
| assert(mapLambda(incf, 1) == 11); |
| assert(mapLambda(inc(10), 1) == 11); |
| |
| const lambda<const int(const int)> il(incf); |
| assert(il(1) == 11); |
| const lambda<const int(const int)> sl(square); |
| assert(sl(2) == 4); |
| return true; |
| } |
| |
| const double fib_aux(const double n, const double a, const double b) { |
| return n == 0.0? a : fib_aux(n - 1.0, b, a + b); |
| } |
| |
| const bool fibMapPerf() { |
| const list<double> s = seq(0.0, 4999.0); |
| const list<double> r = map<double, double>([](const double n)->const double { return fib_aux(n, 0.0, 1.0); }, s); |
| assert(5000 == length(r)); |
| return true; |
| } |
| |
| const bool testCppPerf() { |
| cout << "Fibonacci map test " << (time([]()->const bool { return fibMapPerf(); }, 1, 1) / 5000) << " ms" << endl; |
| return true; |
| } |
| |
| #endif |
| } |
| |
| int main() { |
| const tuscany::gc_scoped_pool p; |
| tuscany::cout << "Testing..." << tuscany::endl; |
| |
| #ifdef HAS_CXX0X_LAMBDAS |
| tuscany::testLambda(); |
| tuscany::testCppPerf(); |
| #else |
| tuscany::cout << "Skipped C++0x lambda tests" << tuscany::endl; |
| #endif |
| |
| tuscany::cout << "OK" << tuscany::endl; |
| |
| return 0; |
| } |