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