aboutsummaryrefslogtreecommitdiff
path: root/tests/script04.at
blob: 0e3aa8f525723639c85511083c0e111b0d217d99 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
# 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 <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([
WITH_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

Return to:

Send suggestions and report system problems to the System administrator.