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
|
let () =
assert (
Playlist_basic.parse_extinf "#EXTINF:,- songname" = [("song", "songname")]);
assert (
Playlist_basic.parse_extinf "#EXTINF:,-songname" = [("song", "songname")]);
assert (
Playlist_basic.parse_extinf "#EXTINF:,artist - title"
= [("artist", "artist"); ("title", "title")]);
assert (
Playlist_basic.parse_extinf "#EXTINF:,artist-title"
= [("artist", "artist"); ("title", "title")]);
assert (
Playlist_basic.parse_extinf "#EXTINF:123,- songname"
= [("extinf_duration", "123"); ("song", "songname")]);
assert (
Playlist_basic.parse_extinf "#EXTINF:123,-songname"
= [("extinf_duration", "123"); ("song", "songname")]);
assert (
Playlist_basic.parse_extinf "#EXTINF:123 ,artist - title"
= [("extinf_duration", "123"); ("artist", "artist"); ("title", "title")]);
assert (
Playlist_basic.parse_extinf "#EXTINF:123,artist-title"
= [("extinf_duration", "123"); ("artist", "artist"); ("title", "title")]);
assert (
Playlist_basic.parse_extinf "#EXTINF:123 foo=\"bla\",gni=\"gnu\",- songname"
= [
("extinf_duration", "123");
("foo", "bla");
("gni", "gnu");
("song", "songname");
]);
assert (
Playlist_basic.parse_extinf "#EXTINF:123 foo=\"bla,-songname"
= [("extinf_duration", "123")]);
assert (
Playlist_basic.parse_extinf
"#EXTINF:123 foo=\"bla\",gni=\"gnu\",artist - title"
= [
("extinf_duration", "123");
("foo", "bla");
("gni", "gnu");
("artist", "artist");
("title", "title");
]);
assert (
Playlist_basic.parse_extinf
"#EXTINF:123 foo=\"bla\",gni=\"gnu\",artist-title"
= [
("extinf_duration", "123");
("foo", "bla");
("gni", "gnu");
("artist", "artist");
("title", "title");
]);
assert (
Playlist_basic.parse_extinf
"#EXTINF:157,Blood, Sweat & Tears - Spinning wheel"
= [
("extinf_duration", "157");
("artist", "Blood, Sweat & Tears");
("title", "Spinning wheel");
]);
assert (
Playlist_basic.parse_extinf
"#EXTINF:157 foo=\"bla\",gni=\"gnu\",Blood, Sweat & Tears - Spinning \
wheel"
= [
("extinf_duration", "157");
("foo", "bla");
("gni", "gnu");
("artist", "Blood, Sweat & Tears");
("title", "Spinning wheel");
])
|
