# HG changeset patch
# User thomask
# Date 1099413273 0
# Node ID 8fd629339db4cfd3a7bfc84bf330c6ad2478ee7d
# Parent  6da915adb81af34af4b390ac059aa08b8cb94398
added basic creal tests

diff -r 6da915adb81a -r 8fd629339db4 run/creal_01.d
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/run/creal_01.d	Tue Nov 02 16:34:33 2004 +0000
@@ -0,0 +1,18 @@
+module dstress.run.creal_01;
+
+int main(){
+	real x1 = 2.0;
+	real y1 = 3.0;
+	real x2 = 5.0;
+	real y2 = 7.0;
+	ireal i = 1.0i;
+
+	creal a = x1 + y1*i;
+	creal b = x2 + y2*i;
+	creal c = a + b;
+
+	creal d = (x1+x2) + (y1*i+y2*i);
+	assert(c == d);
+
+	return 0;
+}
diff -r 6da915adb81a -r 8fd629339db4 run/creal_02.d
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/run/creal_02.d	Tue Nov 02 16:34:33 2004 +0000
@@ -0,0 +1,18 @@
+module dstress.run.creal_02;
+
+int main(){
+	real x1 = 2.0;
+	real y1 = 3.0;
+	real x2 = 5.0;
+	real y2 = 7.0;
+	ireal i = 1.0i;
+
+	creal a = x1 + y1*i;
+	creal b = x2 + y2*i;
+	creal c = a - b;
+
+	creal d = (x1-x2) + (y1*i-y2*i);
+	assert(c == d);
+
+	return 0;
+}
diff -r 6da915adb81a -r 8fd629339db4 run/creal_03.d
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/run/creal_03.d	Tue Nov 02 16:34:33 2004 +0000
@@ -0,0 +1,18 @@
+module dstress.run.creal_03;
+
+int main(){
+	real x1 = 2.0;
+	real y1 = 3.0;
+	real x2 = 5.0;
+	real y2 = 7.0;
+	ireal i = 1.0i;
+
+	creal a = x1 + y1*i;
+	creal b = x2 + y2*i;
+	creal c = a * b;
+
+	creal d = (x1*x2-y1*y2) + i*(x1*y2+x2*y1);
+	assert(c == d);
+
+	return 0;
+}
diff -r 6da915adb81a -r 8fd629339db4 run/creal_04.d
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/run/creal_04.d	Tue Nov 02 16:34:33 2004 +0000
@@ -0,0 +1,23 @@
+module dstress.run.creal_04;
+
+import std.stdio;
+
+int main(){
+	real x1 = 2.0;
+	real y1 = 3.0;
+	real x2 = 5.0;
+	real y2 = 7.0;
+	ireal i = 1.0i;
+
+	creal a = x1 + y1*i;
+	creal b = x2 + y2*i;
+	creal c = a / b;
+
+	creal d = ((x1*x2 + y1*y2) + i*(x2*y1 - x1*y2)) / (x2*x2 + y2*y2);
+	assert(c == d);
+
+	d = ((x1 + i*y1)*(x2 - i*y2)) / ((x2 + i*y2)*(x2 - i*y2));
+	assert(c == d);
+
+	return 0;
+}