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
|
// Author(s): Jeroen Keiren
// Copyright: see the accompanying file COPYING or copy at
// https://svn.win.tue.nl/trac/MCRL2/browser/trunk/COPYING
//
// Distributed under the Boost Software License, Version 1.0.
// (See accompanying file LICENSE_1_0.txt or copy at
// http://www.boost.org/LICENSE_1_0.txt)
//
/// \file compatibility_test.cpp
/// \brief Regression test for the transformations between new and old data
/// format.
#include <iostream>
#include <sstream>
#include <boost/test/minimal.hpp>
#include "mcrl2/atermpp/aterm_appl.h"
#include "mcrl2/core/parse.h"
#include "mcrl2/data/parse.h"
#include "mcrl2/data/typecheck.h"
#include "mcrl2/utilities/exception.h"
#include "mcrl2/data/data_specification.h"
#include "mcrl2/utilities/text_utility.h"
using namespace mcrl2;
void compatibility_test()
{
std::stringstream data_stream(
"sort S;\n"
"cons s:S;\n"
"map f:S -> List(S);\n"
);
std::string text = utilities::read_text(data_stream);
atermpp::aterm_appl data_spec_aterm = data::detail::data_specification_to_aterm_data_spec(data::parse_data_specification_new(text));
if (data_spec_aterm == atermpp::aterm())
{
throw mcrl2::runtime_error("Error while parsing data specification");
}
data::data_specification data_spec(data_spec_aterm);
data::type_check(data_spec);
atermpp::aterm_appl data_spec_aterm_new =
mcrl2::data::detail::data_specification_to_aterm_data_spec(
data_spec
// mcrl2::data::remove_all_system_defined(
// mcrl2::data::data_specification(data_spec_aterm)
// )
);
BOOST_CHECK(data_spec_aterm == data_spec_aterm_new);
}
int test_main(int argc, char** argv)
{
compatibility_test();
return EXIT_SUCCESS;
}
|
