File: conf.test

package info (click to toggle)
snack 2.2.10-dfsg1-12.1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 3,024 kB
  • sloc: ansic: 35,473; sh: 8,557; tcl: 1,065; python: 701; makefile: 565
file content (163 lines) | stat: -rw-r--r-- 3,952 bytes parent folder | download | duplicates (9)
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
# Commands covered: sound configure
#

package require -exact snack 2.2

if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import ::tcltest::*
}

test configure-1.1 {configure command, bad args} {
  set s [snack::sound snd]
  set res [list [catch {$s configure -junk} msg] $msg]
  $s destroy
  set res
} {1 {bad option "-junk": must be -load, -file, -channel, -rate, -frequency, -channels, -encoding, -format, -byteorder, -buffersize, -skiphead, -guessproperties, -precision, -changecommand, -fileformat, or -debug}}

test configure-2.1 {configure command, get option -load} {
  set s [snack::sound snd -load ex1.wav]
  set res [$s configure -load]
  $s destroy
  set res
} {ex1.wav}

test configure-2.2 {configure command, get option -file} {
  set s [snack::sound snd -file ex1.wav]
  set res [$s configure -file]
  $s destroy
  set res
} {ex1.wav}

test configure-2.3 {configure command, get option -rate} {
  set s [snack::sound snd -load ex1.wav]
  set res [$s configure -rate]
  $s destroy
  set res
} 16000

test configure-2.4 {configure command, get option -encoding} {
  set s [snack::sound snd -load ex1.wav]
  set res [$s configure -encoding]
  $s destroy
  set res
} Lin16

test configure-2.5 {configure command, get option -channels} {
  set s [snack::sound snd -load ex1.wav]
  set res [$s configure -channels]
  $s destroy
  set res
} 1

test configure-2.6 {configure command, get option -byteorder} {
  set s [snack::sound snd -load ex1.wav]
  set res [$s configure -byteorder]
  $s destroy
  set res
} littleEndian

test configure-3.1 {configure command, set option -load} {
  set s [snack::sound snd]
  $s configure -load ex1.wav
  set res [$s cget -load]
  $s destroy
  set res
} {ex1.wav}

test configure-3.2 {configure command, set option -file} {
  set s [snack::sound snd]
  $s configure -file ex1.wav
  set res [$s cget -file]
  $s destroy
  set res
} {ex1.wav}

test configure-3.3 {configure command, set option -rate} {
  set s [snack::sound snd]
  $s configure -rate 8000
  set res [$s cget -rate]
  $s destroy
  set res
} 8000

test configure-3.4 {configure command, set option -rate} {
  set s [snack::sound snd]
  $s configure -rate 44100
  set res [$s cget -rate]
  $s destroy
  set res
} 44100

test configure-3.5 {configure command, set option -encoding} {
  set s [snack::sound snd]
  $s configure -encoding Lin16
  set res [$s cget -encoding]
  $s destroy
  set res
} Lin16

test configure-3.6 {configure command, set option -encoding} {
  set s [snack::sound snd]
  $s configure -encoding Mulaw
  set res [$s cget -encoding]
  $s destroy
  set res
} Mulaw

test configure-3.7 {configure command, set option -encoding} {
  set s [snack::sound snd]
  $s configure -encoding Float
  set res [$s cget -encoding]
  $s destroy
  set res
} Float

test configure-3.8 {configure command, set option -encoding} {
  set s [snack::sound snd]
  catch {$s configure -encoding junk} msg
  $s destroy
  set msg
} {Unknown encoding}

test configure-3.9 {configure command, set option -encoding} {
  set s [snack::sound snd]
  $s configure -channels 2
  set res [$s cget -channels]
  $s destroy
  set res
} 2

test configure-3.10 {configure command, set option -byteorder} {
  set s [snack::sound snd]
  $s configure -byteorder littleEndian
  set res [$s cget -byteorder]
  $s destroy
  set res
} littleEndian

test configure-3.11 {configure command, set option -precision} {
  set s [snack::sound snd]
  $s configure -precision double
  set res [$s cget -precision]
  $s destroy
  set res
} double

test configure-4.1 {configure command} {
  set s [snack::sound snd]
  set res [$s configure]
  $s destroy
  set res
} {0 16000 0 0 Lin16 1}

test configure-5.1 {configure command, set option -encoding} {
  set s [snack::sound snd]
  catch {$s configure -channels 2 -encoding} msg
  $s destroy
  set msg
} {No argument given for -encoding option}

# cleanup
::tcltest::cleanupTests
return