From 6e70f33a440fe6c7420c7406af83981be8691ef7 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Thu, 17 Nov 2011 10:36:08 +0000
Subject: minimal test system. more testcases to come.

svn path=/trunk/externals/loaders/tclpd/; revision=15783
---
 tests/basic_output_helper.tcl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 tests/basic_output_helper.tcl

(limited to 'tests/basic_output_helper.tcl')

diff --git a/tests/basic_output_helper.tcl b/tests/basic_output_helper.tcl
new file mode 100644
index 0000000..c557778
--- /dev/null
+++ b/tests/basic_output_helper.tcl
@@ -0,0 +1,22 @@
+package require Tclpd 0.3.0
+package require TclpdLib 0.20
+
+proc basic_output_helper::constructor {self args} {
+    pd::add_outlet $self list
+}
+
+proc basic_output_helper::0_symbol {self args} {
+    switch -exact -- [pd::arg 0 symbol] {
+        float {
+            pd::outlet $self 0 float 123
+        }
+        symbol {
+            pd::outlet $self 0 symbol baz
+        }
+        list {
+            pd::outlet $self 0 list {{symbol foo} {float 123} {symbol bar}}
+        }
+    }
+}
+
+pd::class basic_output_helper
-- 
cgit v1.2.1