summaryrefslogtreecommitdiffabout
path: root/tests
Side-by-side diff
Diffstat (limited to 'tests') (more/less context) (ignore whitespace changes)
-rw-r--r--tests/atlocal.in3
-rw-r--r--tests/delcomm.at6
-rw-r--r--tests/fmt-shortlist.at7
-rw-r--r--tests/framelist00.at6
-rw-r--r--tests/framelist01.at6
-rw-r--r--tests/framelist02.at6
-rw-r--r--tests/list1.at7
-rw-r--r--tests/list2.at7
-rw-r--r--tests/lyrics00.at6
-rw-r--r--tests/pic00.at5
-rw-r--r--tests/pic01.at6
-rw-r--r--tests/script00.at6
-rw-r--r--tests/script01.at6
-rw-r--r--tests/script02.at6
-rw-r--r--tests/script03.at6
-rw-r--r--tests/script04.at6
-rw-r--r--tests/script05.at6
-rw-r--r--tests/script06.at6
-rw-r--r--tests/script07.at6
-rw-r--r--tests/script08.at6
-rw-r--r--tests/setlyrics.at6
-rw-r--r--tests/setpic.at6
-rw-r--r--tests/settitle.at7
-rw-r--r--tests/shortlist.at7
-rw-r--r--tests/testsuite.at7
25 files changed, 76 insertions, 76 deletions
diff --git a/tests/atlocal.in b/tests/atlocal.in
index a302b99..35ad063 100644
--- a/tests/atlocal.in
+++ b/tests/atlocal.in
@@ -7,8 +7,9 @@ PATH=@abs_top_builddir@/src:$PATH
XFAILFILE=$abs_builddir/.badversion
trap "cleanup; test -r $XFAILFILE && cat $XFAILFILE; exit $?" 1 2 13 15
GUILE_VERSION="@GUILE_VERSION@"
INSTALL_PROG="@INSTALL@"
-
+GUILE_AUTO_COMPILE=0
+export GUILE_AUTO_COMPILE
diff --git a/tests/delcomm.at b/tests/delcomm.at
index f263061..236f05a 100644
--- a/tests/delcomm.at
+++ b/tests/delcomm.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,17 +15,17 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([examples: delcomm])
AT_KEYWORDS([script examples delcomm])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file1 -s $abs_srcdir/id3v1 10k
genfile -f file2 -p $abs_srcdir/id3v2 10k
-idest -N -S $abs_top_srcdir/examples/delcomm.scm file1 file2
+idest -N -S $abs_top_srcdir/examples/delcomm.scm file1 file2])
echo file1
idest -a file1
echo file2
idest -a file2
],
[0],
diff --git a/tests/fmt-shortlist.at b/tests/fmt-shortlist.at
index 925646c..d529d84 100644
--- a/tests/fmt-shortlist.at
+++ b/tests/fmt-shortlist.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,18 +15,17 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([formats: shortlist])
AT_KEYWORDS([script format shortlist])
AT_CHECK([
-PREREQ_GUILE
-
+WITH_GUILE([
genfile -f file1 -s $abs_srcdir/id3v1 10k
genfile -f file2 -p $abs_srcdir/id3v2 10k
-idest -N -p $abs_top_srcdir/scheme --format shortlist file1 file2
+idest -N -p $abs_top_srcdir/scheme --format shortlist file1 file2])
],
[0],
[file1: File by Sergey Poznyakoff, 2011
file2: File by Sergey Poznyakoff, 2011
])
diff --git a/tests/framelist00.at b/tests/framelist00.at
index 894d0f0..1faaeb0 100644
--- a/tests/framelist00.at
+++ b/tests/framelist00.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,15 +15,15 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([formats: framelist --full])
AT_KEYWORDS([script format framelist--full framelist00])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file -p $abs_srcdir/id3v2 10k
-idest -N -p $abs_top_srcdir/scheme --format framelist --full file
+idest -N -p $abs_top_srcdir/scheme --format framelist --full file])
],
[0],
[TIT2 descr="Title/songname/content description"
TALB descr="Album/movie/show title"
TRCK descr="Track number/position in set"
COMM descr="Comments" lang="eng" condesc=""
diff --git a/tests/framelist01.at b/tests/framelist01.at
index 59e5ca2..1e37262 100644
--- a/tests/framelist01.at
+++ b/tests/framelist01.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,15 +15,15 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([formats: framelist --frames])
AT_KEYWORDS([script format framelist--frames framelist01])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file -p $abs_srcdir/id3v2 10k
-idest -N -p $abs_top_srcdir/scheme --format framelist --frames TIT2,COMM,APIC file
+idest -N -p $abs_top_srcdir/scheme --format framelist --frames TIT2,COMM,APIC file])
],
[0],
[TIT2
COMM
APIC
APIC
diff --git a/tests/framelist02.at b/tests/framelist02.at
index c56d11e..6376ca7 100644
--- a/tests/framelist02.at
+++ b/tests/framelist02.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,15 +15,15 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([formats: framelist --single-line])
AT_KEYWORDS([script format framelist--single-line framelist02])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file -p $abs_srcdir/id3v2 10k
-idest -N -p $abs_top_srcdir/scheme --format framelist --single-line file
+idest -N -p $abs_top_srcdir/scheme --format framelist --single-line file])
],
[0],
[TIT2,TALB,TRCK,COMM,TPE1,TDRC,TCON,TCOP,TENC,USLT,WPUB,WXXX,WXXX,APIC,APIC
])
AT_CLEANUP
diff --git a/tests/list1.at b/tests/list1.at
index 80d869b..4464dfb 100644
--- a/tests/list1.at
+++ b/tests/list1.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,18 +15,17 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([examples: list1])
AT_KEYWORDS([script examples list1])
AT_CHECK([
-PREREQ_GUILE
-
+WITH_GUILE([
genfile -f file1 -s $abs_srcdir/id3v1 10k
genfile -f file2 -p $abs_srcdir/id3v2 10k
-idest -N -S $abs_top_srcdir/examples/list1.scm file1 file2
+idest -N -S $abs_top_srcdir/examples/list1.scm file1 file2])
],
[0],
[file1
(TIT2 (descr . Title/songname/content description) (text . File))
(TPE1 (descr . Lead performer(s)/soloist(s)) (text . Sergey Poznyakoff))
(TALB (descr . Album/movie/show title) (text . Idest Test Suite))
diff --git a/tests/list2.at b/tests/list2.at
index 73008c6..5bb082c 100644
--- a/tests/list2.at
+++ b/tests/list2.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,18 +15,17 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([examples: list2])
AT_KEYWORDS([script examples list2])
AT_CHECK([
-PREREQ_GUILE
-
+WITH_GUILE([
genfile -f file1 -s $abs_srcdir/id3v1 10k
genfile -f file2 -p $abs_srcdir/id3v2 10k
-idest -N -S $abs_top_srcdir/examples/list2.scm TIT2,TALB,COMM,TENC file1 file2
+idest -N -S $abs_top_srcdir/examples/list2.scm TIT2,TALB,COMM,TENC file1 file2])
],
[0],
[file1
(TIT2 (descr . Title/songname/content description) (text . File))
(TALB (descr . Album/movie/show title) (text . Idest Test Suite))
(COMM (descr . Comments) (text . Sample ID3 headers for idest) (lang . XXX) (condesc . ))
diff --git a/tests/lyrics00.at b/tests/lyrics00.at
index 0eefe05..1162398 100644
--- a/tests/lyrics00.at
+++ b/tests/lyrics00.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,16 +15,16 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([formats: lyrics])
AT_KEYWORDS([script format lyrics lyrics00])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file -p $abs_srcdir/id3v2 10k
unset PAGER
-idest -N -p $abs_top_srcdir/scheme --format lyrics file
+idest -N -p $abs_top_srcdir/scheme --format lyrics file])
],
[0],
[File
IdEst is an ID3 Edit and Scripting Tool, a command line utility for
manipulating ID3 tags. ID3 tag is a metadata container which supplies
diff --git a/tests/pic00.at b/tests/pic00.at
index 1a177e3..8a97551 100644
--- a/tests/pic00.at
+++ b/tests/pic00.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,14 +15,13 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([formats: pic --help])
AT_KEYWORDS([script format pic--help pic00])
AT_CHECK([
-PREREQ_GUILE
-idest -N -p $abs_top_srcdir/scheme --format pic --help
+WITH_GUILE([idest -N -p $abs_top_srcdir/scheme --format pic --help])
],
[0],
[usage: idest --format=pic [[OPTIONS]] FILE...
displays attached picture(s) or stores them on disc
OPTIONS are:
-v, --viewer PROG use PROG to view images (default: xv)
diff --git a/tests/pic01.at b/tests/pic01.at
index 4c01c32..a264186 100644
--- a/tests/pic01.at
+++ b/tests/pic01.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,15 +15,15 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([formats: pic --store])
AT_KEYWORDS([script format pic--store pic01])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file -p $abs_srcdir/id3v2 10k
-idest -N -p $abs_top_srcdir/scheme --format pic --store --file ~N-~C.~T file
+idest -N -p $abs_top_srcdir/scheme --format pic --store --file ~N-~C.~T file])
echo file-32x32 sample image.png
cmp "file-32x32 sample image.png" $abs_srcdir/idest-32.png
echo file-68x68 sample image.png
cmp "file-68x68 sample image.png" $abs_srcdir/idest-68.png
],
[0],
diff --git a/tests/script00.at b/tests/script00.at
index 402e158..92b08ee 100644
--- a/tests/script00.at
+++ b/tests/script00.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -26,17 +26,17 @@ AT_DATA([framelist.scm],[
(display frame)
(newline))
frames))
])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file1 -s $abs_srcdir/id3v1 10k
genfile -f file2 -p $abs_srcdir/id3v2 10k
-idest -N -S ./framelist.scm file1 file2
+idest -N -S ./framelist.scm file1 file2])
],
[0],
[file1
(TIT2 (descr . Title/songname/content description) (text . File))
(TPE1 (descr . Lead performer(s)/soloist(s)) (text . Sergey Poznyakoff))
(TALB (descr . Album/movie/show title) (text . Idest Test Suite))
diff --git a/tests/script01.at b/tests/script01.at
index e03aa41..64e185b 100644
--- a/tests/script01.at
+++ b/tests/script01.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -26,22 +26,22 @@ AT_DATA([framelist.scm],[
(display frame)
(newline))
frames))
])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file1 -s $abs_srcdir/id3v1 10k
genfile -f file2 -p $abs_srcdir/id3v2 10k
echo In current working dir
idest -N -S framelist file1 file2
echo In subdir
mkdir subdir
mv framelist.scm subdir
-idest -N -P `pwd`/subdir -S framelist file1 file2
+idest -N -P `pwd`/subdir -S framelist file1 file2])
],
[0],
[In current working dir
file1
(TIT2 (descr . Title/songname/content description) (text . File))
(TPE1 (descr . Lead performer(s)/soloist(s)) (text . Sergey Poznyakoff))
diff --git a/tests/script02.at b/tests/script02.at
index 8eeee5c..0985f35 100644
--- a/tests/script02.at
+++ b/tests/script02.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -36,15 +36,15 @@ AT_DATA([.idest.scm],[
(display dir)
(newline))
(command-line))
])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file1 -s $abs_srcdir/id3v1 10k
-HOME=/tmp idest -S ./framelist.scm file1 | sed '4s|.*/idest/idest.scm|GUILE_SITE_DIR/idest/idest.scm|'
+HOME=/tmp idest -S ./framelist.scm file1 | sed '4s|.*/idest/idest.scm|GUILE_SITE_DIR/idest/idest.scm|'])
],
[0],
[Startup file .idest.scm loaded
.idest.scm
/tmp/.idest.scm
GUILE_SITE_DIR/idest/idest.scm
diff --git a/tests/script03.at b/tests/script03.at
index 040d7a2..4901169 100644
--- a/tests/script03.at
+++ b/tests/script03.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -23,15 +23,15 @@ AT_DATA([test.scm],[
(newline))
(set-program-arguments (append (command-line) (list "file")))
])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file -s $abs_srcdir/id3v1 10k
-idest -N -S ./test.scm
+idest -N -S ./test.scm])
],
[0],
[file
])
AT_CLEANUP
diff --git a/tests/script04.at b/tests/script04.at
index 8c83b1f..0d6a0a7 100644
--- a/tests/script04.at
+++ b/tests/script04.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -25,16 +25,16 @@ AT_DATA([delpic.scm],[
frames))
(set! idest-readonly #f)
])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file -p $abs_srcdir/id3v2 10k
echo removing APIC frames
-idest -N -S ./delpic.scm file
+idest -N -S ./delpic.scm file])
echo tags
idest -a file
],
[0],
[removing APIC frames
tags
diff --git a/tests/script05.at b/tests/script05.at
index eaa76c4..89ebfb1 100644
--- a/tests/script05.at
+++ b/tests/script05.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -25,18 +25,18 @@ AT_DATA([delpic.scm],[
frames))
(set! idest-readonly #f)
])
AT_CHECK([
-PREREQ_GUILE
+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 "s|$abs_top_srcdir|abs_top_srcdir|"
+ sed "s|$abs_top_srcdir|abs_top_srcdir|"])
echo cmp
cmp file.bak file
],
[0],
[removing APIC frames
dry-run: loading ./delpic.scm ...
diff --git a/tests/script06.at b/tests/script06.at
index 12f00e2..233466c 100644
--- a/tests/script06.at
+++ b/tests/script06.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,14 +15,14 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([basic scripting: formats])
AT_KEYWORDS([script format script06])
AT_CHECK([
-PREREQ_GUILE
-idest -N -p $abs_top_srcdir/scheme --format framelist $abs_srcdir/id3v2
+WITH_GUILE([
+idest -N -p $abs_top_srcdir/scheme --format framelist $abs_srcdir/id3v2])
],
[0],
[TIT2
TALB
TRCK
COMM
diff --git a/tests/script07.at b/tests/script07.at
index 2a5d3c7..99c9b95 100644
--- a/tests/script07.at
+++ b/tests/script07.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -25,17 +25,17 @@ AT_DATA([delpic.scm],
(lambda (elt)
(not (string=? (car elt) "APIC")))
frames))
])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file -p $abs_srcdir/id3v2 10k
$INSTALL_PROG -d scheme/idest/batch
$INSTALL_PROG delpic.scm scheme/idest/batch
-idest -N -p $abs_top_srcdir/scheme:`pwd`/scheme --batch delpic file
+idest -N -p $abs_top_srcdir/scheme:`pwd`/scheme --batch delpic file])
idest -a file
],
[0],
[TIT2: File
TALB: Idest Test Suite
TRCK: 1
diff --git a/tests/script08.at b/tests/script08.at
index d48e470..8ff78f7 100644
--- a/tests/script08.at
+++ b/tests/script08.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -25,21 +25,21 @@ AT_DATA([delpic.scm],
(lambda (elt)
(not (string=? (car elt) "APIC")))
frames))
])
AT_CHECK([
-PREREQ_GUILE
+WITH_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|"
+ 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 ...
diff --git a/tests/setlyrics.at b/tests/setlyrics.at
index 2b9f983..dba8090 100644
--- a/tests/setlyrics.at
+++ b/tests/setlyrics.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -28,16 +28,16 @@ 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.
])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file 10k
idest -N -p $abs_top_srcdir/scheme --batch \
- setlyrics --lang eng -c 'sample lyrics' -f input file
+ setlyrics --lang eng -c 'sample lyrics' -f input file])
idest -a file | sed 's/ *$//'
],
[0],
[USLT:eng:sample lyrics:
IdEst is an ID3 Edit and Scripting Tool, a command line utility for
diff --git a/tests/setpic.at b/tests/setpic.at
index 82642cb..e8ef343 100644
--- a/tests/setpic.at
+++ b/tests/setpic.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -16,16 +16,16 @@
AT_SETUP([batch: setpic])
AT_KEYWORDS([script batch setpic])
AT_CHECK([
-PREREQ_GUILE
+WITH_GUILE([
genfile -f file 10k
idest -N -p $abs_top_srcdir/scheme --batch \
- setpic -d '32x32 picture' -f $abs_srcdir/idest-32.png file
+ setpic -d '32x32 picture' -f $abs_srcdir/idest-32.png file])
idest -a file | sed 's/ *$//'
],
[0],
[APIC:image/png:0:32x32 picture: 89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000017352474200AECE1CE900000006624B474400FF00FF00FFA0BDA793000000097048597300000B1300000B1301009A9C180000000774494D4507DB071C093A2D7365CBF80000001974455874436F6D6D656E74004372656174656420776974682047494D5057810E17000000954944415458C3ED56D10A002108D3E8FF7F79F7D421125D696107FA16452E5D6E0C00141885826309003313339BF7AFAC40F55EB0FAE2AD1568C9019095CBFF226102D0D1FA6EF97E2F8F72122680049000AE96E3DE749B9D5B5229DD7EE0E4B07419125D21A90DF2CCE801653691169C911991EBE32D98EDF5F65FA0135AE5D8ED07BC04ADAB64EB116DD4822F12A6214900E1001E26BD48441311DC6B0000000049454E44AE426082
])
x
diff --git a/tests/settitle.at b/tests/settitle.at
index bd71e79..7afb9db 100644
--- a/tests/settitle.at
+++ b/tests/settitle.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,17 +15,16 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([examples: settitle])
AT_KEYWORDS([script examples settitle])
AT_CHECK([
-PREREQ_GUILE
-
+WITH_GUILE([
genfile -f Test_file_for_idest.mp3 10k
idest -N -S $abs_top_srcdir/examples/settitle.scm Test_file_for_idest.mp3
-idest -a Test_file_for_idest.mp3
+idest -a Test_file_for_idest.mp3])
],
[0],
[TIT2: Test file for idest
])
AT_CLEANUP
diff --git a/tests/shortlist.at b/tests/shortlist.at
index cb13aba..b4c25c2 100644
--- a/tests/shortlist.at
+++ b/tests/shortlist.at
@@ -1,8 +1,8 @@
# This file is part of idest -*- autotest -*-
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -15,18 +15,17 @@
# along with idest. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([examples: shortlist])
AT_KEYWORDS([script examples shortlist])
AT_CHECK([
-PREREQ_GUILE
-
+WITH_GUILE([
genfile -f file1 -s $abs_srcdir/id3v1 10k
genfile -f file2 -p $abs_srcdir/id3v2 10k
-idest -N -S $abs_top_srcdir/examples/shortlist.scm file1 file2
+idest -N -S $abs_top_srcdir/examples/shortlist.scm file1 file2])
],
[0],
[file1: File by Sergey Poznyakoff, 2011
file2: File by Sergey Poznyakoff, 2011
])
diff --git a/tests/testsuite.at b/tests/testsuite.at
index 196567d..1168a52 100644
--- a/tests/testsuite.at
+++ b/tests/testsuite.at
@@ -1,8 +1,8 @@
# This file is part of idest
-# Copyright (C) 2011 Sergey Poznyakoff
+# Copyright (C) 2011, 2015 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.
#
@@ -16,12 +16,17 @@
m4_version_prereq([2.52g])
m4_define([AT_SKIP_TEST],[exit 77])
m4_define([PREREQ_GUILE],[test -z "$GUILE_VERSION" && AT_SKIP_TEST])
+m4_define([WITH_GUILE],[PREREQ_GUILE
+($1) 2>stderr.log
+sed '/^;;; /d' stderr.log >&2
+rm stderr.log
+])
dnl # Begin tests
AT_INIT
m4_include([version.at])
m4_include([query-v1-00.at])

Return to:

Send suggestions and report system problems to the System administrator.