annotate test/test_complex.yeti @ 79:e47d5adb6564
Use RDF description in inferred structure; also report whether it was found in plugin data
author |
Chris Cannam |
date |
Mon, 04 Mar 2013 17:53:42 +0000 |
parents |
08b2b9fce25c |
children |
|
rev |
line source |
Chris@53
|
1 module test.test_complex;
|
Chris@53
|
2
|
Chris@57
|
3 { real, imaginary, complex, magnitude, angle, add, scale }
|
Chris@53
|
4 = load complex;
|
Chris@53
|
5
|
Chris@53
|
6 { compare } = load test.test;
|
Chris@53
|
7
|
Chris@53
|
8 [
|
Chris@53
|
9
|
Chris@53
|
10 "complex": \(
|
Chris@53
|
11 compare (complex 1 2) (complex 1 2) and
|
Chris@53
|
12 complex (-1) 2 != complex 1 2
|
Chris@53
|
13 ),
|
Chris@53
|
14
|
Chris@53
|
15 "real": \(
|
Chris@53
|
16 compare (real (complex 3 2)) 3
|
Chris@53
|
17 ),
|
Chris@53
|
18
|
Chris@53
|
19 "imaginary": \(
|
Chris@53
|
20 compare (imaginary (complex 3 4)) 4
|
Chris@53
|
21 ),
|
Chris@53
|
22
|
Chris@53
|
23 "magnitude": \(
|
Chris@53
|
24 compare (magnitude (complex (-3) 4)) 5
|
Chris@53
|
25 ),
|
Chris@53
|
26
|
Chris@53
|
27 "angle": \(
|
Chris@53
|
28 compare (angle (complex 1 0)) 0 and
|
Chris@53
|
29 compare (angle (complex 1 1)) (pi/4) and
|
Chris@53
|
30 compare (angle (complex 0 1)) (pi/2) and
|
Chris@53
|
31 compare (angle (complex (-1) 0)) pi and
|
Chris@53
|
32 compare (angle (complex 0 (-1))) (-pi/2)
|
Chris@53
|
33 ),
|
Chris@53
|
34
|
Chris@53
|
35 "add": \(
|
Chris@53
|
36 compare (add (complex 2 3) (complex (-4) 5)) (complex (-2) 8)
|
Chris@53
|
37 ),
|
Chris@53
|
38
|
Chris@53
|
39 "scale": \(
|
Chris@53
|
40 compare (scale 4 (complex 2 3)) (complex 8 12)
|
Chris@53
|
41 ),
|
Chris@53
|
42
|
Chris@53
|
43 ] is hash<string, () -> boolean>;
|
Chris@53
|
44
|
Chris@53
|
45
|
Chris@53
|
46
|