From 64486ea55b949ba0b7aaa1890e4f4d745b4f7ef3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Wed, 28 Jun 2006 15:53:02 +0000
Subject: changed [l2s] argument incompatibly: the argument is now the
 delimiter (analogous to [s2l]) instead of the default list to be converted.
 while this is an incompatible change, i noticed that the argument handling
 was broken anyhow (produced rather random results, even in the help-file!)
 and since nobody noticed i guess the arguments are not used anyhow....

svn path=/trunk/externals/zexy/; revision=5310
---
 tests/l2s/argument.pd  | 28 ++++++++++++++++++++++++++++
 tests/l2s/delimiter.pd | 29 +++++++++++++++++++++++++++++
 tests/runtests.txt     |  2 ++
 3 files changed, 59 insertions(+)
 create mode 100644 tests/l2s/argument.pd
 create mode 100644 tests/l2s/delimiter.pd

(limited to 'tests')

diff --git a/tests/l2s/argument.pd b/tests/l2s/argument.pd
new file mode 100644
index 0000000..19c689a
--- /dev/null
+++ b/tests/l2s/argument.pd
@@ -0,0 +1,28 @@
+#N canvas 349 104 581 409 10;
+#X obj 74 255 outlet;
+#X obj 74 7 inlet;
+#X obj 74 28 b;
+#X text 169 7 the argument is now the delimiter;
+#X msg 74 50 list 192 168 7 1;
+#X obj 74 89 t l l b;
+#X obj 124 126 l2s;
+#X obj 74 126 l2s .;
+#X msg 144 106 symbol .;
+#X obj 74 155 select s;
+#X msg 74 181 1;
+#X msg 133 180 0;
+#X obj 74 214 t f;
+#X connect 1 0 2 0;
+#X connect 2 0 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 5 1 6 0;
+#X connect 5 2 8 0;
+#X connect 6 0 9 1;
+#X connect 7 0 9 0;
+#X connect 8 0 6 1;
+#X connect 9 0 10 0;
+#X connect 9 1 11 0;
+#X connect 10 0 12 0;
+#X connect 11 0 12 0;
+#X connect 12 0 0 0;
diff --git a/tests/l2s/delimiter.pd b/tests/l2s/delimiter.pd
new file mode 100644
index 0000000..ddde552
--- /dev/null
+++ b/tests/l2s/delimiter.pd
@@ -0,0 +1,29 @@
+#N canvas 349 104 581 409 10;
+#X obj 74 255 outlet;
+#X obj 74 7 inlet;
+#X obj 74 28 b;
+#X msg 74 50 list 192 168 7 1;
+#X obj 74 130 l2s;
+#X msg 93 110 symbol .;
+#X obj 74 155 select s;
+#X msg 74 181 1;
+#X msg 133 180 0;
+#X obj 74 214 t f;
+#X obj 74 89 t l b b;
+#X msg 133 135 symbol 192.168.7.1;
+#X text 21 -14 check whether the generated symbol is what we expect...
+;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 10 0;
+#X connect 4 0 6 0;
+#X connect 5 0 4 1;
+#X connect 6 0 7 0;
+#X connect 6 1 8 0;
+#X connect 7 0 9 0;
+#X connect 8 0 9 0;
+#X connect 9 0 0 0;
+#X connect 10 0 4 0;
+#X connect 10 1 5 0;
+#X connect 10 2 11 0;
+#X connect 11 0 6 1;
diff --git a/tests/runtests.txt b/tests/runtests.txt
index 60ae970..788dcdd 100644
--- a/tests/runtests.txt
+++ b/tests/runtests.txt
@@ -68,5 +68,7 @@ help-msg/urn;
 help-msg/wrap;
 help-msg/zexy;
 help-msg/z~;
+l2s/argument;
+l2s/delimiter;
 repeat/noargs;
 s2l/numsymbols;
-- 
cgit v1.2.1