diff options
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 @@ # @configure_input@ -*- shell-script -*- # Configurable variable values for the Idest test suite. # Copyright (C) 2011 Sergey Poznyakoff 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,37 +1,37 @@ # 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. # # 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([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], [file1 TIT2: File TPE1: Sergey Poznyakoff TALB: Idest Test Suite TDRC: 2011 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 @@ # 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. # # 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([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 ]) 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 @@ # 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. # # 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([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="" TPE1 descr="Lead performer(s)/soloist(s)" TDRC descr="Recording time" TCON descr="Content type" TCOP descr="Copyright message" TENC descr="Encoded by" USLT descr="Unsynchronised lyric/text transcription" 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,32 +1,32 @@ # 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. # # 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([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 ]) AT_CLEANUP diff --git a/tests/framelist02.at b/tests/framelist02.at index c56d11e..6376ca7 100644 --- a/tests/framelist02.at +++ b/tests/framelist02.at @@ -1,29 +1,29 @@ # 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. # # 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([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,38 +1,37 @@ # 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. # # 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([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)) (TDRC (descr . Recording time) (text . 2011)) (TRCK (descr . Track number/position in set) (text . 1)) (TCON (descr . Content type) (text . Other)) (COMM (descr . Comments) (text . Sample ID3 headers for idest) (lang . XXX) (condesc . )) file2 (TIT2 (descr . Title/songname/content description) (text . File)) diff --git a/tests/list2.at b/tests/list2.at index 73008c6..5bb082c 100644 --- a/tests/list2.at +++ b/tests/list2.at @@ -1,38 +1,37 @@ # 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. # # 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([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 . )) file2 (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 testsuite) (lang . eng) (condesc . )) (TENC (descr . Encoded by) (text . Idest)) ]) diff --git a/tests/lyrics00.at b/tests/lyrics00.at index 0eefe05..1162398 100644 --- a/tests/lyrics00.at +++ b/tests/lyrics00.at @@ -1,36 +1,36 @@ # 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. # # 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([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 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, diff --git a/tests/pic00.at b/tests/pic00.at index 1a177e3..8a97551 100644 --- a/tests/pic00.at +++ b/tests/pic00.at @@ -1,34 +1,33 @@ # 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. # # 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([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) -d, --description STR look for picture with this description -m, --mime-type TYPE picture must have this MIME type -s, --store store picture on disk, don't show it -f, --file FILE save picture to FILE (implies --store) -h, --help show this help summary diff --git a/tests/pic01.at b/tests/pic01.at index 4c01c32..a264186 100644 --- a/tests/pic01.at +++ b/tests/pic01.at @@ -1,35 +1,35 @@ # 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. # # 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([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], [Saving file-32x32 sample image.png Saving file-68x68 sample image.png file-32x32 sample image.png file-68x68 sample image.png ]) diff --git a/tests/script00.at b/tests/script00.at index 402e158..92b08ee 100644 --- a/tests/script00.at +++ b/tests/script00.at @@ -1,14 +1,14 @@ # 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. # # 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 @@ -20,29 +20,29 @@ AT_KEYWORDS([script script00]) AT_DATA([framelist.scm],[ (define (idest-main name frames) (display name) (newline) (for-each (lambda (frame) (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)) (TDRC (descr . Recording time) (text . 2011)) (TRCK (descr . Track number/position in set) (text . 1)) (TCON (descr . Content type) (text . Other)) (COMM (descr . Comments) (text . Sample ID3 headers for idest) (lang . XXX) (condesc . )) file2 (TIT2 (descr . Title/songname/content description) (text . File)) diff --git a/tests/script01.at b/tests/script01.at index e03aa41..64e185b 100644 --- a/tests/script01.at +++ b/tests/script01.at @@ -1,14 +1,14 @@ # 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. # # 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 @@ -20,34 +20,34 @@ AT_KEYWORDS([script script01]) AT_DATA([framelist.scm],[ (define (idest-main name frames) (display name) (newline) (for-each (lambda (frame) (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)) (TALB (descr . Album/movie/show title) (text . Idest Test Suite)) (TDRC (descr . Recording time) (text . 2011)) (TRCK (descr . Track number/position in set) (text . 1)) (TCON (descr . Content type) (text . Other)) (COMM (descr . Comments) (text . Sample ID3 headers for idest) (lang . XXX) (condesc . )) file2 diff --git a/tests/script02.at b/tests/script02.at index 8eeee5c..0985f35 100644 --- a/tests/script02.at +++ b/tests/script02.at @@ -1,14 +1,14 @@ # 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. # # 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 @@ -30,27 +30,27 @@ AT_DATA([framelist.scm],[ AT_DATA([.idest.scm],[ (display "Startup file .idest.scm loaded") (newline) (for-each (lambda (dir) (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 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)) (TDRC (descr . Recording time) (text . 2011)) (TRCK (descr . Track number/position in set) (text . 1)) diff --git a/tests/script03.at b/tests/script03.at index 040d7a2..4901169 100644 --- a/tests/script03.at +++ b/tests/script03.at @@ -1,14 +1,14 @@ # 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. # # 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 @@ -17,21 +17,21 @@ AT_SETUP([basic scripting: argument modification]) AT_KEYWORDS([script args script03]) AT_DATA([test.scm],[ (define (idest-main name frames) (display name) (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,14 +1,14 @@ # 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. # # 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 @@ -19,28 +19,28 @@ 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([ -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 TIT2: File TALB: Idest Test Suite TRCK: 1 COMM:eng:: Sample ID3 headers for idest testsuite TPE1: Sergey Poznyakoff TDRC: 2011 diff --git a/tests/script05.at b/tests/script05.at index eaa76c4..89ebfb1 100644 --- a/tests/script05.at +++ b/tests/script05.at @@ -1,14 +1,14 @@ # 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. # # 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 @@ -19,30 +19,30 @@ AT_KEYWORDS([script edit alter dry-run script05]) AT_DATA([delpic.scm],[ (define (idest-main file frames) (filter (lambda (frame) (not (string=? (car frame) "APIC"))) 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 ... 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)) diff --git a/tests/script06.at b/tests/script06.at index 12f00e2..233466c 100644 --- a/tests/script06.at +++ b/tests/script06.at @@ -1,34 +1,34 @@ # 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. # # 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: 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 TPE1 TDRC TCON TCOP TENC USLT diff --git a/tests/script07.at b/tests/script07.at index 2a5d3c7..99c9b95 100644 --- a/tests/script07.at +++ b/tests/script07.at @@ -1,14 +1,14 @@ # 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. # # 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 @@ -19,29 +19,29 @@ AT_KEYWORDS([script batch script07]) AT_DATA([delpic.scm], |