test_real = ->
	run_test [

		"real(a+i*b)",
		"a",

		"real(1+exp(i*pi/3))",
		"3/2",

		"real(i)",
		"0",

		"real((-1)^(1/3))",
		"1/2",
	]