summaryrefslogtreecommitdiffstats
path: root/sca-cpp/branches/gcc-4.4/test/store-scheme/script-test.cpp
blob: c8eecb65c3e8b69297c072f1ea3b521fa2f6e465 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
/*
 * 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$ */

/**
 * Store Test case.
 */

#include <assert.h>
#include <regex.h>
#include "stream.hpp"
#include "string.hpp"
#include "list.hpp"
#include "xml.hpp"
#include "../../modules/scheme/driver.hpp"
#include "../../modules/json/json.hpp"

namespace store {

using namespace tuscany;

bool testScript() {
    gc_scoped_pool pool;

    ifstream is("script-test.scm");
    ostringstream os;
    scheme::evalDriverRun(is, os);
    assert(contains(str(os), "(\"Sample Feed\" \""));
    assert(contains(str(os), "\" (\"Item\" \""));
    assert(contains(str(os), "\" ((javaClass \"services.Item\") (name \"Orange\") (currencyCode \"USD\") (currencySymbol \"$\") (price 3.55))) (\"Item\" \""));
    assert(contains(str(os), "\" ((javaClass \"services.Item\") (name \"Apple\") (currencyCode \"USD\") (currencySymbol \"$\") (price 2.99))))"));
    return true;
}

bool testEval() {
    {
        gc_scoped_pool pool;
        ifstream is("script-test.scm");
        ostringstream os;
        scheme::setupDisplay(os);
        scheme::Env globalEnv = scheme::setupEnvironment();
        const value exp(mklist<value>("storeui_service", string("getcatalog")));
        const value val = scheme::evalScript(exp, is, globalEnv);

        ostringstream vs;
        vs << val;
        assert(contains(str(vs), "(((javaClass \"services.Item\") (name \"Apple\") (currencyCode \"USD\") (currencySymbol \"$\") (price 2.99)) ((javaClass \"services.Item\") (name \"Orange\") (currencyCode \"USD\") (currencySymbol \"$\") (price 3.55)) ((javaClass \"services.Item\") (name \"Pear\") (currencyCode \"USD\") (currencySymbol \"$\") (price 1.55)))"));
    }

    {
        gc_scoped_pool pool;
        ifstream is("script-test.scm");
        ostringstream os;
        scheme::setupDisplay(os);

        scheme::Env globalEnv = scheme::setupEnvironment();
        const value exp(mklist<value>("storeui_service", string("gettotal")));
        const value res = scheme::evalScript(exp, is, globalEnv);

        ostringstream rs;
        rs << res;
        assert(contains(str(rs), "10"));
    }
    return true;
}

}

int main() {

    tuscany::cout << "Testing..." << tuscany::endl;

    store::testScript();
    store::testEval();

    tuscany::cout << "OK" << tuscany::endl;

    return 0;
}