Chris@53: module test.test_complex;
Chris@53: 
Chris@53: { i, one, zero, real, imaginary, complex, magnitude, angle, add, scale }
Chris@53:    = load complex;
Chris@53: 
Chris@53: { compare } = load test.test;
Chris@53: 
Chris@53: [
Chris@53: 
Chris@53: "complex": \( 
Chris@53:     compare (complex 1 2) (complex 1 2) and
Chris@53:         complex (-1) 2 != complex 1 2
Chris@53: ),
Chris@53: 
Chris@53: "real": \(
Chris@53:     compare (real (complex 3 2)) 3
Chris@53: ),
Chris@53: 
Chris@53: "imaginary": \(
Chris@53:     compare (imaginary (complex 3 4)) 4
Chris@53: ),
Chris@53: 
Chris@53: "magnitude": \(
Chris@53:     compare (magnitude (complex (-3) 4)) 5
Chris@53: ),
Chris@53: 
Chris@53: "angle": \(
Chris@53:     compare (angle (complex 1 0)) 0 and
Chris@53:         compare (angle (complex 1 1)) (pi/4) and
Chris@53:         compare (angle (complex 0 1)) (pi/2) and
Chris@53:         compare (angle (complex (-1) 0)) pi and
Chris@53:         compare (angle (complex 0 (-1))) (-pi/2)
Chris@53: ),
Chris@53: 
Chris@53: "add": \(
Chris@53:     compare (add (complex 2 3) (complex (-4) 5)) (complex (-2) 8)
Chris@53: ),
Chris@53: 
Chris@53: "scale": \(
Chris@53:     compare (scale 4 (complex 2 3)) (complex 8 12)
Chris@53: ),
Chris@53: 
Chris@53: "constants": \(
Chris@53:     compare (complex 0 1) i and
Chris@53:         compare (complex 1 0) one and
Chris@53:         compare (complex 0 0) zero
Chris@53: ),
Chris@53: 
Chris@53: ] is hash<string, () -> boolean>;
Chris@53: 
Chris@53: 
Chris@53: