diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2015-11-07 17:34:53 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2015-11-07 17:34:53 +0200 |
commit | 6cecc808e5552f3220b97033306e42ce152908bb (patch) | |
tree | 778eb3e631cc6e556f1ec31ab584446951da8885 /tests | |
parent | 638c48ec020909e52a2081b4b9dc6908592e1bab (diff) | |
download | idest-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.in | 3 | ||||
-rw-r--r-- | tests/delcomm.at | 6 | ||||
-rw-r--r-- | tests/fmt-shortlist.at | 7 | ||||
-rw-r--r-- | tests/framelist00.at | 6 | ||||
-rw-r--r-- | tests/framelist01.at | 6 | ||||
-rw-r--r-- | tests/framelist02.at | 6 | ||||
-rw-r--r-- | tests/list1.at | 7 | ||||
-rw-r--r-- | tests/list2.at | 7 | ||||
-rw-r--r-- | tests/lyrics00.at | 6 | ||||
-rw-r--r-- | tests/pic00.at | 5 | ||||
-rw-r--r-- | tests/pic01.at | 6 | ||||
-rw-r--r-- | tests/script00.at | 6 | ||||
-rw-r--r-- | tests/script01.at | 6 | ||||
-rw-r--r-- | tests/script02.at | 6 | ||||
-rw-r--r-- | tests/script03.at | 6 | ||||
-rw-r--r-- | tests/script04.at | 6 | ||||
-rw-r--r-- | tests/script05.at | 6 | ||||
-rw-r--r-- | tests/script06.at | 6 | ||||
-rw-r--r-- | tests/script07.at | 6 | ||||
-rw-r--r-- | tests/script08.at | 6 | ||||
-rw-r--r-- | tests/setlyrics.at | 6 | ||||
-rw-r--r-- | tests/setpic.at | 6 | ||||
-rw-r--r-- | tests/settitle.at | 7 | ||||
-rw-r--r-- | tests/shortlist.at | 7 | ||||
-rw-r--r-- | tests/testsuite.at | 7 |
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 | ||
5 | PATH=@abs_top_builddir@/src:$PATH | 5 | PATH=@abs_top_builddir@/src:$PATH |
6 | 6 | ||
7 | XFAILFILE=$abs_builddir/.badversion | 7 | XFAILFILE=$abs_builddir/.badversion |
8 | 8 | ||
9 | trap "cleanup; test -r $XFAILFILE && cat $XFAILFILE; exit $?" 1 2 13 15 | 9 | trap "cleanup; test -r $XFAILFILE && cat $XFAILFILE; exit $?" 1 2 13 15 |
10 | 10 | ||
11 | GUILE_VERSION="@GUILE_VERSION@" | 11 | GUILE_VERSION="@GUILE_VERSION@" |
12 | INSTALL_PROG="@INSTALL@" | 12 | INSTALL_PROG="@INSTALL@" |
13 | 13 | GUILE_AUTO_COMPILE=0 | |
14 | export 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 | ||
17 | AT_SETUP([examples: delcomm]) | 17 | AT_SETUP([examples: delcomm]) |
18 | AT_KEYWORDS([script examples delcomm]) | 18 | AT_KEYWORDS([script examples delcomm]) |
19 | 19 | ||
20 | AT_CHECK([ | 20 | AT_CHECK([ |
21 | PREREQ_GUILE | 21 | WITH_GUILE([ |
22 | genfile -f file1 -s $abs_srcdir/id3v1 10k | 22 | genfile -f file1 -s $abs_srcdir/id3v1 10k |
23 | genfile -f file2 -p $abs_srcdir/id3v2 10k | 23 | genfile -f file2 -p $abs_srcdir/id3v2 10k |
24 | 24 | ||
25 | idest -N -S $abs_top_srcdir/examples/delcomm.scm file1 file2 | 25 | idest -N -S $abs_top_srcdir/examples/delcomm.scm file1 file2]) |
26 | echo file1 | 26 | echo file1 |
27 | idest -a file1 | 27 | idest -a file1 |
28 | echo file2 | 28 | echo file2 |
29 | idest -a file2 | 29 | idest -a file2 |
30 | ], | 30 | ], |
31 | [0], | 31 | [0], |
32 | [file1 | 32 | [file1 |
33 | TIT2: File | 33 | TIT2: File |
34 | TPE1: Sergey Poznyakoff | 34 | TPE1: Sergey Poznyakoff |
35 | TALB: Idest Test Suite | 35 | TALB: Idest Test Suite |
36 | TDRC: 2011 | 36 | TDRC: 2011 |
37 | TRCK: 1 | 37 | TRCK: 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 | ||
17 | AT_SETUP([formats: shortlist]) | 17 | AT_SETUP([formats: shortlist]) |
18 | AT_KEYWORDS([script format shortlist]) | 18 | AT_KEYWORDS([script format shortlist]) |
19 | 19 | ||
20 | AT_CHECK([ | 20 | AT_CHECK([ |
21 | PREREQ_GUILE | 21 | WITH_GUILE([ |
22 | |||
23 | genfile -f file1 -s $abs_srcdir/id3v1 10k | 22 | genfile -f file1 -s $abs_srcdir/id3v1 10k |
24 | genfile -f file2 -p $abs_srcdir/id3v2 10k | 23 | genfile -f file2 -p $abs_srcdir/id3v2 10k |
25 | 24 | ||
26 | idest -N -p $abs_top_srcdir/scheme --format shortlist file1 file2 | 25 | idest -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 |
30 | file2: File by Sergey Poznyakoff, 2011 | 29 | file2: File by Sergey Poznyakoff, 2011 |
31 | ]) | 30 | ]) |
32 | 31 | ||
33 | AT_CLEANUP | 32 | AT_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 | ||
17 | AT_SETUP([formats: framelist --full]) | 17 | AT_SETUP([formats: framelist --full]) |
18 | AT_KEYWORDS([script format framelist--full framelist00]) | 18 | AT_KEYWORDS([script format framelist--full framelist00]) |
19 | 19 | ||
20 | AT_CHECK([ | 20 | AT_CHECK([ |
21 | PREREQ_GUILE | 21 | WITH_GUILE([ |
22 | genfile -f file -p $abs_srcdir/id3v2 10k | 22 | genfile -f file -p $abs_srcdir/id3v2 10k |
23 | idest -N -p $abs_top_srcdir/scheme --format framelist --full file | 23 | idest -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" |
27 | TALB descr="Album/movie/show title" | 27 | TALB descr="Album/movie/show title" |
28 | TRCK descr="Track number/position in set" | 28 | TRCK descr="Track number/position in set" |
29 | COMM descr="Comments" lang="eng" condesc="" | 29 | COMM descr="Comments" lang="eng" condesc="" |
30 | TPE1 descr="Lead performer(s)/soloist(s)" | 30 | TPE1 descr="Lead performer(s)/soloist(s)" |
31 | TDRC descr="Recording time" | 31 | TDRC descr="Recording time" |
32 | TCON descr="Content type" | 32 | TCON descr="Content type" |
33 | TCOP descr="Copyright message" |