Chris@1
|
1 #!/bin/sh
|
Chris@1
|
2
|
Chris@1
|
3 # FLAC - Free Lossless Audio Codec
|
Chris@1
|
4 # Copyright (C) 2002,2003,2004,2005,2006,2007 Josh Coalson
|
Chris@1
|
5 #
|
Chris@1
|
6 # This file is part the FLAC project. FLAC is comprised of several
|
Chris@1
|
7 # components distributed under difference licenses. The codec libraries
|
Chris@1
|
8 # are distributed under Xiph.Org's BSD-like license (see the file
|
Chris@1
|
9 # COPYING.Xiph in this distribution). All other programs, libraries, and
|
Chris@1
|
10 # plugins are distributed under the GPL (see COPYING.GPL). The documentation
|
Chris@1
|
11 # is distributed under the Gnu FDL (see COPYING.FDL). Each file in the
|
Chris@1
|
12 # FLAC distribution contains at the top the terms under which it may be
|
Chris@1
|
13 # distributed.
|
Chris@1
|
14 #
|
Chris@1
|
15 # Since this particular file is relevant to all components of FLAC,
|
Chris@1
|
16 # it may be distributed under the Xiph.Org license, which is the least
|
Chris@1
|
17 # restrictive of those mentioned above. See the file COPYING.Xiph in this
|
Chris@1
|
18 # distribution.
|
Chris@1
|
19
|
Chris@1
|
20 die ()
|
Chris@1
|
21 {
|
Chris@1
|
22 echo $* 1>&2
|
Chris@1
|
23 exit 1
|
Chris@1
|
24 }
|
Chris@1
|
25
|
Chris@1
|
26 if [ x = x"$1" ] ; then
|
Chris@1
|
27 BUILD=debug
|
Chris@1
|
28 else
|
Chris@1
|
29 BUILD="$1"
|
Chris@1
|
30 fi
|
Chris@1
|
31
|
Chris@1
|
32 # change to 'false' to show all flac/metaflac output (useful for debugging)
|
Chris@1
|
33 if true ; then
|
Chris@1
|
34 SILENT='--silent'
|
Chris@1
|
35 TOTALLY_SILENT='--totally-silent'
|
Chris@1
|
36 else
|
Chris@1
|
37 SILENT=''
|
Chris@1
|
38 TOTALLY_SILENT=''
|
Chris@1
|
39 fi
|
Chris@1
|
40
|
Chris@1
|
41 LD_LIBRARY_PATH=`pwd`/../src/libFLAC/.libs:$LD_LIBRARY_PATH
|
Chris@1
|
42 LD_LIBRARY_PATH=`pwd`/../src/share/grabbag/.libs:$LD_LIBRARY_PATH
|
Chris@1
|
43 LD_LIBRARY_PATH=`pwd`/../src/share/getopt/.libs:$LD_LIBRARY_PATH
|
Chris@1
|
44 LD_LIBRARY_PATH=`pwd`/../src/share/replaygain_analysis/.libs:$LD_LIBRARY_PATH
|
Chris@1
|
45 LD_LIBRARY_PATH=`pwd`/../src/share/replaygain_synthesis/.libs:$LD_LIBRARY_PATH
|
Chris@1
|
46 LD_LIBRARY_PATH=`pwd`/../src/share/utf8/.libs:$LD_LIBRARY_PATH
|
Chris@1
|
47 LD_LIBRARY_PATH=`pwd`/../obj/$BUILD/lib:$LD_LIBRARY_PATH
|
Chris@1
|
48 export LD_LIBRARY_PATH
|
Chris@1
|
49 PATH=`pwd`/../src/flac:$PATH
|
Chris@1
|
50 PATH=`pwd`/../src/metaflac:$PATH
|
Chris@1
|
51 PATH=`pwd`/../obj/$BUILD/bin:$PATH
|
Chris@1
|
52
|
Chris@1
|
53 if echo a | (grep -E '(a|b)') >/dev/null 2>&1
|
Chris@1
|
54 then EGREP='grep -E'
|
Chris@1
|
55 else EGREP='egrep'
|
Chris@1
|
56 fi
|
Chris@1
|
57
|
Chris@1
|
58 testdir="metaflac-test-files"
|
Chris@1
|
59 flacfile="metaflac.flac"
|
Chris@1
|
60
|
Chris@1
|
61 flac --help 1>/dev/null 2>/dev/null || die "ERROR can't find flac executable"
|
Chris@1
|
62 metaflac --help 1>/dev/null 2>/dev/null || die "ERROR can't find metaflac executable"
|
Chris@1
|
63
|
Chris@1
|
64 run_flac ()
|
Chris@1
|
65 {
|
Chris@1
|
66 if [ x"$FLAC__TEST_WITH_VALGRIND" = xyes ] ; then
|
Chris@1
|
67 echo "valgrind --leak-check=yes --show-reachable=yes --num-callers=100 flac $*" >>test_metaflac.valgrind.log
|
Chris@1
|
68 valgrind --leak-check=yes --show-reachable=yes --num-callers=100 --log-fd=4 flac $* 4>>test_metaflac.valgrind.log
|
Chris@1
|
69 else
|
Chris@1
|
70 flac $*
|
Chris@1
|
71 fi
|
Chris@1
|
72 }
|
Chris@1
|
73
|
Chris@1
|
74 run_metaflac ()
|
Chris@1
|
75 {
|
Chris@1
|
76 if [ x"$FLAC__TEST_WITH_VALGRIND" = xyes ] ; then
|
Chris@1
|
77 echo "valgrind --leak-check=yes --show-reachable=yes --num-callers=100 metaflac $*" >>test_metaflac.valgrind.log
|
Chris@1
|
78 valgrind --leak-check=yes --show-reachable=yes --num-callers=100 --log-fd=4 metaflac $* 4>>test_metaflac.valgrind.log
|
Chris@1
|
79 else
|
Chris@1
|
80 metaflac $*
|
Chris@1
|
81 fi
|
Chris@1
|
82 }
|
Chris@1
|
83
|
Chris@1
|
84 run_metaflac_silent ()
|
Chris@1
|
85 {
|
Chris@1
|
86 if [ -z "$SILENT" ] ; then
|
Chris@1
|
87 run_metaflac $*
|
Chris@1
|
88 else
|
Chris@1
|
89 if [ x"$FLAC__TEST_WITH_VALGRIND" = xyes ] ; then
|
Chris@1
|
90 echo "valgrind --leak-check=yes --show-reachable=yes --num-callers=100 metaflac $*" >>test_metaflac.valgrind.log
|
Chris@1
|
91 valgrind --leak-check=yes --show-reachable=yes --num-callers=100 --log-fd=4 metaflac $* 2>/dev/null 4>>test_metaflac.valgrind.log
|
Chris@1
|
92 else
|
Chris@1
|
93 metaflac $* 2>/dev/null
|
Chris@1
|
94 fi
|
Chris@1
|
95 fi
|
Chris@1
|
96 }
|
Chris@1
|
97
|
Chris@1
|
98 check_flac ()
|
Chris@1
|
99 {
|
Chris@1
|
100 run_flac --silent --test $flacfile || die "ERROR in $flacfile" 1>&2
|
Chris@1
|
101 }
|
Chris@1
|
102
|
Chris@1
|
103 echo "Generating stream..."
|
Chris@1
|
104 bytes=80000
|
Chris@1
|
105 if dd if=/dev/zero ibs=1 count=$bytes | flac --force --verify -0 --input-size=$bytes --output-name=$flacfile --force-raw-format --endian=big --sign=signed --channels=1 --bps=8 --sample-rate=8000 - ; then
|
Chris@1
|
106 chmod +w $flacfile
|
Chris@1
|
107 else
|
Chris@1
|
108 die "ERROR during generation"
|
Chris@1
|
109 fi
|
Chris@1
|
110
|
Chris@1
|
111 check_flac
|
Chris@1
|
112
|
Chris@1
|
113 echo
|
Chris@1
|
114
|
Chris@1
|
115 filter ()
|
Chris@1
|
116 {
|
Chris@1
|
117 # minor danger, changing vendor strings will change the length of the
|
Chris@1
|
118 # VORBIS_COMMENT block, but if we add "^ length: " to the patterns,
|
Chris@1
|
119 # we lose info about PADDING size that we need
|
Chris@1
|
120 # grep pattern 1: remove vendor string
|
Chris@1
|
121 # grep pattern 2: remove minimum/maximum frame and block size from STREAMINFO
|
Chris@1
|
122 # grep pattern 3: remove hexdump data from PICTURE metadata blocks
|
Chris@1
|
123 # sed pattern 1: remove stream offset values from SEEKTABLE points
|
Chris@1
|
124 $EGREP -v '^ vendor string: |^ m..imum .....size: |^ 0000[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F]: ' | sed -e 's/, stream_offset.*//'
|
Chris@1
|
125 }
|
Chris@1
|
126 metaflac_test ()
|
Chris@1
|
127 {
|
Chris@1
|
128 case="$1"
|
Chris@1
|
129 desc="$2"
|
Chris@1
|
130 args="$3"
|
Chris@1
|
131 expect="$testdir/$case-expect.meta"
|
Chris@1
|
132 echo -n "test $case: $desc... "
|
Chris@1
|
133 run_metaflac $args $flacfile | filter > $testdir/out.meta || die "ERROR running metaflac"
|
Chris@1
|
134 diff -w $expect $testdir/out.meta > /dev/null 2>&1 || die "ERROR: metadata does not match expected $expect"
|
Chris@1
|
135 echo OK
|
Chris@1
|
136 }
|
Chris@1
|
137
|
Chris@1
|
138 metaflac_test case00 "--list" "--list"
|
Chris@1
|
139
|
Chris@1
|
140 metaflac_test case01 "STREAMINFO --show-* shortcuts" "
|
Chris@1
|
141 --show-md5sum
|
Chris@1
|
142 --show-min-blocksize
|
Chris@1
|
143 --show-max-blocksize
|
Chris@1
|
144 --show-min-framesize
|
Chris@1
|
145 --show-max-framesize
|
Chris@1
|
146 --show-sample-rate
|
Chris@1
|
147 --show-channels
|
Chris@1
|
148 --show-bps
|
Chris@1
|
149 --show-total-samples"
|
Chris@1
|
150
|
Chris@1
|
151 run_metaflac --preserve-modtime --add-padding=12345 $flacfile
|
Chris@1
|
152 check_flac
|
Chris@1
|
153 metaflac_test case02 "--add-padding" "--list"
|
Chris@1
|
154
|
Chris@1
|
155 # some flavors of /bin/sh (e.g. Darwin's) won't even handle quoted spaces, so we underscore:
|
Chris@1
|
156 run_metaflac --set-tag="ARTIST=The_artist_formerly_known_as_the_artist..." $flacfile
|
Chris@1
|
157 check_flac
|
Chris@1
|
158 metaflac_test case03 "--set-tag=ARTIST" "--list"
|
Chris@1
|
159
|
Chris@1
|
160 run_metaflac --set-tag="ARTIST=Chuck_Woolery" $flacfile
|
Chris@1
|
161 check_flac
|
Chris@1
|
162 metaflac_test case04 "--set-tag=ARTIST" "--list"
|
Chris@1
|
163
|
Chris@1
|
164 run_metaflac --set-tag="ARTIST=Vern" $flacfile
|
Chris@1
|
165 check_flac
|
Chris@1
|
166 metaflac_test case05 "--set-tag=ARTIST" "--list"
|
Chris@1
|
167
|
Chris@1
|
168 run_metaflac --set-tag="TITLE=He_who_smelt_it_dealt_it" $flacfile
|
Chris@1
|
169 check_flac
|
Chris@1
|
170 metaflac_test case06 "--set-tag=TITLE" "--list"
|
Chris@1
|
171
|
Chris@1
|
172 metaflac_test case07 "--show-vendor-tag --show-tag=ARTIST" "--show-vendor-tag --show-tag=ARTIST"
|
Chris@1
|
173
|
Chris@1
|
174 run_metaflac --remove-first-tag=ARTIST $flacfile
|
Chris@1
|
175 check_flac
|
Chris@1
|
176 metaflac_test case08 "--remove-first-tag=ARTIST" "--list"
|
Chris@1
|
177
|
Chris@1
|
178 run_metaflac --remove-tag=ARTIST $flacfile
|
Chris@1
|
179 check_flac
|
Chris@1
|
180 metaflac_test case09 "--remove-tag=ARTIST" "--list"
|
Chris@1
|
181
|
Chris@1
|
182 metaflac_test case10 "--list --block-type=VORBIS_COMMENT" "--list --block-type=VORBIS_COMMENT"
|
Chris@1
|
183 metaflac_test case11 "--list --block-number=0" "--list --block-number=0"
|
Chris@1
|
184 metaflac_test case12 "--list --block-number=1,2,999" "--list --block-number=1,2,999"
|
Chris@1
|
185 metaflac_test case13 "--list --block-type=VORBIS_COMMENT,PADDING" "--list --block-type=VORBIS_COMMENT,PADDING"
|
Chris@1
|
186 metaflac_test case14 "--list --except-block-type=SEEKTABLE,VORBIS_COMMENT" "--list --except-block-type=SEEKTABLE,VORBIS_COMMENT"
|
Chris@1
|
187 metaflac_test case15 "--list --except-block-type=STREAMINFO" "--list --except-block-type=STREAMINFO"
|
Chris@1
|
188
|
Chris@1
|
189 run_metaflac --add-padding=4321 $flacfile $flacfile
|
Chris@1
|
190 check_flac
|
Chris@1
|
191 metaflac_test case16 "--add-padding=4321 * 2" "--list"
|
Chris@1
|
192
|
Chris@1
|
193 run_metaflac --merge-padding $flacfile
|
Chris@1
|
194 check_flac
|
Chris@1
|
195 metaflac_test case17 "--merge-padding" "--list"
|
Chris@1
|
196
|
Chris@1
|
197 run_metaflac --add-padding=0 $flacfile
|
Chris@1
|
198 check_flac
|
Chris@1
|
199 metaflac_test case18 "--add-padding=0" "--list"
|
Chris@1
|
200
|
Chris@1
|
201 run_metaflac --sort-padding $flacfile
|
Chris@1
|
202 check_flac
|
Chris@1
|
203 metaflac_test case19 "--sort-padding" "--list"
|
Chris@1
|
204
|
Chris@1
|
205 run_metaflac --add-padding=0 $flacfile
|
Chris@1
|
206 check_flac
|
Chris@1
|
207 metaflac_test case20 "--add-padding=0" "--list"
|
Chris@1
|
208
|
Chris@1
|
209 run_metaflac --remove-all-tags $flacfile
|
Chris@1
|
210 check_flac
|
Chris@1
|
211 metaflac_test case21 "--remove-all-tags" "--list"
|
Chris@1
|
212
|
Chris@1
|
213 run_metaflac --remove --block-number=1,99 --dont-use-padding $flacfile
|
Chris@1
|
214 check_flac
|
Chris@1
|
215 metaflac_test case22 "--remove --block-number=1,99 --dont-use-padding" "--list"
|
Chris@1
|
216
|
Chris@1
|
217 run_metaflac --remove --block-number=99 --dont-use-padding $flacfile
|
Chris@1
|
218 check_flac
|
Chris@1
|
219 metaflac_test case23 "--remove --block-number=99 --dont-use-padding" "--list"
|
Chris@1
|
220
|
Chris@1
|
221 run_metaflac --remove --block-type=PADDING $flacfile
|
Chris@1
|
222 check_flac
|
Chris@1
|
223 metaflac_test case24 "--remove --block-type=PADDING" "--list"
|
Chris@1
|
224
|
Chris@1
|
225 run_metaflac --remove --block-type=PADDING --dont-use-padding $flacfile
|
Chris@1
|
226 check_flac
|
Chris@1
|
227 metaflac_test case25 "--remove --block-type=PADDING --dont-use-padding" "--list"
|
Chris@1
|
228
|
Chris@1
|
229 run_metaflac --add-padding=0 $flacfile $flacfile
|
Chris@1
|
230 check_flac
|
Chris@1
|
231 metaflac_test case26 "--add-padding=0 * 2" "--list"
|
Chris@1
|
232
|
Chris@1
|
233 run_metaflac --remove --except-block-type=PADDING $flacfile
|
Chris@1
|
234 check_flac
|
Chris@1
|
235 metaflac_test case27 "--remove --except-block-type=PADDING" "--list"
|
Chris@1
|
236
|
Chris@1
|
237 run_metaflac --remove-all $flacfile
|
Chris@1
|
238 check_flac
|
Chris@1
|
239 metaflac_test case28 "--remove-all" "--list"
|
Chris@1
|
240
|
Chris@1
|
241 run_metaflac --remove-all --dont-use-padding $flacfile
|
Chris@1
|
242 check_flac
|
Chris@1
|
243 metaflac_test case29 "--remove-all --dont-use-padding" "--list"
|
Chris@1
|
244
|
Chris@1
|
245 run_metaflac --remove-all --dont-use-padding $flacfile
|
Chris@1
|
246 check_flac
|
Chris@1
|
247 metaflac_test case30 "--remove-all --dont-use-padding" "--list"
|
Chris@1
|
248
|
Chris@1
|
249 run_metaflac --set-tag="f=0123456789abcdefghij" $flacfile
|
Chris@1
|
250 check_flac
|
Chris@1
|
251 metaflac_test case31 "--set-tag=..." "--list"
|
Chris@1
|
252
|
Chris@1
|
253 run_metaflac --remove-all-tags --set-tag="f=0123456789abcdefghi" $flacfile
|
Chris@1
|
254 check_flac
|
Chris@1
|
255 metaflac_test case32 "--remove-all-tags --set-tag=..." "--list"
|
Chris@1
|
256
|
Chris@1
|
257 run_metaflac --remove-all-tags --set-tag="f=0123456789abcde" $flacfile
|
Chris@1
|
258 check_flac
|
Chris@1
|
259 metaflac_test case33 "--remove-all-tags --set-tag=..." "--list"
|
Chris@1
|
260
|
Chris@1
|
261 run_metaflac --remove-all-tags --set-tag="f=0" $flacfile
|
Chris@1
|
262 check_flac
|
Chris@1
|
263 metaflac_test case34 "--remove-all-tags --set-tag=..." "--list"
|
Chris@1
|
264
|
Chris@1
|
265 run_metaflac --remove-all-tags --set-tag="f=0123456789" $flacfile
|
Chris@1
|
266 check_flac
|
Chris@1
|
267 metaflac_test case35 "--remove-all-tags --set-tag=..." "--list"
|
Chris@1
|
268
|
Chris@1
|
269 run_metaflac --remove-all-tags --set-tag="f=0123456789abcdefghi" $flacfile
|
Chris@1
|
270 check_flac
|
Chris@1
|
271 metaflac_test case36 "--remove-all-tags --set-tag=..." "--list"
|
Chris@1
|
272
|
Chris@1
|
273 run_metaflac --remove-all-tags --set-tag="f=0123456789" $flacfile
|
Chris@1
|
274 check_flac
|
Chris@1
|
275 metaflac_test case37 "--remove-all-tags --set-tag=..." "--list"
|
Chris@1
|
276
|
Chris@1
|
277 run_metaflac --remove-all-tags --set-tag="f=0123456789abcdefghij" $flacfile
|
Chris@1
|
278 check_flac
|
Chris@1
|
279 metaflac_test case38 "--remove-all-tags --set-tag=..." "--list"
|
Chris@1
|
280
|
Chris@1
|
281 echo "TITLE=Tittle" | run_metaflac --import-tags-from=- $flacfile
|
Chris@1
|
282 check_flac
|
Chris@1
|
283 metaflac_test case39 "--import-tags-from=-" "--list"
|
Chris@1
|
284
|
Chris@1
|
285 cat > vc.txt << EOF
|
Chris@1
|
286 artist=Fartist
|
Chris@1
|
287 artist=artits
|
Chris@1
|
288 EOF
|
Chris@1
|
289 run_metaflac --import-tags-from=vc.txt $flacfile
|
Chris@1
|
290 check_flac
|
Chris@1
|
291 metaflac_test case40 "--import-tags-from=[FILE]" "--list"
|
Chris@1
|
292
|
Chris@1
|
293 rm vc.txt
|
Chris@1
|
294
|
Chris@1
|
295 run_metaflac --add-replay-gain $flacfile
|
Chris@1
|
296 check_flac
|
Chris@1
|
297 metaflac_test case41 "--add-replay-gain" "--list"
|
Chris@1
|
298
|
Chris@1
|
299 run_metaflac --remove-replay-gain $flacfile
|
Chris@1
|
300 check_flac
|
Chris@1
|
301 metaflac_test case42 "--remove-replay-gain" "--list"
|
Chris@1
|
302
|
Chris@1
|
303 # CUESHEET blocks
|
Chris@1
|
304 cs_in=cuesheets/good.000.cue
|
Chris@1
|
305 cs_out=metaflac.cue
|
Chris@1
|
306 cs_out2=metaflac2.cue
|
Chris@1
|
307 run_metaflac --import-cuesheet-from="$cs_in" $flacfile
|
Chris@1
|
308 check_flac
|
Chris@1
|
309 metaflac_test case43 "--import-cuesheet-from" "--list"
|
Chris@1
|
310 run_metaflac --export-cuesheet-to=$cs_out $flacfile
|
Chris@1
|
311 run_metaflac --remove --block-type=CUESHEET $flacfile
|
Chris@1
|
312 check_flac
|
Chris@1
|
313 metaflac_test case44 "--remove --block-type=CUESHEET" "--list"
|
Chris@1
|
314 run_metaflac --import-cuesheet-from=$cs_out $flacfile
|
Chris@1
|
315 check_flac
|
Chris@1
|
316 metaflac_test case45 "--import-cuesheet-from" "--list"
|
Chris@1
|
317 run_metaflac --export-cuesheet-to=$cs_out2 $flacfile
|
Chris@1
|
318 echo "comparing cuesheets:"
|
Chris@1
|
319 diff $cs_out $cs_out2 || die "ERROR, cuesheets should be identical"
|
Chris@1
|
320 echo identical
|
Chris@1
|
321
|
Chris@1
|
322 rm -f $cs_out $cs_out2
|
Chris@1
|
323
|
Chris@1
|
324 # PICTURE blocks
|
Chris@1
|
325 ncase=46
|
Chris@1
|
326 for f in \
|
Chris@1
|
327 0.gif \
|
Chris@1
|
328 1.gif \
|
Chris@1
|
329 2.gif \
|
Chris@1
|
330 ; do
|
Chris@1
|
331 run_metaflac --import-picture-from="|image/gif|$f||pictures/$f" $flacfile
|
Chris@1
|
332 check_flac
|
Chris@1
|
333 metaflac_test "case$ncase" "--import-picture-from" "--list"
|
Chris@1
|
334 ncase=`expr $ncase + 1`
|
Chris@1
|
335 done
|
Chris@1
|
336 for f in \
|
Chris@1
|
337 0.jpg \
|
Chris@1
|
338 4.jpg \
|
Chris@1
|
339 ; do
|
Chris@1
|
340 run_metaflac --import-picture-from="4|image/jpeg|$f||pictures/$f" $flacfile
|
Chris@1
|
341 check_flac
|
Chris@1
|
342 metaflac_test "case$ncase" "--import-picture-from" "--list"
|
Chris@1
|
343 ncase=`expr $ncase + 1`
|
Chris@1
|
344 done
|
Chris@1
|
345 for f in \
|
Chris@1
|
346 0.png \
|
Chris@1
|
347 1.png \
|
Chris@1
|
348 2.png \
|
Chris@1
|
349 3.png \
|
Chris@1
|
350 4.png \
|
Chris@1
|
351 5.png \
|
Chris@1
|
352 6.png \
|
Chris@1
|
353 7.png \
|
Chris@1
|
354 8.png \
|
Chris@1
|
355 ; do
|
Chris@1
|
356 run_metaflac --import-picture-from="5|image/png|$f||pictures/$f" $flacfile
|
Chris@1
|
357 check_flac
|
Chris@1
|
358 metaflac_test "case$ncase" "--import-picture-from" "--list"
|
Chris@1
|
359 ncase=`expr $ncase + 1`
|
Chris@1
|
360 done
|
Chris@1
|
361 [ $ncase = 60 ] || die "expected case# to be 60"
|
Chris@1
|
362
|
Chris@1
|
363 fn=export-picture-check
|
Chris@1
|
364 echo -n "Testing --export-picture-to... "
|
Chris@1
|
365 run_metaflac --export-picture-to=$fn $flacfile
|
Chris@1
|
366 check_flac
|
Chris@1
|
367 cmp $fn pictures/0.gif || die "ERROR, exported picture file and original differ"
|
Chris@1
|
368 echo OK
|
Chris@1
|
369 rm -f $fn
|
Chris@1
|
370 echo -n "Testing --block-number --export-picture-to... "
|
Chris@1
|
371 run_metaflac --block-number=9 --export-picture-to=$fn $flacfile
|
Chris@1
|
372 check_flac
|
Chris@1
|
373 cmp $fn pictures/0.png || die "ERROR, exported picture file and original differ"
|
Chris@1
|
374 echo OK
|
Chris@1
|
375 rm -f $fn
|
Chris@1
|
376
|
Chris@1
|
377 run_metaflac --remove --block-type=PICTURE $flacfile
|
Chris@1
|
378 check_flac
|
Chris@1
|
379 metaflac_test case60 "--remove --block-type=PICTURE" "--list"
|
Chris@1
|
380 run_metaflac --import-picture-from="1|image/png|standard_icon|32x32x24|pictures/0.png" $flacfile
|
Chris@1
|
381 check_flac
|
Chris@1
|
382 metaflac_test case61 "--import-picture-from" "--list"
|
Chris@1
|
383 run_metaflac --import-picture-from="2|image/png|icon|64x64x24|pictures/1.png" $flacfile
|
Chris@1
|
384 check_flac
|
Chris@1
|
385 metaflac_test case62 "--import-picture-from" "--list"
|
Chris@1
|
386
|
Chris@1
|
387 # UNKNOWN blocks
|
Chris@1
|
388 echo -n "Testing FLAC file with unknown metadata... "
|
Chris@1
|
389 cp -p metaflac.flac.in $flacfile
|
Chris@1
|
390 # remove the VORBIS_COMMENT block so vendor string changes don't interfere with the comparison:
|
Chris@1
|
391 run_metaflac --remove --block-type=VORBIS_COMMENT --dont-use-padding $flacfile
|
Chris@1
|
392 cmp $flacfile metaflac.flac.ok || die "ERROR, $flacfile and metaflac.flac.ok differ"
|
Chris@1
|
393 echo OK
|
Chris@1
|
394
|
Chris@1
|
395 rm -f $testdir/out.flac $testdir/out.meta
|
Chris@1
|
396
|
Chris@1
|
397 exit 0
|