summaryrefslogtreecommitdiffstats
path: root/cpp/sca/test/store-script/store-script-test.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'cpp/sca/test/store-script/store-script-test.cpp')
-rw-r--r--cpp/sca/test/store-script/store-script-test.cpp8
1 files changed, 3 insertions, 5 deletions
diff --git a/cpp/sca/test/store-script/store-script-test.cpp b/cpp/sca/test/store-script/store-script-test.cpp
index 5808bd889e..5a29d8caba 100644
--- a/cpp/sca/test/store-script/store-script-test.cpp
+++ b/cpp/sca/test/store-script/store-script-test.cpp
@@ -55,7 +55,7 @@ bool testScript() {
}
const value evalLoop(std::istream& is, const value& req, eval::Env& globalEnv, const gc_pool& pool) {
- value in = eval::read(is);
+ value in = eval::readValue(is);
if(isNil(in))
return eval::evalExpr(req, globalEnv, pool);
eval::evalExpr(in, globalEnv, pool);
@@ -66,13 +66,12 @@ bool testEval() {
{
std::ifstream is("store.scm", std::ios_base::in);
std::ostringstream os;
- eval::setupEvalOut(os);
+ eval::setupDisplay(os);
gc_pool pool;
eval::Env globalEnv = eval::setupEnvironment(pool);
const value req(mklist<value>("storeui_service", std::string("getcatalog")));
const value val = evalLoop(is, req, globalEnv, pool);
- eval::cleanupEnvironment(globalEnv);
std::ostringstream vs;
vs << val;
@@ -82,13 +81,12 @@ bool testEval() {
{
std::ifstream is("store.scm", std::ios_base::in);
std::ostringstream os;
- eval::setupEvalOut(os);
+ eval::setupDisplay(os);
gc_pool pool;
eval::Env globalEnv = eval::setupEnvironment(pool);
const value req(mklist<value>("storeui_service", std::string("gettotal")));
const value res = evalLoop(is, req, globalEnv, pool);
- eval::cleanupEnvironment(globalEnv);
std::ostringstream rs;
rs << res;