diff options
author | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-12-25 01:49:19 +0000 |
---|---|---|
committer | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-12-25 01:49:19 +0000 |
commit | dc15dc32bb3348c760ba3643c083af7e0c8e43fe (patch) | |
tree | 2823b9165d5c3a8a1bc96b3d071f86101bb995b4 /sandbox/sebastien/cpp/apr-2/kernel/lambda-test.cpp | |
parent | 088b2e47386078c79781a448e0b6e458ddaae23c (diff) |
Create a sandbox branch to experiment with latest APR.
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@1052740 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to '')
-rw-r--r-- | sandbox/sebastien/cpp/apr-2/kernel/lambda-test.cpp | 102 |
1 files changed, 102 insertions, 0 deletions
diff --git a/sandbox/sebastien/cpp/apr-2/kernel/lambda-test.cpp b/sandbox/sebastien/cpp/apr-2/kernel/lambda-test.cpp new file mode 100644 index 0000000000..a72f01fb43 --- /dev/null +++ b/sandbox/sebastien/cpp/apr-2/kernel/lambda-test.cpp @@ -0,0 +1,102 @@ +/* + * 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 WANT_GCC45 + +const lambda<const int(const int)> inc(const int i) { + return [=](const int x)->const int { + return x + i; + }; +} + +const int square(const int x) { + return x * x; +} + +int mapLambda(const lambda<const int(const int)> f, int v) { + return f(v); +} + +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<int(int)> incf = inc(10); + assert(incf(1) == 11); + assert(mapLambda(incf, 1) == 11); + assert(mapLambda(inc(10), 1) == 11); + + lambda<const int(const int)> l; + l = incf; + assert(l(1) == 11); + l = square; + assert(l(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() { + list<double> s = seq(0.0, 4999.0); + 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; +} + +bool testCppPerf() { + cout << "Fibonacci map test " << (time([]()->const bool { return fibMapPerf(); }, 1, 1) / 5000) << " ms" << endl; + return true; +} + +#endif +} + +int main() { + tuscany::cout << "Testing..." << tuscany::endl; + +#ifdef WANT_GCC45 + tuscany::testLambda(); + tuscany::testCppPerf(); +#else + tuscany::cout << "Skipped GCC 4.5 tests" << tuscany::endl; +#endif + + tuscany::cout << "OK" << tuscany::endl; + + return 0; +} |