aboutsummaryrefslogtreecommitdiff
path: root/tests/script00.at
blob: 4b3beaf3c8288c56c1a6456be8e0a01e767fe98e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
# This file is part of idest  -*- autotest -*-
# Copyright (C) 2011, 2015-2017 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([
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])
],
[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

Return to:

Send suggestions and report system problems to the System administrator.