From 004fd5299b3c24a1d11e6c450e5e763ea95779ad Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Sat, 30 Jul 2011 16:51:01 +0300 Subject: Finish the testsuite. * scheme/Makefile.am: Rewrite. * src/frametab.gperf (frametab_enumerate): Minor fix. * tests/Makefile.am (TESTSUITE_AT): Add new testcases. (EXTRA_DIST): Add idest-32.png and idest-68.png. * tests/testsuite.at: Add new testcases. * tests/atlocal.in (GUILE_VERSION,INSTALL_PROG): New variables. * tests/id3v2: Remove trailing whitespace from USLT. * tests/delcomm.at: New file. * tests/fmt-shortlist.at: New file. * tests/framelist00.at: New file. * tests/framelist01.at: New file. * tests/framelist02.at: New file. * tests/list1.at: New file. * tests/list2.at: New file. * tests/lyrics00.at: New file. * tests/pic00.at: New file. * tests/pic01.at: New file. * tests/script00.at: New file. * tests/script01.at: New file. * tests/script02.at: New file. * tests/script03.at: New file. * tests/script04.at: New file. * tests/script05.at: New file. * tests/script06.at: New file. * tests/script07.at: New file. * tests/script08.at: New file. * tests/setlyrics.at: New file. * tests/setpic.at: New file. * tests/settitle.at: New file. * tests/shortlist.at: New file. * tests/version.at: Remove useless prereq. --- tests/script08.at | 74 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 74 insertions(+) create mode 100644 tests/script08.at (limited to 'tests/script08.at') diff --git a/tests/script08.at b/tests/script08.at new file mode 100644 index 0000000..d48e470 --- /dev/null +++ b/tests/script08.at @@ -0,0 +1,74 @@ +# This file is part of idest -*- autotest -*- +# Copyright (C) 2011 Sergey Poznyakoff +# +# Idest is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3, or (at your option) +# any later version. +# +# Idest is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with idest. If not, see . + +AT_SETUP([basic scripting: batches (dry-run)]) +AT_KEYWORDS([script batch script08]) + +AT_DATA([delpic.scm], +[(define-module (idest batch delpic)) + +(define-public (idest-main name frames) + (filter + (lambda (elt) + (not (string=? (car elt) "APIC"))) + frames)) +]) + +AT_CHECK([ +PREREQ_GUILE +genfile -f file -p $abs_srcdir/id3v2 10k +cp file file.bak +$INSTALL_PROG -d scheme/idest/batch +$INSTALL_PROG delpic.scm scheme/idest/batch +echo dry run +subdir=`pwd`/scheme +idest -N -p $abs_top_srcdir/scheme:$subdir -n --batch delpic file | + sed "s|$subdir|subdir|;s|$abs_top_srcdir|abs_top_srcdir|" +echo cmp +cmp file.bak file +], +[0], +[dry run +dry-run: loading abs_top_srcdir/scheme/batch.scm ... +dry-run: loading abs_top_srcdir/scheme/idest/load-module.scm ... +dry-run: loading subdir/idest/batch/delpic.scm ... +File file +(TIT2 (descr . Title/songname/content description) (text . File)) +(TALB (descr . Album/movie/show title) (text . Idest Test Suite)) +(TRCK (descr . Track number/position in set) (text . 1)) +(COMM (descr . Comments) (text . Sample ID3 headers for idest testsuite) (lang . eng) (condesc . )) +(TPE1 (descr . Lead performer(s)/soloist(s)) (text . Sergey Poznyakoff)) +(TDRC (descr . Recording time) (text . 2011)) +(TCON (descr . Content type) (text . Sample headers)) +(TCOP (descr . Copyright message) (text . This file is part of Idest Copyright (C) 2009-2011 Sergey Poznyakoff Idest is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. Idest is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Idest. If not, see .)) +(TENC (descr . Encoded by) (text . Idest)) +(USLT (descr . Unsynchronised lyric/text transcription) (text . IdEst is an ID3 Edit and Scripting Tool, a command line utility for +manipulating ID3 tags. ID3 tag is a metadata container which supplies +related information for a MP3 audio file. It allows information such +as the title, artist, album, track number, etc. to be stored in the file +itself. + +The idest utility allows to create new tags, and to view, +modify or delete the existing ones. When compiled with Guile, +IdEst allows you to write programs of arbitrary complexity for +manipulating ID3 tags and to apply them to any number of files.) (lang . eng) (condesc . )) +(WPUB (descr . Publishers official webpage) (text . http://www.gnu.org.ua/software/idest)) +(WXXX (descr . User defined URL link frame) (text . http://www.gnu.org.ua/software/idest/manual) (condesc . documentation)) +(WXXX (descr . User defined URL link frame) (text . http://gray.gnu.org.ua) (condesc . author)) +cmp +]) + +AT_CLEANUP -- cgit v1.2.1