aboutsummaryrefslogtreecommitdiff
path: root/tests/script01.at
blob: e03aa41b8d8c3c1a10d4b9cc5941759043df8c2c (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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
# 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: load paths and suffixes])
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
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
],
[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
(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))
In subdir
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.