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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
use strict;
use File::Spec::Functions;
use FindBin ();
use Test::More tests => 69;
use Audio::Scan;
# Silence file with APEv2 tag
{
my $s = Audio::Scan->scan( _f('silence-44-s.wv'), { md5_size => 4096 } );
my $info = $s->{info};
my $tags = $s->{tags};
is( $info->{ape_version}, 'APEv2', 'APE version ok' );
is( $info->{audio_offset}, 0, 'audio_offset ok' );
is( $info->{audio_size}, 34782, 'audio_size ok' );
is( $info->{audio_md5}, '13dbb42069ac266a4d45f109c67c072f', 'audio_md5 ok' );
is( $info->{bitrate}, 76323, 'bitrate ok' );
is( $info->{bits_per_sample}, 16, 'bits_per_sample ok' );
is( $info->{channels}, 2, 'channels ok' );
is( $info->{encoder_version}, 0x403, 'version ok' );
is( $info->{file_size}, 35147, 'file_size ok' );
is( $info->{lossless}, 1, 'lossless ok' );
is( $info->{samplerate}, 44100, 'samplerate ok' );
is( $info->{song_length_ms}, 3684, 'song_length_ms ok' );
is( $info->{total_samples}, 162496, 'total_samples ok' );
is( $tags->{DATE}, 2004, 'DATE ok' );
is( $tags->{GENRE}, 'Silence', 'GENRE ok' );
is( $tags->{TITLE}, 'Silence', 'TITLE ok' );
}
# Self-extracting file (why?!)
{
my $s = Audio::Scan->scan_info( _f('win-executable.wv') );
my $info = $s->{info};
is( $info->{audio_offset}, 30720, 'EXE audio_offset ok' );
is( $info->{song_length_ms}, 29507, 'EXE song_length_ms ok' );
}
# Hybrid (lossy) file
{
my $s = Audio::Scan->scan_info( _f('hybrid.wv') );
my $info = $s->{info};
is( $info->{bitrate}, 199913, 'hybrid bitrate ok' );
is( $info->{channels}, 2, 'hybrid channels ok' );
is( $info->{hybrid}, 1, 'hybrid hybrid flag ok' );
is( $info->{samplerate}, 44100, 'hybrid samplerate ok' );
is( $info->{song_length_ms}, 1019, 'hybrid song_length_ms ok' );
}
# 24-bit file
{
my $s = Audio::Scan->scan_info( _f('24-bit.wv') );
my $info = $s->{info};
is( $info->{bits_per_sample}, 24, '24-bit bits_per_sample ok' );
is( $info->{channels}, 2, '24-bit channels ok' );
is( $info->{samplerate}, 88200, '24-bit samplerate ok' );
is( $info->{song_length_ms}, 147101, '24-bit song_length_ms ok' );
is( $info->{total_samples}, 12974320, '24-bit total_samples ok' );
}
# File with initial block containing 0 block_samples (bug 8601)
{
my $s = Audio::Scan->scan_info( _f('zero-first-block.wv') );
my $info = $s->{info};
is( $info->{bits_per_sample}, 16, 'Zero first block bits_per_sample ok' );
is( $info->{channels}, 2, 'Zero first block channels ok' );
is( $info->{samplerate}, 44100, 'Zero first block samplerate ok' );
is( $info->{song_length_ms}, 36506, 'Zero first block song_length_ms ok' );
is( $info->{total_samples}, 1609944, 'Zero first block total_samples ok' );
}
# v3 file
{
my $s = Audio::Scan->scan_info( _f('v3.wv') );
my $info = $s->{info};
is( $info->{audio_offset}, 0, 'v3 audio_offset ok' );
is( $info->{bitrate}, 4, 'v3 bitrate ok' );
is( $info->{bits_per_sample}, 16, 'v3 bits_per_sample ok' );
is( $info->{channels}, 2, 'v3 channels ok' );
is( $info->{encoder_version}, 3, 'v3 encoder_version ok' );
is( $info->{file_size}, 176, 'v3 file_size ok' );
is( $info->{samplerate}, 44100, 'v3 samplerate ok' );
is( $info->{song_length_ms}, 329280, 'v3 song_length_ms ok' );
is( $info->{total_samples}, 14521248, 'v3 total_samples ok' );
}
# v2 file
{
my $s = Audio::Scan->scan_info( _f('v2.wv') );
my $info = $s->{info};
is( $info->{audio_offset}, 0, 'v2 audio_offset ok' );
is( $info->{bitrate}, 80, 'v2 bitrate ok' );
is( $info->{bits_per_sample}, 16, 'v2 bits_per_sample ok' );
is( $info->{channels}, 2, 'v2 channels ok' );
is( $info->{encoder_version}, 2, 'v2 encoder_version ok' );
is( $info->{file_size}, 368, 'v2 file_size ok' );
is( $info->{samplerate}, 44100, 'v2 samplerate ok' );
is( $info->{song_length_ms}, 36506, 'v2 song_length_ms ok' );
is( $info->{total_samples}, 1609944, 'v2 total_samples ok' );
}
# Custom samplerate
{
my $s = Audio::Scan->scan_info( _f('custom-samplerate.wv') );
my $info = $s->{info};
is( $info->{audio_offset}, 0, 'custom-samplerate audio_offset ok' );
is( $info->{bitrate}, 149, 'custom-samplerate bitrate ok' );
is( $info->{bits_per_sample}, 16, 'custom-samplerate bits_per_sample ok' );
is( $info->{channels}, 2, 'custom-samplerate channels ok' );
is( $info->{encoder_version}, 0x407, 'custom-samplerate encoder_version ok' );
is( $info->{file_size}, 560, 'custom-samplerate file_size ok' );
is( $info->{samplerate}, 40000, 'custom-samplerate samplerate ok' );
is( $info->{song_length_ms}, 30000, 'custom-samplerate song_length_ms ok' );
is( $info->{total_samples}, 1200001, 'custom-samplerate total_samples ok' );
}
# Multi-channel file
{
my $s = Audio::Scan->scan_info( _f('6channel.wv') );
my $info = $s->{info};
is( $info->{audio_offset}, 0, '6channel audio_offset ok' );
is( $info->{bitrate}, 265, '6channel bitrate ok' );
is( $info->{bits_per_sample}, 16, '6channel bits_per_sample ok' );
is( $info->{channels}, 6, '6channel channels ok' );
is( $info->{encoder_version}, 0x406, '6channel encoder_version ok' );
is( $info->{file_size}, 1024, '6channel file_size ok' );
is( $info->{samplerate}, 44100, '6channel samplerate ok' );
is( $info->{song_length_ms}, 30906, '6channel song_length_ms ok' );
is( $info->{total_samples}, 1362998, '6channel total_samples ok' );
}
sub _f {
return catfile( $FindBin::Bin, 'wavpack', shift );
}
|
