diff options
Diffstat (limited to 'tests/script04.at')
-rw-r--r-- | tests/script04.at | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/tests/script04.at b/tests/script04.at new file mode 100644 index 0000000..8c83b1f --- /dev/null +++ b/tests/script04.at @@ -0,0 +1,65 @@ +# 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 <http://www.gnu.org/licenses/>. + +AT_SETUP([basic scripting: altering frames]) +AT_KEYWORDS([script edit alter script04]) + +AT_DATA([delpic.scm],[ +(define (idest-main file frames) + (filter + (lambda (frame) + (not (string=? (car frame) "APIC"))) + frames)) + +(set! idest-readonly #f) +]) + +AT_CHECK([ +PREREQ_GUILE +genfile -f file -p $abs_srcdir/id3v2 10k +echo removing APIC frames +idest -N -S ./delpic.scm file +echo tags +idest -a file +], +[0], +[removing APIC frames +tags +TIT2: File +TALB: Idest Test Suite +TRCK: 1 +COMM:eng:: Sample ID3 headers for idest testsuite +TPE1: Sergey Poznyakoff +TDRC: 2011 +TCON: Sample headers +TCOP: 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 <http://www.gnu.org/licenses/>. +TENC: Idest +USLT:eng:: 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. +WPUB: http://www.gnu.org.ua/software/idest +WXXX:documentation: http://www.gnu.org.ua/software/idest/manual +WXXX:author: http://gray.gnu.org.ua +]) + +AT_CLEANUP |