Finish the testsuite.

* scheme/Makefile.am: Rewrite.
* src/frametab.gperf (frametab_enumerate): Minor fix.
* tests/Makefile.am (TESTSUITE_AT): Add new testcases.
(EXTRA_DIST): Add idest-32.png and idest-68.png.
* tests/testsuite.at: Add new testcases.
* tests/atlocal.in (GUILE_VERSION,INSTALL_PROG): New variables.
* tests/id3v2: Remove trailing whitespace from USLT.
* tests/delcomm.at: New file.
* tests/fmt-shortlist.at: New file.
* tests/framelist00.at: New file.
* tests/framelist01.at: New file.
* tests/framelist02.at: New file.
* tests/list1.at: New file.
* tests/list2.at: New file.
* tests/lyrics00.at: New file.
* tests/pic00.at: New file.
* tests/pic01.at: New file.
* tests/script00.at: New file.
* tests/script01.at: New file.
* tests/script02.at: New file.
* tests/script03.at: New file.
* tests/script04.at: New file.
* tests/script05.at: New file.
* tests/script06.at: New file.
* tests/script07.at: New file.
* tests/script08.at: New file.
* tests/setlyrics.at: New file.
* tests/setpic.at: New file.
* tests/settitle.at: New file.
* tests/shortlist.at: New file.
* tests/version.at: Remove useless prereq.

1 files changed, 74 insertions, 0 deletions

diff --git a/tests/script00.at b/tests/script00.at
new file mode 100644
index 0000000..402e158
--- /dev/null
+++ b/tests/script00.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])
+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
+genfile -f file1 -s $abs_srcdir/id3v1 10k
+genfile -f file2 -p $abs_srcdir/id3v2 10k
+
+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))
+(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))
+(APIC (descr . Attached picture) (text . 89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000017352474200AECE1CE900000006624B474400FF00FF00FFA0BDA793000000097048597300000B1300000B1301009A9C180000000774494D4507DB071C093A2D7365CBF80000001974455874436F6D6D656E74004372656174656420776974682047494D5057810E17000000954944415458C3ED56D10A002108D3E8FF7F79F7D421125D696107FA16452E5D6E0C00141885826309003313339BF7AFAC40F55EB0FAE2AD1568C9019095CBFF226102D0D1FA6EF97E2F8F72122680049000AE96E3DE749B9D5B5229DD7EE0E4B07419125D21A90DF2CCE801653691169C911991EBE32D98EDF5F65FA0135AE5D8ED07BC04ADAB64EB116DD4822F12A6214900E1001E26BD48441311DC6B0000000049454E44AE426082) (mime-type . image/png) (pic-type . 5) (condesc . 32x32 sample image))
+(APIC (descr . Attached picture) (text . 89504E470D0A1A0A0000000D4948445200000044000000440806000000381393B2000000017352474200AECE1CE900000006624B474400FF00FF00FFA0BDA793000000097048597300000B1300000B1301009A9C180000000774494D4507DB071C0A0032D982A62D0000001974455874436F6D6D656E74004372656174656420776974682047494D5057810E17000000FE4944415478DAEDDADB0E82300C005047F8FF5FAE6F8410196C949B397D3266A9DDB1EB345A22223E628A0101102040800001020408102040800001020408100104081020408000B923C6EC84A594E9F11B7F141CFF7573BDB53B32404E9C21F3B63C7AACF6E65AAEFBB57EB9A6A5CE316B03B5625BF3CC9FAF6DF4311DB2267EB4E0963CB5773922EE1BAAF3176B3D326B455FDD15A77E0EC93C8257CDAFD7DE32B54D6775D2F886CDD6D6651FA921B3D55B8BDB9A15A59443F92FEB90E514CF2A744F9E8CABBDD68D43668BF70CB688D8BC427B72F40ED9E27FAABECB0001020408102040800001020408102040800820408000010204081020401E1F5F46586895430352C20000000049454E44AE426082) (mime-type . image/png) (pic-type . 0) (condesc . 68x68 sample image))
+])
+
+AT_CLEANUP