1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
|
This patches adapt the tests to the new snack version and use the
sound library instead of snack that requires a graphical terminal.
"play" and "record" tests are skipped because they don't work
currently and use sound output that is not feasible for automatic
tests and because there is an error in the code that tests server and
client streams.
TODO: Add tests added for mp3 and ogg handling with the additional
libraries.
--- a/tests/audio.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/audio.test 2024-07-21 20:53:19.563333137 +0200
@@ -1,7 +1,7 @@
# Commands covered: snack::audio
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -11,7 +11,7 @@
test audio-1.1 {snack::audio command with unknow sub-command} {
catch {snack::audio junk} msg
set msg
-} {bad option "junk": must be outputDevices, inputDevices, selectOutput, selectInput, formats, frequencies, active, play_gain, record_gain, elapsedTime, currentSound, playLatency, scaling, encodings, rates, play, stop, or pause}
+} {bad option "junk": must be outputDevices, inputDevices, selectOutput, selectInput, formats, frequencies, active, play_gain, record_gain, elapsedTime, currentSound, playLatency, scaling, encodings, rates, play, stop, pause, or fallbackrate}
test audio-1.2 {snack::audio outputDevices command} {
set devs [snack::audio outputDevices]
diff -ru a/tests/cget.test b/tests/cget.test
--- a/tests/cget.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/cget.test 2024-07-21 19:03:08.606666592 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound cget
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/concat.test b/tests/concat.test
--- a/tests/concat.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/concat.test 2024-07-21 19:03:08.606666592 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound concatenate
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/conf.test b/tests/conf.test
--- a/tests/conf.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/conf.test 2024-07-21 19:03:08.606666592 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound configure
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/convert.test b/tests/convert.test
--- a/tests/convert.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/convert.test 2024-07-21 19:03:08.609999925 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound convert
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/copy.test b/tests/copy.test
--- a/tests/copy.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/copy.test 2024-07-21 19:03:08.609999925 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound copy
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/crop.test b/tests/crop.test
--- a/tests/crop.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/crop.test 2024-07-21 19:03:08.609999925 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound crop
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/cut.test b/tests/cut.test
--- a/tests/cut.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/cut.test 2024-07-21 19:03:08.609999925 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound cut
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/data.test b/tests/data.test
--- a/tests/data.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/data.test 2024-07-21 19:03:08.609999925 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound data/append
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/dbpower.test b/tests/dbpower.test
--- a/tests/dbpower.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/dbpower.test 2024-07-21 19:03:08.613333259 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound dBPowerSpectrum
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
Nur in b/tests: ex1.wav.
diff -ru a/tests/fileio.test b/tests/fileio.test
--- a/tests/fileio.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/fileio.test 2024-07-21 20:45:03.049999818 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound read/write
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -35,13 +35,15 @@
set res
} {AIFF}
-test fileio-1.4 {write/read commands for MP3 file format} {
+test fileio-1.4 {write/read commands for MP3 file format} -constraints {
+ knownBug
+ } -body {
set s [snack::sound snd]
$s length 300
set res [list [catch {$s write snackTest.mp3} msg] $msg]
$s destroy
set res
-} {1 {Unsupported save format}}
+} -returnCodes 1 -result {Unsupported save format}
test fileio-1.5 {write/read commands for RAW file format} {
set s [snack::sound snd -load ex1.wav]
diff -ru a/tests/filter.test b/tests/filter.test
--- a/tests/filter.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/filter.test 2024-07-21 19:03:08.613333259 +0200
@@ -1,7 +1,7 @@
# Commands covered: snack::filter
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/formant.test b/tests/formant.test
--- a/tests/formant.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/formant.test 2024-07-21 20:55:24.409999799 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound formant
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -14,7 +14,7 @@
set res [lindex [$s formant -framelength 0.01 -preemphasis 0.7 -numformants 4 -lpcorder 12 -windowlength .049 -lpctype 0 -ds_freq 10000.0 -nom_f1_freq -10.0] end]
$s destroy
set res
-} {102.23 2077.6 2951.1 3818.2 734.88 480.1 532.49 588.74}
+} {617.26 1928.1 2907.9 3916.0 1160.0 934.07 1053.7 572.63}
test formant-1.2 {formant command} {
set s [snack::sound snd -load ex1.wav]
@@ -22,7 +22,7 @@
set res [lindex [$s formant] end]
$s destroy
set res
-} {102.23 2077.6 2951.1 3818.2 734.88 480.1 532.49 588.74}
+} {617.26 1928.1 2907.9 3916.0 1160.0 934.07 1053.7 572.63}
test formant-1.3 {formant command} {
set s [snack::sound snd -load ex1.wav]
@@ -30,7 +30,7 @@
set res [lindex [$s formant -windowtype 2] end]
$s destroy
set res
-} {102.23 2077.6 2951.1 3818.2 734.88 480.1 532.49 588.74}
+} {617.26 1928.1 2907.9 3916.0 1160.0 934.07 1053.7 572.63}
test formant-1.4 {formant command} {
set s [snack::sound snd -load ex1.wav]
@@ -38,7 +38,7 @@
set res [lindex [$s formant -windowtype cos^4] end]
$s destroy
set res
-} {102.23 2077.6 2951.1 3818.2 734.88 480.1 532.49 588.74}
+} {617.26 1928.1 2907.9 3916.0 1160.0 934.07 1053.7 572.63}
test formant-1.5 {formant command} {
set s [snack::sound snd -load ex1.wav]
@@ -46,7 +46,7 @@
set res [lindex [$s formant -windowtype 0] end]
$s destroy
set res
-} {151.71 1265.8 2097.1 2948.0 651.9 693.92 580.95 513.44}
+} {1159.1 1980.2 2863.5 3807.9 997.57 779.82 526.88 686.26}
test formant-1.6 {formant command} {
set s [snack::sound snd -load ex1.wav]
@@ -54,7 +54,7 @@
set res [lindex [$s formant -windowtype rectangular] end]
$s destroy
set res
-} {151.71 1265.8 2097.1 2948.0 651.9 693.92 580.95 513.44}
+} {1159.1 1980.2 2863.5 3807.9 997.57 779.82 526.88 686.26}
# cleanup
diff -ru a/tests/inflush.test b/tests/inflush.test
--- a/tests/inflush.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/inflush.test 2024-07-21 19:03:08.616666592 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound flush info
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/insert.test b/tests/insert.test
--- a/tests/insert.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/insert.test 2024-07-21 19:03:08.616666592 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound insert
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/length.test b/tests/length.test
--- a/tests/length.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/length.test 2024-07-21 19:03:08.616666592 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound length
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/maxmin.test b/tests/maxmin.test
--- a/tests/maxmin.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/maxmin.test 2024-07-21 19:03:08.619999926 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound max/min
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/mixer.test b/tests/mixer.test
--- a/tests/mixer.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/mixer.test 2024-07-21 19:03:08.619999926 +0200
@@ -1,7 +1,7 @@
# Commands covered: snack::mixer
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/pitch.test b/tests/pitch.test
--- a/tests/pitch.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/pitch.test 2024-07-21 20:52:04.556666471 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound pitch
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -28,7 +28,7 @@
set res [$s pitch -method ESPS]
$s destroy
set res
-} {{0.0 0.0 0.0 0.7046} {0.0 0.0 773.75 0.65552} {0.0 0.0 818.19 0.24061} {0.0 0.0 813.11 0.56787} {0.0 0.0 808.38 0.51307} {0.0 0.0 826.19 0.49327} {0.0 0.0 856.39 0.9469} {0.0 0.0 851.94 0.0} {0.0 0.0 869.07 0.48861} {0.0 0.0 842.5 0.39768} {0.0 0.0 839.18 0.4009} {0.0 0.0 820.35 0.81465} {0.0 0.0 833.41 0.95806} {0.0 0.0 855.43 0.89539} {0.0 0.0 853.1 0.28335} {0.0 0.0 889.35 0.59169} {0.0 0.0 1070.4 0.68884} {0.0 0.0 878.07 0.5143} {0.0 0.0 893.05 0.3997} {0.0 0.0 873.35 0.68623} {0.0 0.0 965.28 0.57252} {0.0 0.0 882.13 0.49351} {0.0 0.0 1196.0 0.70511} {209.81 1.0 3310.1 0.88756} {162.78 1.0 3659.8 0.99115} {161.92 1.0 3512.8 0.99646} {158.92 1.0 3547.8 0.99354} {155.91 1.0 3468.3 0.98505} {149.48 1.0 3284.6 0.99364} {143.31 1.0 3007.4 0.98736} {133.77 1.0 2823.2 0.94805} {126.48 1.0 2640.0 0.98759} {119.94 1.0 2332.5 0.9852} {112.98 1.0 2040.0 0.95218} {109.81 1.0 2122.5 0.9571} {107.68 1.0 2418.8 0.92161} {106.6 1.0 2507.1 0.95998} {105.57 1.0 2478.7 0.95695} {105.43 1.0 2671.9 0.96458} {106.74 1.0 2706.4 0.98918} {109.0 1.0 2755.5 0.99448} {111.84 1.0 2716.9 0.97564} {115.73 1.0 2274.5 0.87201} {99.183 1.0 920.17 0.60726} {120.34 1.0 860.54 0.84981} {150.88 1.0 2140.9 0.93803} {136.25 1.0 2838.7 0.98336} {141.73 1.0 2877.0 0.99704} {145.06 1.0 2894.6 0.98906} {146.54 1.0 2748.1 0.98797} {149.82 1.0 2700.2 0.94096} {149.23 1.0 2838.5 0.98879} {146.53 1.0 2629.4 0.95378} {141.86 1.0 2179.6 0.97326} {133.37 1.0 1887.6 0.85003} {124.99 1.0 1659.4 0.94212} {117.97 1.0 1442.7 0.96375} {109.74 1.0 1090.7 0.96917} {103.63 1.0 915.58 0.92499} {111.49 1.0 852.97 0.69573} {107.37 1.0 786.45 0.86455} {93.37 1.0 815.31 0.81332} {123.3 1.0 804.19 0.61468} {84.033 1.0 762.64 0.74945} {121.1 1.0 725.97 0.5574} {114.08 1.0 700.18 0.82347} {101.78 1.0 704.91 0.57994} {103.43 1.0 695.82 0.75774} {101.42 1.0 699.76 0.79472} {105.86 1.0 714.6 0.70127} {0.0 0.0 745.64 0.828} {0.0 0.0 736.29 0.64289} {0.0 0.0 696.31 0.40449} {0.0 0.0 684.55 0.44551} {0.0 0.0 639.39 0.38997} {0.0 0.0 561.58 0.0} {0.0 0.0 628.03 0.34976} {0.0 0.0 717.81 0.38937} {0.0 0.0 748.32 0.41932} {0.0 0.0 750.33 0.86962} {0.0 0.0 783.32 0.82826} {0.0 0.0 761.07 0.20038} {0.0 0.0 809.66 0.35076} {0.0 0.0 831.98 0.7714} {0.0 0.0 872.36 0.67117} {0.0 0.0 826.35 0.6413} {0.0 0.0 717.04 0.0} {0.0 0.0 723.39 0.54415} {0.0 0.0 751.84 0.33728} {0.0 0.0 818.29 0.31209} {0.0 0.0 837.27 0.4341} {0.0 0.0 849.58 0.3289} {0.0 0.0 862.31 0.28854} {0.0 0.0 845.67 0.68362} {0.0 0.0 868.24 0.74526}}
+} {{0.0 0.0 0.0 0.7046} {0.0 0.0 773.7 0.65552} {0.0 0.0 818.08 0.24061} {0.0 0.0 813.13 0.56787} {0.0 0.0 808.39 0.51307} {0.0 0.0 826.01 0.49327} {0.0 0.0 856.56 0.9469} {0.0 0.0 851.72 0.0} {0.0 0.0 869.15 0.48861} {0.0 0.0 842.57 0.39768} {0.0 0.0 839.14 0.4009} {0.0 0.0 820.39 0.81465} {0.0 0.0 833.47 0.95806} {0.0 0.0 855.33 0.89539} {0.0 0.0 852.97 0.28335} {0.0 0.0 889.07 0.59169} {0.0 0.0 1070.5 0.68884} {0.0 0.0 878.41 0.5143} {0.0 0.0 892.74 0.3997} {0.0 0.0 873.53 0.68623} {0.0 0.0 965.13 0.57252} {0.0 0.0 882.69 0.49351} {0.0 0.0 1193.0 0.70511} {209.81 1.0 3304.3 0.88756} {162.78 1.0 3660.9 0.99115} {161.92 1.0 3512.7 0.99646} {158.92 1.0 3547.9 0.99354} {155.91 1.0 3468.7 0.98505} {149.48 1.0 3285.3 0.99364} {143.31 1.0 3008.2 0.98736} {133.77 1.0 2823.7 0.94805} {126.48 1.0 2640.8 0.98759} {119.94 1.0 2333.7 0.9852} {112.98 1.0 2040.5 0.95218} {109.81 1.0 2121.6 0.9571} {107.68 1.0 2418.1 0.92161} {106.6 1.0 2507.3 0.95998} {105.57 1.0 2478.0 0.95695} {105.43 1.0 2671.9 0.96458} {106.74 1.0 2706.6 0.98918} {109.0 1.0 2755.4 0.99448} {111.84 1.0 2717.5 0.97564} {115.73 1.0 2277.5 0.87201} {99.183 1.0 924.36 0.60726} {120.34 1.0 859.79 0.84981} {150.88 1.0 2136.3 0.93803} {136.25 1.0 2838.1 0.98336} {141.73 1.0 2877.0 0.99704} {145.06 1.0 2894.6 0.98906} {146.54 1.0 2749.1 0.98797} {149.82 1.0 2699.5 0.94096} {149.23 1.0 2838.4 0.98879} {146.53 1.0 2630.6 0.95378} {141.86 1.0 2181.0 0.97326} {133.37 1.0 1888.3 0.85003} {124.99 1.0 1660.0 0.94212} {117.97 1.0 1443.6 0.96375} {109.74 1.0 1091.7 0.96917} {103.63 1.0 915.75 0.92499} {111.49 1.0 853.13 0.69573} {107.37 1.0 786.42 0.86455} {93.37 1.0 815.44 0.81332} {123.3 1.0 804.05 0.61468} {84.033 1.0 762.98 0.74945} {121.1 1.0 725.91 0.5574} {114.08 1.0 700.22 0.82347} {101.78 1.0 704.95 0.57994} {103.43 1.0 695.87 0.75774} {101.42 1.0 699.81 0.79472} {105.86 1.0 714.47 0.70127} {0.0 0.0 745.7 0.828} {0.0 0.0 736.31 0.64289} {0.0 0.0 696.35 0.40449} {0.0 0.0 684.65 0.44551} {0.0 0.0 639.58 0.38997} {0.0 0.0 561.77 0.0} {0.0 0.0 627.65 0.34976} {0.0 0.0 717.62 0.38937} {0.0 0.0 748.27 0.41932} {0.0 0.0 750.33 0.86962} {0.0 0.0 783.3 0.82826} {0.0 0.0 761.05 0.20038} {0.0 0.0 809.51 0.35076} {0.0 0.0 831.97 0.7714} {0.0 0.0 872.22 0.67117} {0.0 0.0 826.62 0.6413} {0.0 0.0 717.3 0.0} {0.0 0.0 723.3 0.54415} {0.0 0.0 751.75 0.33728} {0.0 0.0 818.03 0.31209} {0.0 0.0 837.29 0.4341} {0.0 0.0 849.53 0.3289} {0.0 0.0 862.33 0.28854} {0.0 0.0 845.65 0.68362} {0.0 0.0 868.25 0.74526}}
test pitch-2.1 {pitch command, with missing argument for -start option} {
set s [snack::sound snd -load ex1.wav]
diff -ru a/tests/play.test b/tests/play.test
--- a/tests/play.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/play.test 2024-07-21 18:59:56.606666594 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound play
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/power.test b/tests/power.test
--- a/tests/power.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/power.test 2024-07-21 19:07:10.676666583 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound power
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -14,7 +14,7 @@
set res [$s power]
$s destroy
set res
-} {57.668 58.916 57.992 58.647 58.462 58.415 58.353 58.948 58.897 59.02 58.761 58.745 58.248 58.595 59.158 58.846 58.467 61.37 59.153 59.315 58.301 60.035 59.451 58.963 71.281 71.387 71.13 71.213 71.01 70.635 69.845 68.822 68.986 68.525 67.103 66.664 67.365 67.627 66.72 67.337 67.657 68.365 68.854 68.204 58.26 58.141 66.927 69.789 69.122 69.601 69.076 68.909 69.337 68.621 67.11 65.266 64.678 64.223 61.751 60.287 59.447 57.811 58.444 58.209 57.645 57.279 56.377 56.572 56.467 56.796 57.045 57.735 57.858 57.081 56.943 56.421 54.929 56.202 57.349 57.643 57.477 58.207 57.706 58.385 58.601 59.228 58.694 57.176 57.423 57.733 58.599 58.614 58.771 59.005 58.651 59.077 59.001 58.113 58.374}
+} {57.668 58.916 57.992 58.647 58.463 58.415 58.353 58.948 58.897 59.02 58.761 58.745 58.248 58.595 59.158 58.846 58.467 61.37 59.153 59.315 58.301 60.035 59.451 58.963 71.281 71.387 71.13 71.213 71.01 70.635 69.845 68.822 68.986 68.525 67.103 66.664 67.365 67.627 66.72 67.337 67.657 68.365 68.854 68.204 58.26 58.141 66.927 69.789 69.122 69.601 69.076 68.909 69.337 68.621 67.11 65.266 64.678 64.223 61.751 60.287 59.447 57.811 58.444 58.209 57.645 57.279 56.377 56.572 56.467 56.796 57.045 57.735 57.858 57.081 56.943 56.421 54.929 56.202 57.349 57.643 57.477 58.207 57.706 58.385 58.601 59.228 58.694 57.176 57.423 57.733 58.599 58.614 58.771 59.005 58.651 59.077 59.001 58.113 58.374}
test power-1.2 {power command} {
set s [snack::sound snd -load ex1.wav]
diff -ru a/tests/record.test b/tests/record.test
--- a/tests/record.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/record.test 2024-07-21 18:59:56.606666594 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound record/stop
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/reverse.test b/tests/reverse.test
--- a/tests/reverse.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/reverse.test 2024-07-21 19:03:08.619999926 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound reverse
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/sample.test b/tests/sample.test
--- a/tests/sample.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/sample.test 2024-07-21 19:03:08.623333259 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound sample
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/sound.test b/tests/sound.test
--- a/tests/sound.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/sound.test 2024-07-21 20:52:52.479999801 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound creation
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -23,7 +23,7 @@
test sound-1.3 {sound command, bad args} {
catch {snack::sound snd -junk} msg
set msg
-} {bad option "-junk": must be -load, -file, -rate, -frequency, -channels, -encoding, -format, -channel, -byteorder, -buffersize, -skiphead, -guessproperties, -fileformat, -precision, -changecommand, or -debug}
+} {bad option "-junk": must be -load, -file, -rate, -frequency, -channels, -encoding, -format, -channel, -byteorder, -buffersize, -skiphead, -guessproperties, -fileformat, -precision, -changecommand, -debug, or -progress}
test sound-1.4 {sound command, missing argument for -rate option} {
catch {snack::sound snd -rate} msg
diff -ru a/tests/swap.test b/tests/swap.test
--- a/tests/swap.test 2018-02-26 12:31:40.000000000 +0100
+++ b/tests/swap.test 2024-07-21 19:03:08.623333259 +0200
@@ -1,7 +1,7 @@
# Commands covered: sound swap
#
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
diff -ru a/tests/zargs.test b/tests/zargs.test
--- a/tests/zargs.test 2024-07-21 18:30:57.073333322 +0200
+++ b/tests/zargs.test 2024-07-21 18:59:56.606666594 +0200
@@ -1,7 +1,7 @@
# Tests cover lack of command arguments
-package require -exact snack 2.2
+package require -exact sound 2.2
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
--- a/unix/Makefile.in 2018-02-26 12:31:40.000000000 +0100
+++ b/unix/Makefile.in 2024-07-22 00:42:01.330000319 +0200
@@ -335,10 +339,6 @@
# Tests are run using wish because of play/record commands
test:
- LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}; export LD_LIBRARY_PATH; \
- DYLD_LIBRARY_PATH=`pwd`:${DYLD_LIBRARY_PATH}; export DYLD_LIBRARY_PATH; \
- LIBPATH=`pwd`:${LIBPATH}; export LIBPATH; \
- SHLIB_PATH=`pwd`:${SHLIB_PATH}; export SHLIB_PATH; \
- TCL_LIBRARY="${TCL_BUILDTIME_LIBRARY}"; export TCL_LIBRARY; \
+ TCLLIBPATH=`pwd`${TCLLIBPATH:+:$TCLLIBPATH}; export TCLLIBPATH; \
cp -f $(UNIX_DIR)/../demos/tcl/ex1.wav ex1.wav; \
- wish${TCL_VERSION} $(UNIX_DIR)/../tests/all.tcl
+ tclsh${TCL_VERSION} $(UNIX_DIR)/../tests/all.tcl -skip "play* record* mixer-1.2"
|