aboutsummaryrefslogtreecommitdiff
path: root/tests/script02.at
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2011-07-30 16:51:01 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2011-07-30 16:51:01 +0300
commit004fd5299b3c24a1d11e6c450e5e763ea95779ad (patch)
tree3052034bd49efdb3fa84271e0eeccb6afc19e7cc /tests/script02.at
parent8006a1de47d492a2fc15e314a3851fb40e6622bd (diff)
downloadidest-004fd5299b3c24a1d11e6c450e5e763ea95779ad.tar.gz
idest-004fd5299b3c24a1d11e6c450e5e763ea95779ad.tar.bz2
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.
Diffstat (limited to 'tests/script02.at')
-rw-r--r--tests/script02.at61
1 files changed, 61 insertions, 0 deletions
diff --git a/tests/script02.at b/tests/script02.at
new file mode 100644
index 0000000..8eeee5c
--- /dev/null
+++ b/tests/script02.at
@@ -0,0 +1,61 @@
+# 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: startup files])
+AT_KEYWORDS([script startup script02])
+
+AT_DATA([framelist.scm],[
+(define (idest-main name frames)
+ (display name)
+ (newline)
+ (for-each
+ (lambda (frame)
+ (display frame)
+ (newline))
+ frames))
+])
+
+AT_DATA([.idest.scm],[
+(display "Startup file .idest.scm loaded")
+(newline)
+(for-each
+ (lambda (dir)
+ (display dir)
+ (newline))
+ (command-line))
+])
+
+AT_CHECK([
+PREREQ_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|'
+],
+[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))
+(TCON (descr . Content type) (text . Other))
+(COMM (descr . Comments) (text . Sample ID3 headers for idest) (lang . XXX) (condesc . ))
+])
+
+AT_CLEANUP

Return to:

Send suggestions and report system problems to the System administrator.