From b2b06bd2780dc40f666201d095c388313364b37a Mon Sep 17 00:00:00 2001 From: jsdelfino Date: Sat, 3 Oct 2009 21:50:33 +0000 Subject: Refactored store tests and moved them under test/. Simplified the script evaluation logic a little, added an apply procedure and support for variable lists of args. Added a test case that assembles the store app using a script. git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@821425 13f79535-47bb-0310-9956-ffa450edef68 --- cpp/sca/test/store-function/cart.hpp | 70 ++++++++++++++++++++++++++++++++++++ 1 file changed, 70 insertions(+) create mode 100644 cpp/sca/test/store-function/cart.hpp (limited to 'cpp/sca/test/store-function/cart.hpp') diff --git a/cpp/sca/test/store-function/cart.hpp b/cpp/sca/test/store-function/cart.hpp new file mode 100644 index 0000000000..c21e509487 --- /dev/null +++ b/cpp/sca/test/store-function/cart.hpp @@ -0,0 +1,70 @@ +/* + * 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$ */ + +#ifndef tuscany_cart_hpp +#define tuscany_cart_hpp + +#include +#include "service.hpp" +#include "item.hpp" + +namespace store +{ + +const double accumTotal(const double total, const ItemType& item) { + return total + itemPrice(item); +} + +tuscany::list cart; + +const tuscany::list shoppingCart_getAll() { + return cart; +} + +const bool shoppingCart_post(const ItemType& item) { + cart = cons(item, cart); + return true; +} + +const bool shoppingCart_deleteAll() { + cart = tuscany::list(); + return true; +} + +const double shoppingCart_getTotal() { + tuscany::lambda a(accumTotal); + return reduce(a, 0.0, cart); +} + +const tuscany::value shoppingCart_service(const tuscany::list& args) { + if (car(args) == tuscany::value("getAll")) + return tuscany::value(shoppingCart_getAll()); + if (car(args) == tuscany::value("post")) + return tuscany::value(shoppingCart_post(cadr(args))); + if (car(args) == tuscany::value("deleteAll")) + return tuscany::value(shoppingCart_deleteAll()); + if (car(args) == tuscany::value("getTotal")) + return tuscany::value(shoppingCart_getTotal()); + return tuscany::value(); +} + +} +#endif /* tuscany_cart_hpp */ -- cgit v1.2.3