aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2015-11-07 17:34:53 +0200
committerSergey Poznyakoff <gray@gnu.org>2015-11-07 17:34:53 +0200
commit6cecc808e5552f3220b97033306e42ce152908bb (patch)
tree778eb3e631cc6e556f1ec31ab584446951da8885 /tests
parent638c48ec020909e52a2081b4b9dc6908592e1bab (diff)
downloadidest-6cecc808e5552f3220b97033306e42ce152908bb.tar.gz
idest-6cecc808e5552f3220b97033306e42ce152908bb.tar.bz2
Include gnulib as a submodule. Fix testsuite.
Guile 2.x outputs spurious diagnostics to stderr when compiling input files. The only way to disable it is to disable compilation by setting environment variable GUILE_AUTO_COMPILE to 0. However, even if compilation is disabled, Guile still checks whether the compiled file exists and complains on stderr if it is older than the input file. This diagnostics begins with ;;;. Delete this using sed prior to comparing stderr with the expected text. * .gitmodules: Add gnulib * gnulib: New module. * bootstrap: Update from gnulib * gint: Upgrade. * scheme/idest/batch/setlyrics.scm: Fix typo. * src/Makefile.am: Use AM_CPPFLAGS instead of obsolete includes. * tests/atlocal.in: Set GUILE_AUTO_COMPILE=0 * tests/testsuite.at (WITH_GUILE): New macro. * tests/delcomm.at: Use WITH_GUILE. * tests/fmt-shortlist.at: Likewise. * tests/framelist00.at: Likewise. * tests/framelist01.at: Likewise. * tests/framelist02.at: Likewise. * tests/list1.at: Likewise. * tests/list2.at: Likewise. * tests/lyrics00.at: Likewise. * tests/pic00.at: Likewise. * tests/pic01.at: Likewise. * tests/script00.at: Likewise. * tests/script01.at: Likewise. * tests/script02.at: Likewise. * tests/script03.at: Likewise. * tests/script04.at: Likewise. * tests/script05.at: Likewise. * tests/script06.at: Likewise. * tests/script07.at: Likewise. * tests/script08.at: Likewise. * tests/setlyrics.at: Likewise. * tests/setpic.at: Likewise. * tests/settitle.at: Likewise. * tests/shortlist.at: Likewise.
Diffstat (limited to 'tests')
-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
@@ -1,14 +1,15 @@
1# @configure_input@ -*- shell-script -*- 1# @configure_input@ -*- shell-script -*-
2# Configurable variable values for the Idest test suite. 2# Configurable variable values for the Idest test suite.
3# Copyright (C) 2011 Sergey Poznyakoff 3# Copyright (C) 2011 Sergey Poznyakoff
4 4
5PATH=@abs_top_builddir@/src:$PATH 5PATH=@abs_top_builddir@/src:$PATH
6 6
7XFAILFILE=$abs_builddir/.badversion 7XFAILFILE=$abs_builddir/.badversion
8 8
9trap "cleanup; test -r $XFAILFILE && cat $XFAILFILE; exit $?" 1 2 13 15 9trap "cleanup; test -r $XFAILFILE && cat $XFAILFILE; exit $?" 1 2 13 15
10 10
11GUILE_VERSION="@GUILE_VERSION@" 11GUILE_VERSION="@GUILE_VERSION@"
12INSTALL_PROG="@INSTALL@" 12INSTALL_PROG="@INSTALL@"
13 13GUILE_AUTO_COMPILE=0
14export GUILE_AUTO_COMPILE
14 15
diff --git a/tests/delcomm.at b/tests/delcomm.at
index f263061..236f05a 100644
--- a/tests/delcomm.at
+++ b/tests/delcomm.at
@@ -1,37 +1,37 @@
1# This file is part of idest -*- autotest -*- 1# This file is part of idest -*- autotest -*-
2# Copyright (C) 2011 Sergey Poznyakoff 2# Copyright (C) 2011, 2015 Sergey Poznyakoff
3# 3#
4# Idest is free software; you can redistribute it and/or modify 4# Idest is free software; you can redistribute it and/or modify
5# it under the terms of the GNU General Public License as published by 5# it under the terms of the GNU General Public License as published by
6# the Free Software Foundation; either version 3, or (at your option) 6# the Free Software Foundation; either version 3, or (at your option)
7# any later version. 7# any later version.
8# 8#
9# Idest is distributed in the hope that it will be useful, 9# Idest is distributed in the hope that it will be useful,
10# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# but WITHOUT ANY WARRANTY; without even the implied warranty of
11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12# GNU General Public License for more details. 12# GNU General Public License for more details.
13# 13#
14# You should have received a copy of the GNU General Public License 14# You should have received a copy of the GNU General Public License
15# along with idest. If not, see <http://www.gnu.org/licenses/>. 15# along with idest. If not, see <http://www.gnu.org/licenses/>.
16 16
17AT_SETUP([examples: delcomm]) 17AT_SETUP([examples: delcomm])
18AT_KEYWORDS([script examples delcomm]) 18AT_KEYWORDS([script examples delcomm])
19 19
20AT_CHECK([ 20AT_CHECK([
21PREREQ_GUILE 21WITH_GUILE([
22genfile -f file1 -s $abs_srcdir/id3v1 10k 22genfile -f file1 -s $abs_srcdir/id3v1 10k
23genfile -f file2 -p $abs_srcdir/id3v2 10k 23genfile -f file2 -p $abs_srcdir/id3v2 10k
24 24
25idest -N -S $abs_top_srcdir/examples/delcomm.scm file1 file2 25idest -N -S $abs_top_srcdir/examples/delcomm.scm file1 file2])
26echo file1 26echo file1
27idest -a file1 27idest -a file1
28echo file2 28echo file2
29idest -a file2 29idest -a file2
30], 30],
31[0], 31[0],
32[file1 32[file1
33TIT2: File 33TIT2: File
34TPE1: Sergey Poznyakoff 34TPE1: Sergey Poznyakoff
35TALB: Idest Test Suite 35TALB: Idest Test Suite
36TDRC: 2011 36TDRC: 2011
37TRCK: 1 37TRCK: 1
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,33 +1,32 @@
1# This file is part of idest -*- autotest -*- 1# This file is part of idest -*- autotest -*-
2# Copyright (C) 2011 Sergey Poznyakoff 2# Copyright (C) 2011, 2015 Sergey Poznyakoff
3# 3#
4# Idest is free software; you can redistribute it and/or modify 4# Idest is free software; you can redistribute it and/or modify
5# it under the terms of the GNU General Public License as published by 5# it under the terms of the GNU General Public License as published by
6# the Free Software Foundation; either version 3, or (at your option) 6# the Free Software Foundation; either version 3, or (at your option)
7# any later version. 7# any later version.
8# 8#
9# Idest is distributed in the hope that it will be useful, 9# Idest is distributed in the hope that it will be useful,
10# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# but WITHOUT ANY WARRANTY; without even the implied warranty of
11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12# GNU General Public License for more details. 12# GNU General Public License for more details.
13# 13#
14# You should have received a copy of the GNU General Public License 14# You should have received a copy of the GNU General Public License
15# along with idest. If not, see <http://www.gnu.org/licenses/>. 15# along with idest. If not, see <http://www.gnu.org/licenses/>.
16 16
17AT_SETUP([formats: shortlist]) 17AT_SETUP([formats: shortlist])
18AT_KEYWORDS([script format shortlist]) 18AT_KEYWORDS([script format shortlist])
19 19
20AT_CHECK([ 20AT_CHECK([
21PREREQ_GUILE 21WITH_GUILE([
22
23genfile -f file1 -s $abs_srcdir/id3v1 10k 22genfile -f file1 -s $abs_srcdir/id3v1 10k
24genfile -f file2 -p $abs_srcdir/id3v2 10k 23genfile -f file2 -p $abs_srcdir/id3v2 10k
25 24
26idest -N -p $abs_top_srcdir/scheme --format shortlist file1 file2 25idest -N -p $abs_top_srcdir/scheme --format shortlist file1 file2])
27], 26],
28[0], 27[0],
29[file1: File by Sergey Poznyakoff, 2011 28[file1: File by Sergey Poznyakoff, 2011
30file2: File by Sergey Poznyakoff, 2011 29file2: File by Sergey Poznyakoff, 2011
31]) 30])
32 31
33AT_CLEANUP 32AT_CLEANUP
diff --git a/tests/framelist00.at b/tests/framelist00.at
index 894d0f0..1faaeb0 100644
--- a/tests/framelist00.at
+++ b/tests/framelist00.at
@@ -1,35 +1,35 @@
1# This file is part of idest -*- autotest -*- 1# This file is part of idest -*- autotest -*-
2# Copyright (C) 2011 Sergey Poznyakoff 2# Copyright (C) 2011, 2015 Sergey Poznyakoff
3# 3#
4# Idest is free software; you can redistribute it and/or modify 4# Idest is free software; you can redistribute it and/or modify
5# it under the terms of the GNU General Public License as published by 5# it under the terms of the GNU General Public License as published by
6# the Free Software Foundation; either version 3, or (at your option) 6# the Free Software Foundation; either version 3, or (at your option)
7# any later version. 7# any later version.
8# 8#
9# Idest is distributed in the hope that it will be useful, 9# Idest is distributed in the hope that it will be useful,
10# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# but WITHOUT ANY WARRANTY; without even the implied warranty of
11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12# GNU General Public License for more details. 12# GNU General Public License for more details.
13# 13#
14# You should have received a copy of the GNU General Public License 14# You should have received a copy of the GNU General Public License
15# along with idest. If not, see <http://www.gnu.org/licenses/>. 15# along with idest. If not, see <http://www.gnu.org/licenses/>.
16 16
17AT_SETUP([formats: framelist --full]) 17AT_SETUP([formats: framelist --full])
18AT_KEYWORDS([script format framelist--full framelist00]) 18AT_KEYWORDS([script format framelist--full framelist00])
19 19
20AT_CHECK([ 20AT_CHECK([
21PREREQ_GUILE 21WITH_GUILE([
22genfile -f file -p $abs_srcdir/id3v2 10k 22genfile -f file -p $abs_srcdir/id3v2 10k
23idest -N -p $abs_top_srcdir/scheme --format framelist --full file 23idest -N -p $abs_top_srcdir/scheme --format framelist --full file])
24], 24],
25[0], 25[0],
26[TIT2 descr="Title/songname/content description" 26[TIT2 descr="Title/songname/content description"
27TALB descr="Album/movie/show title" 27TALB descr="Album/movie/show title"
28TRCK descr="Track number/position in set" 28TRCK descr="Track number/position in set"
29COMM descr="Comments" lang="eng" condesc="" 29COMM descr="Comments" lang="eng" condesc=""
30TPE1 descr="Lead performer(s)/soloist(s)" 30TPE1 descr="Lead performer(s)/soloist(s)"
31TDRC descr="Recording time" 31TDRC descr="Recording time"
32TCON descr="Content type" 32TCON descr="Content type"
33TCOP descr="Copyright message"