Esempi in C++ (Cpp) per Interpreter::eval_list

Esempio n. 1

File: 40-typecasts.C Progetto: Gustra/libperl--

int main() {
	plan(6);

	Interpreter universe;

	Scalar scalar = universe.value_of(1);

	int foo = typecast_to<int>(scalar);
	is(foo, 1, "foo == 1");

	const char* foo2 = typecast_to<const char*>(scalar);
	is(foo2, std::string("1"), "foo2 == \"1\"");

	std::string foo3 = typecast_to<const char*>(scalar);
	is(foo3, std::string("1"), "foo3 == \"1\"");

	my_type bar = typecast_to<my_type>(scalar);
	is(bar.value, 1, "bar.value == 1");

	is(typecast_from(universe, 1), 1, "typecast_from(1) == 1");

	is(typecast_from(universe, bar), 1, "typecast_from(bar) == 1");

	Array baz = universe.eval_list("(1, 2, 3)");

	vector<my_type> buz = typecast_to<vector<my_type> >(baz);

	return exit_status();
}