diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/msgfile/empty_at_end2.pd | 43 | ||||
-rw-r--r-- | tests/msgfile/prev_from_end.pd | 66 |
2 files changed, 66 insertions, 43 deletions
diff --git a/tests/msgfile/empty_at_end2.pd b/tests/msgfile/empty_at_end2.pd deleted file mode 100644 index 5ba1258..0000000 --- a/tests/msgfile/empty_at_end2.pd +++ /dev/null @@ -1,43 +0,0 @@ -#N canvas 57 57 492 370 10; -#X obj 86 20 inlet run_test; -#X obj 86 318 outlet; -#X obj 182 147 t a a; -#X obj 182 176 msgfile; -#X obj 182 60 t b b b; -#X obj 182 201 spigot; -#X msg 245 177 1; -#X msg 182 250 1; -#X msg 106 250 0; -#X msg 182 118 prev; -#X floatatom 147 294 5 0 0 0 - - -; -#X msg 237 25 bang; -#X obj 86 285 i; -#X obj 86 43 t b b b; -#X obj 182 228 select 2; -#X msg 235 250 0; -#X msg 337 140 \$1; -#X msg 228 86 clear \, add 1 \, add 2 \, rewind \, end \, bang; -#X symbolatom 337 121 10 0 0 0 - - -; -#X connect 0 0 13 0; -#X connect 2 0 3 0; -#X connect 3 0 5 0; -#X connect 4 0 9 0; -#X connect 4 1 6 0; -#X connect 4 2 17 0; -#X connect 5 0 14 0; -#X connect 6 0 5 1; -#X connect 7 0 12 0; -#X connect 8 0 12 1; -#X connect 9 0 2 0; -#X connect 11 0 13 0; -#X connect 12 0 1 0; -#X connect 12 0 10 0; -#X connect 13 0 12 0; -#X connect 13 1 4 0; -#X connect 13 2 8 0; -#X connect 14 0 7 0; -#X connect 14 1 15 0; -#X connect 15 0 12 0; -#X connect 16 0 3 0; -#X connect 17 0 2 0; -#X connect 18 0 16 0; diff --git a/tests/msgfile/prev_from_end.pd b/tests/msgfile/prev_from_end.pd new file mode 100644 index 0000000..442413a --- /dev/null +++ b/tests/msgfile/prev_from_end.pd @@ -0,0 +1,66 @@ +#N canvas 57 57 869 598 10; +#X obj 86 240 inlet run_test; +#X obj 86 538 outlet; +#X obj 182 357 t a a; +#X obj 182 427 spigot; +#X msg 245 387 1; +#X msg 182 490 1; +#X msg 106 470 0; +#X msg 182 338 prev; +#X msg 237 245 bang; +#X obj 86 505 i; +#X obj 86 263 t b b b; +#X obj 182 468 select 2; +#X msg 235 491 0; +#X msg 273 364 \$1; +#X msg 228 306 clear \, add 1 \, add 2 \, rewind \, end \, bang; +#X symbolatom 273 345 10 0 0 0 - - -; +#X obj 182 406 t a a; +#X obj 182 386 msgfile; +#X obj 195 523 t f f; +#X obj 234 546 print inter; +#X msg 257 408 0; +#X text 80 104 this test seeks to the end of a msgfile and then beyond +this end (which should stay at the end).; +#X text 81 134 it then tries to read the "previous" line in the msgfile +(that is: the last real line); +#X floatatom 150 545 5 0 0 0 - - -; +#X obj 182 280 t b b b b; +#X obj 349 459 print __; +#X obj 182 447 t a a; +#X msg 359 362 clear \, add 1 \, add 2 \, rewind \, end; +#X msg 320 395 bang; +#X text 83 48 bug to detect: when [msgfile] has reached the "end"of +its buffer \, it cannot access the previous elements any more; +#X text 54 32 BUG:; +#X text 55 91 TEST:; +#X connect 0 0 10 0; +#X connect 2 0 17 0; +#X connect 3 0 26 0; +#X connect 4 0 3 1; +#X connect 5 0 18 0; +#X connect 6 0 9 1; +#X connect 7 0 2 0; +#X connect 8 0 10 0; +#X connect 9 0 1 0; +#X connect 9 0 23 0; +#X connect 10 0 9 0; +#X connect 10 1 24 0; +#X connect 10 2 6 0; +#X connect 11 0 5 0; +#X connect 11 1 12 0; +#X connect 12 0 18 0; +#X connect 13 0 17 0; +#X connect 14 0 2 0; +#X connect 15 0 13 0; +#X connect 16 0 3 0; +#X connect 17 0 16 0; +#X connect 18 0 9 0; +#X connect 20 0 3 1; +#X connect 24 0 7 0; +#X connect 24 1 4 0; +#X connect 24 2 14 0; +#X connect 24 3 20 0; +#X connect 26 0 11 0; +#X connect 27 0 17 0; +#X connect 28 0 17 0; |