aboutsummaryrefslogtreecommitdiff
path: root/tests/script08.at
diff options
context:
space:
mode:
Diffstat (limited to 'tests/script08.at')
-rw-r--r--tests/script08.at74
1 files changed, 74 insertions, 0 deletions
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 <http://www.gnu.org/licenses/>.
+
+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 <http://www.gnu.org/licenses/>.))
+(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

Return to:

Send suggestions and report system problems to the System administrator.