add basic input test

svn path=/trunk/externals/loaders/tclpd/; revision=15790

1 files changed, 24 insertions, 0 deletions

diff --git a/tests/basic_input_helper.tcl b/tests/basic_input_helper.tcl
new file mode 100644
index 0000000..a5e3b52
--- /dev/null
+++ b/tests/basic_input_helper.tcl
@@ -0,0 +1,24 @@
+package require Tclpd 0.3.0
+package require TclpdLib 0.20
+
+proc basic_input_helper::constructor {self args} {
+    pd::add_outlet $self list
+}
+
+proc basic_input_helper::0_float {self args} {
+    pd::outlet $self 0 symbol float
+}
+
+proc basic_input_helper::0_symbol {self args} {
+    pd::outlet $self 0 symbol symbol
+}
+
+proc basic_input_helper::0_list {self args} {
+    pd::outlet $self 0 symbol list
+}
+
+proc basic_input_helper::0_anything {self args} {
+    pd::outlet $self 0 symbol anything
+}
+
+pd::class basic_input_helper