Chris@1: #!/bin/sh
Chris@1: 
Chris@1: #  FLAC - Free Lossless Audio Codec
Chris@1: #  Copyright (C) 2002,2003,2004,2005,2006,2007  Josh Coalson
Chris@1: #
Chris@1: #  This file is part the FLAC project.  FLAC is comprised of several
Chris@1: #  components distributed under difference licenses.  The codec libraries
Chris@1: #  are distributed under Xiph.Org's BSD-like license (see the file
Chris@1: #  COPYING.Xiph in this distribution).  All other programs, libraries, and
Chris@1: #  plugins are distributed under the GPL (see COPYING.GPL).  The documentation
Chris@1: #  is distributed under the Gnu FDL (see COPYING.FDL).  Each file in the
Chris@1: #  FLAC distribution contains at the top the terms under which it may be
Chris@1: #  distributed.
Chris@1: #
Chris@1: #  Since this particular file is relevant to all components of FLAC,
Chris@1: #  it may be distributed under the Xiph.Org license, which is the least
Chris@1: #  restrictive of those mentioned above.  See the file COPYING.Xiph in this
Chris@1: #  distribution.
Chris@1: 
Chris@1: die ()
Chris@1: {
Chris@1: 	echo $* 1>&2
Chris@1: 	exit 1
Chris@1: }
Chris@1: 
Chris@1: if [ x = x"$1" ] ; then
Chris@1: 	BUILD=debug
Chris@1: else
Chris@1: 	BUILD="$1"
Chris@1: fi
Chris@1: 
Chris@1: # change to 'false' to show all flac/metaflac output (useful for debugging)
Chris@1: if true ; then
Chris@1: 	SILENT='--silent'
Chris@1: 	TOTALLY_SILENT='--totally-silent'
Chris@1: else
Chris@1: 	SILENT=''
Chris@1: 	TOTALLY_SILENT=''
Chris@1: fi
Chris@1: 
Chris@1: LD_LIBRARY_PATH=`pwd`/../src/libFLAC/.libs:$LD_LIBRARY_PATH
Chris@1: LD_LIBRARY_PATH=`pwd`/../src/share/grabbag/.libs:$LD_LIBRARY_PATH
Chris@1: LD_LIBRARY_PATH=`pwd`/../src/share/getopt/.libs:$LD_LIBRARY_PATH
Chris@1: LD_LIBRARY_PATH=`pwd`/../src/share/replaygain_analysis/.libs:$LD_LIBRARY_PATH
Chris@1: LD_LIBRARY_PATH=`pwd`/../src/share/replaygain_synthesis/.libs:$LD_LIBRARY_PATH
Chris@1: LD_LIBRARY_PATH=`pwd`/../src/share/utf8/.libs:$LD_LIBRARY_PATH
Chris@1: LD_LIBRARY_PATH=`pwd`/../obj/$BUILD/lib:$LD_LIBRARY_PATH
Chris@1: export LD_LIBRARY_PATH
Chris@1: PATH=`pwd`/../src/flac:$PATH
Chris@1: PATH=`pwd`/../src/metaflac:$PATH
Chris@1: PATH=`pwd`/../obj/$BUILD/bin:$PATH
Chris@1: 
Chris@1: if echo a | (grep -E '(a|b)') >/dev/null 2>&1
Chris@1: 	then EGREP='grep -E'
Chris@1: 	else EGREP='egrep'
Chris@1: fi
Chris@1: 
Chris@1: testdir="metaflac-test-files"
Chris@1: flacfile="metaflac.flac"
Chris@1: 
Chris@1: flac --help 1>/dev/null 2>/dev/null || die "ERROR can't find flac executable"
Chris@1: metaflac --help 1>/dev/null 2>/dev/null || die "ERROR can't find metaflac executable"
Chris@1: 
Chris@1: run_flac ()
Chris@1: {
Chris@1: 	if [ x"$FLAC__TEST_WITH_VALGRIND" = xyes ] ; then
Chris@1: 		echo "valgrind --leak-check=yes --show-reachable=yes --num-callers=100 flac $*" >>test_metaflac.valgrind.log
Chris@1: 		valgrind --leak-check=yes --show-reachable=yes --num-callers=100 --log-fd=4 flac $* 4>>test_metaflac.valgrind.log
Chris@1: 	else
Chris@1: 		flac $*
Chris@1: 	fi
Chris@1: }
Chris@1: 
Chris@1: run_metaflac ()
Chris@1: {
Chris@1: 	if [ x"$FLAC__TEST_WITH_VALGRIND" = xyes ] ; then
Chris@1: 		echo "valgrind --leak-check=yes --show-reachable=yes --num-callers=100 metaflac $*" >>test_metaflac.valgrind.log
Chris@1: 		valgrind --leak-check=yes --show-reachable=yes --num-callers=100 --log-fd=4 metaflac $* 4>>test_metaflac.valgrind.log
Chris@1: 	else
Chris@1: 		metaflac $*
Chris@1: 	fi
Chris@1: }
Chris@1: 
Chris@1: run_metaflac_silent ()
Chris@1: {
Chris@1: 	if [ -z "$SILENT" ] ; then
Chris@1: 		run_metaflac $*
Chris@1: 	else
Chris@1: 		if [ x"$FLAC__TEST_WITH_VALGRIND" = xyes ] ; then
Chris@1: 			echo "valgrind --leak-check=yes --show-reachable=yes --num-callers=100 metaflac $*" >>test_metaflac.valgrind.log
Chris@1: 			valgrind --leak-check=yes --show-reachable=yes --num-callers=100 --log-fd=4 metaflac $* 2>/dev/null 4>>test_metaflac.valgrind.log
Chris@1: 		else
Chris@1: 			metaflac $* 2>/dev/null
Chris@1: 		fi
Chris@1: 	fi
Chris@1: }
Chris@1: 
Chris@1: check_flac ()
Chris@1: {
Chris@1: 	run_flac --silent --test $flacfile || die "ERROR in $flacfile" 1>&2
Chris@1: }
Chris@1: 
Chris@1: echo "Generating stream..."
Chris@1: bytes=80000
Chris@1: 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: 	chmod +w $flacfile
Chris@1: else
Chris@1: 	die "ERROR during generation"
Chris@1: fi
Chris@1: 
Chris@1: check_flac
Chris@1: 
Chris@1: echo
Chris@1: 
Chris@1: filter ()
Chris@1: {
Chris@1: 	# minor danger, changing vendor strings will change the length of the
Chris@1: 	# VORBIS_COMMENT block, but if we add "^  length: " to the patterns,
Chris@1: 	# we lose info about PADDING size that we need
Chris@1: 	# grep pattern 1: remove vendor string
Chris@1: 	# grep pattern 2: remove minimum/maximum frame and block size from STREAMINFO
Chris@1: 	# grep pattern 3: remove hexdump data from PICTURE metadata blocks
Chris@1: 	# sed pattern 1: remove stream offset values from SEEKTABLE points
Chris@1: 	$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: }
Chris@1: metaflac_test ()
Chris@1: {
Chris@1: 	case="$1"
Chris@1: 	desc="$2"
Chris@1: 	args="$3"
Chris@1: 	expect="$testdir/$case-expect.meta"
Chris@1: 	echo -n "test $case: $desc... "
Chris@1: 	run_metaflac $args $flacfile | filter > $testdir/out.meta || die "ERROR running metaflac"
Chris@1: 	diff -w $expect $testdir/out.meta > /dev/null 2>&1 || die "ERROR: metadata does not match expected $expect"
Chris@1: 	echo OK
Chris@1: }
Chris@1: 
Chris@1: metaflac_test case00 "--list" "--list"
Chris@1: 
Chris@1: metaflac_test case01 "STREAMINFO --show-* shortcuts" "
Chris@1: 	--show-md5sum
Chris@1: 	--show-min-blocksize
Chris@1: 	--show-max-blocksize
Chris@1: 	--show-min-framesize
Chris@1: 	--show-max-framesize
Chris@1: 	--show-sample-rate
Chris@1: 	--show-channels
Chris@1: 	--show-bps
Chris@1: 	--show-total-samples"
Chris@1: 
Chris@1: run_metaflac --preserve-modtime --add-padding=12345 $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case02 "--add-padding" "--list"
Chris@1: 
Chris@1: # some flavors of /bin/sh (e.g. Darwin's) won't even handle quoted spaces, so we underscore:
Chris@1: run_metaflac --set-tag="ARTIST=The_artist_formerly_known_as_the_artist..." $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case03 "--set-tag=ARTIST" "--list"
Chris@1: 
Chris@1: run_metaflac --set-tag="ARTIST=Chuck_Woolery" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case04 "--set-tag=ARTIST" "--list"
Chris@1: 
Chris@1: run_metaflac --set-tag="ARTIST=Vern" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case05 "--set-tag=ARTIST" "--list"
Chris@1: 
Chris@1: run_metaflac --set-tag="TITLE=He_who_smelt_it_dealt_it" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case06 "--set-tag=TITLE" "--list"
Chris@1: 
Chris@1: metaflac_test case07 "--show-vendor-tag --show-tag=ARTIST" "--show-vendor-tag --show-tag=ARTIST"
Chris@1: 
Chris@1: run_metaflac --remove-first-tag=ARTIST $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case08 "--remove-first-tag=ARTIST" "--list"
Chris@1: 
Chris@1: run_metaflac --remove-tag=ARTIST $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case09 "--remove-tag=ARTIST" "--list"
Chris@1: 
Chris@1: metaflac_test case10 "--list --block-type=VORBIS_COMMENT" "--list --block-type=VORBIS_COMMENT"
Chris@1: metaflac_test case11 "--list --block-number=0" "--list --block-number=0"
Chris@1: metaflac_test case12 "--list --block-number=1,2,999" "--list --block-number=1,2,999"
Chris@1: metaflac_test case13 "--list --block-type=VORBIS_COMMENT,PADDING" "--list --block-type=VORBIS_COMMENT,PADDING"
Chris@1: metaflac_test case14 "--list --except-block-type=SEEKTABLE,VORBIS_COMMENT" "--list --except-block-type=SEEKTABLE,VORBIS_COMMENT"
Chris@1: metaflac_test case15 "--list --except-block-type=STREAMINFO" "--list --except-block-type=STREAMINFO"
Chris@1: 
Chris@1: run_metaflac --add-padding=4321 $flacfile $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case16 "--add-padding=4321 * 2" "--list"
Chris@1: 
Chris@1: run_metaflac --merge-padding $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case17 "--merge-padding" "--list"
Chris@1: 
Chris@1: run_metaflac --add-padding=0 $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case18 "--add-padding=0" "--list"
Chris@1: 
Chris@1: run_metaflac --sort-padding $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case19 "--sort-padding" "--list"
Chris@1: 
Chris@1: run_metaflac --add-padding=0 $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case20 "--add-padding=0" "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all-tags $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case21 "--remove-all-tags" "--list"
Chris@1: 
Chris@1: run_metaflac --remove --block-number=1,99 --dont-use-padding $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case22 "--remove --block-number=1,99 --dont-use-padding" "--list"
Chris@1: 
Chris@1: run_metaflac --remove --block-number=99 --dont-use-padding $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case23 "--remove --block-number=99 --dont-use-padding" "--list"
Chris@1: 
Chris@1: run_metaflac --remove --block-type=PADDING $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case24 "--remove --block-type=PADDING" "--list"
Chris@1: 
Chris@1: run_metaflac --remove --block-type=PADDING --dont-use-padding $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case25 "--remove --block-type=PADDING --dont-use-padding" "--list"
Chris@1: 
Chris@1: run_metaflac --add-padding=0 $flacfile $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case26 "--add-padding=0 * 2" "--list"
Chris@1: 
Chris@1: run_metaflac --remove --except-block-type=PADDING $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case27 "--remove --except-block-type=PADDING" "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case28 "--remove-all" "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all --dont-use-padding $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case29 "--remove-all --dont-use-padding" "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all --dont-use-padding $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case30 "--remove-all --dont-use-padding" "--list"
Chris@1: 
Chris@1: run_metaflac --set-tag="f=0123456789abcdefghij" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case31 "--set-tag=..." "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all-tags --set-tag="f=0123456789abcdefghi" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case32 "--remove-all-tags --set-tag=..." "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all-tags --set-tag="f=0123456789abcde" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case33 "--remove-all-tags --set-tag=..." "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all-tags --set-tag="f=0" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case34 "--remove-all-tags --set-tag=..." "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all-tags --set-tag="f=0123456789" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case35 "--remove-all-tags --set-tag=..." "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all-tags --set-tag="f=0123456789abcdefghi" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case36 "--remove-all-tags --set-tag=..." "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all-tags --set-tag="f=0123456789" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case37 "--remove-all-tags --set-tag=..." "--list"
Chris@1: 
Chris@1: run_metaflac --remove-all-tags --set-tag="f=0123456789abcdefghij" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case38 "--remove-all-tags --set-tag=..." "--list"
Chris@1: 
Chris@1: echo "TITLE=Tittle" | run_metaflac --import-tags-from=- $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case39 "--import-tags-from=-" "--list"
Chris@1: 
Chris@1: cat > vc.txt << EOF
Chris@1: artist=Fartist
Chris@1: artist=artits
Chris@1: EOF
Chris@1: run_metaflac --import-tags-from=vc.txt $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case40 "--import-tags-from=[FILE]" "--list"
Chris@1: 
Chris@1: rm vc.txt
Chris@1: 
Chris@1: run_metaflac --add-replay-gain $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case41 "--add-replay-gain" "--list"
Chris@1: 
Chris@1: run_metaflac --remove-replay-gain $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case42 "--remove-replay-gain" "--list"
Chris@1: 
Chris@1: # CUESHEET blocks
Chris@1: cs_in=cuesheets/good.000.cue
Chris@1: cs_out=metaflac.cue
Chris@1: cs_out2=metaflac2.cue
Chris@1: run_metaflac --import-cuesheet-from="$cs_in" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case43 "--import-cuesheet-from" "--list"
Chris@1: run_metaflac --export-cuesheet-to=$cs_out $flacfile
Chris@1: run_metaflac --remove --block-type=CUESHEET $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case44 "--remove --block-type=CUESHEET" "--list"
Chris@1: run_metaflac --import-cuesheet-from=$cs_out $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case45 "--import-cuesheet-from" "--list"
Chris@1: run_metaflac --export-cuesheet-to=$cs_out2 $flacfile
Chris@1: echo "comparing cuesheets:"
Chris@1: diff $cs_out $cs_out2 || die "ERROR, cuesheets should be identical"
Chris@1: echo identical
Chris@1: 
Chris@1: rm -f $cs_out $cs_out2
Chris@1: 
Chris@1: # PICTURE blocks
Chris@1: ncase=46
Chris@1: for f in \
Chris@1: 	0.gif \
Chris@1: 	1.gif \
Chris@1: 	2.gif \
Chris@1: ; do
Chris@1: 	run_metaflac --import-picture-from="|image/gif|$f||pictures/$f" $flacfile
Chris@1: 	check_flac
Chris@1: 	metaflac_test "case$ncase" "--import-picture-from" "--list"
Chris@1: 	ncase=`expr $ncase + 1`
Chris@1: done
Chris@1: for f in \
Chris@1: 	0.jpg \
Chris@1: 	4.jpg \
Chris@1: ; do
Chris@1: 	run_metaflac --import-picture-from="4|image/jpeg|$f||pictures/$f" $flacfile
Chris@1: 	check_flac
Chris@1: 	metaflac_test "case$ncase" "--import-picture-from" "--list"
Chris@1: 	ncase=`expr $ncase + 1`
Chris@1: done
Chris@1: for f in \
Chris@1: 	0.png \
Chris@1: 	1.png \
Chris@1: 	2.png \
Chris@1: 	3.png \
Chris@1: 	4.png \
Chris@1: 	5.png \
Chris@1: 	6.png \
Chris@1: 	7.png \
Chris@1: 	8.png \
Chris@1: ; do
Chris@1: 	run_metaflac --import-picture-from="5|image/png|$f||pictures/$f" $flacfile
Chris@1: 	check_flac
Chris@1: 	metaflac_test "case$ncase" "--import-picture-from" "--list"
Chris@1: 	ncase=`expr $ncase + 1`
Chris@1: done
Chris@1: [ $ncase = 60 ] || die "expected case# to be 60"
Chris@1: 
Chris@1: fn=export-picture-check
Chris@1: echo -n "Testing --export-picture-to... "
Chris@1: run_metaflac --export-picture-to=$fn $flacfile
Chris@1: check_flac
Chris@1: cmp $fn pictures/0.gif || die "ERROR, exported picture file and original differ"
Chris@1: echo OK
Chris@1: rm -f $fn
Chris@1: echo -n "Testing --block-number --export-picture-to... "
Chris@1: run_metaflac --block-number=9 --export-picture-to=$fn $flacfile
Chris@1: check_flac
Chris@1: cmp $fn pictures/0.png || die "ERROR, exported picture file and original differ"
Chris@1: echo OK
Chris@1: rm -f $fn
Chris@1: 
Chris@1: run_metaflac --remove --block-type=PICTURE $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case60 "--remove --block-type=PICTURE" "--list"
Chris@1: run_metaflac --import-picture-from="1|image/png|standard_icon|32x32x24|pictures/0.png" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case61 "--import-picture-from" "--list"
Chris@1: run_metaflac --import-picture-from="2|image/png|icon|64x64x24|pictures/1.png" $flacfile
Chris@1: check_flac
Chris@1: metaflac_test case62 "--import-picture-from" "--list"
Chris@1: 
Chris@1: # UNKNOWN blocks
Chris@1: echo -n "Testing FLAC file with unknown metadata... "
Chris@1: cp -p metaflac.flac.in $flacfile
Chris@1: # remove the VORBIS_COMMENT block so vendor string changes don't interfere with the comparison:
Chris@1: run_metaflac --remove --block-type=VORBIS_COMMENT --dont-use-padding $flacfile
Chris@1: cmp $flacfile metaflac.flac.ok || die "ERROR, $flacfile and metaflac.flac.ok differ"
Chris@1: echo OK
Chris@1: 
Chris@1: rm -f $testdir/out.flac $testdir/out.meta
Chris@1: 
Chris@1: exit 0