aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/Makefile2
-rw-r--r--tests/binbuf.pd18
-rw-r--r--tests/binbuf.ref14
-rw-r--r--tests/binbuf_helper.tcl17
4 files changed, 51 insertions, 0 deletions
diff --git a/tests/Makefile b/tests/Makefile
index 6829119..01ebc9e 100644
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -6,6 +6,8 @@ all:
@sh runtest.sh basic_output
@# basic input test - dispatching to correct methods
@sh runtest.sh basic_input
+ @# atoms conversion test & binbuf retrieval
+ @sh runtest.sh binbuf
clean:
rm -fv *.out runtest-*.pd
diff --git a/tests/binbuf.pd b/tests/binbuf.pd
new file mode 100644
index 0000000..87f68d8
--- /dev/null
+++ b/tests/binbuf.pd
@@ -0,0 +1,18 @@
+#N canvas 306 152 450 300 10;
+#X obj 48 53 inlet;
+#X obj 48 234 outlet;
+#N canvas 0 0 450 300 bang_swap 0;
+#X obj 63 58 inlet;
+#X obj 63 112 t b b;
+#X obj 112 172 outlet;
+#X obj 63 172 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 1 1 3 0;
+#X restore 48 89 pd bang_swap;
+#X obj 117 115 outlet;
+#X obj 48 187 binbuf_helper \$0 \$1.foo foo 123 \, \;;
+#X connect 0 0 2 0;
+#X connect 2 0 4 0;
+#X connect 2 1 3 0;
+#X connect 4 0 1 0;
diff --git a/tests/binbuf.ref b/tests/binbuf.ref
new file mode 100644
index 0000000..f30f622
--- /dev/null
+++ b/tests/binbuf.ref
@@ -0,0 +1,14 @@
+atomtype symbol;
+atomvalue binbuf_helper;
+atomtype dollar;
+atomvalue \$0;
+atomtype dollsym;
+atomvalue \$1.foo;
+atomtype symbol;
+atomvalue foo;
+atomtype float;
+atomvalue 123.0;
+atomtype comma;
+atomvalue \,;
+atomtype semi;
+atomvalue \;;
diff --git a/tests/binbuf_helper.tcl b/tests/binbuf_helper.tcl
new file mode 100644
index 0000000..863dd01
--- /dev/null
+++ b/tests/binbuf_helper.tcl
@@ -0,0 +1,17 @@
+package require Tclpd 0.3.0
+package require TclpdLib 0.20
+
+proc binbuf_helper::constructor {self args} {
+ pd::add_outlet $self list
+}
+
+proc binbuf_helper::0_bang {self} {
+ set binbuf [pd::get_binbuf $self]
+ foreach atom $binbuf {
+ foreach {atomtype atomvalue} $atom break
+ pd::outlet $self 0 list [list [list symbol atomtype] [list symbol $atomtype]]
+ pd::outlet $self 0 list [list [list symbol atomvalue] [list symbol $atomvalue]]
+ }
+}
+
+pd::class binbuf_helper