1# Commands covered: sound crop
2#
3
4package require -exact snack 2.2
5
6if {[lsearch [namespace children] ::tcltest] == -1} {
7    package require tcltest
8    namespace import ::tcltest::*
9}
10
11test crop-1.1 {crop command} {
12  set s [snack::sound snd]
13  $s length 300000
14  $s sample 1000 17
15  $s sample 299000 17
16  $s crop 1000 299000
17  set res [list [$s sample 0] [$s sample 298000]]
18  $s destroy
19  set res
20} {17 17}
21
22test crop-1.2 {crop command, stereo} {
23  set s [snack::sound snd -channels 2]
24  $s length 300000
25  $s sample 1000 17 18
26  $s sample 299000 17 18
27  $s crop 1000 299000
28  set res [list [$s sample 0] [$s sample 298000]]
29  $s destroy
30  set res
31} {{17 18} {17 18}}
32
33test crop-1.3 {crop command, 3 channels} {
34  set s [snack::sound snd -channels 3]
35  $s length 300000
36  $s sample 1000 17 18 19
37  $s sample 299000 17 18 19
38  $s crop 1000 299000
39  set res [list [$s sample 0] [$s sample 298000]]
40  $s destroy
41  set res
42} {{17 18 19} {17 18 19}}
43
44# cleanup
45::tcltest::cleanupTests
46return
47