# This file is part of idest -*- autotest -*- # Copyright (C) 2011, 2015-2017 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: altering frames (dry-run)]) AT_KEYWORDS([script edit alter dry-run script05]) AT_DATA([delpic.scm],[ (define (idest-main file frames) (filter (lambda (frame) (not (string=? (car frame) "APIC"))) frames)) (set! idest-readonly #f) ]) AT_CHECK([ WITH_GUILE([ genfile -f file -p $abs_srcdir/id3v2 10k cp file file.bak echo removing APIC frames idest -N -p $abs_top_srcdir/scheme -n -S delpic.scm file | sed -e '/^dry-run: loading/d']) echo cmp cmp file.bak file ], [0], [removing APIC frames 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