1 files changed, 39 insertions, 0 deletions
diff --git a/generics/commutative-test.pd b/generics/commutative-test.pd
new file mode 100644
index 0000000..ec67417
--- /dev/null
+++ b/generics/commutative-test.pd
@@ -0,0 +1,39 @@
+#N canvas 555 5 452 322 10;
+#X obj 40 15 inlet bang;
+#X obj 101 102 unpack 0 0;
+#X obj 101 183 /;
+#X msg 40 34 1 3;
+#X text 216 9 This test verifies that 1+3=3+1;
+#X obj 101 202 t a a;
+#X obj 101 278 outlet;
+#X text 217 44 with tolerance 0;
+#X obj 101 221 <= 0;
+#X text 218 23 and 1*3=3*1 and...;
+#X obj 101 164 * 2;
+#X obj 101 145 \$1.norm;
+#X obj 208 145 \$1.norm;
+#X obj 101 126 commutator \$1 \$2;
+#X obj 41 53 t b l b;
+#X obj 43 95 rtimer;
+#X floatatom 44 125 5 0 0 0 - - -;
+#X obj 101 259 list append commutative \$1 \$2;
+#X obj 101 240 pack 0 0 -1;
+#X connect 0 0 3 0;
+#X connect 1 0 13 0;
+#X connect 1 1 13 1;
+#X connect 2 0 5 0;
+#X connect 3 0 14 0;
+#X connect 5 0 8 0;
+#X connect 5 1 18 1;
+#X connect 8 0 18 0;
+#X connect 10 0 2 0;
+#X connect 11 0 10 0;
+#X connect 12 0 2 1;
+#X connect 13 0 11 0;
+#X connect 13 1 12 0;
+#X connect 14 0 15 1;
+#X connect 14 1 1 0;
+#X connect 14 2 15 0;
+#X connect 15 0 16 0;
+#X connect 17 0 6 0;
+#X connect 18 0 17 0;