47 lines
933 B
Factor
47 lines
933 B
Factor
! Copyright (C) 2009 Tim Wawrzynczak
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: tools.test id3 combinators grouping id3.private
|
|
sequences math ;
|
|
IN: id3.tests
|
|
|
|
: id3-params ( id3 -- title artist album year comment genre )
|
|
{
|
|
[ title ]
|
|
[ artist ]
|
|
[ album ]
|
|
[ year ]
|
|
[ comment ]
|
|
[ genre ]
|
|
} cleave ;
|
|
|
|
[
|
|
"BLAH"
|
|
"ARTIST"
|
|
"ALBUM"
|
|
"2009"
|
|
"COMMENT"
|
|
"Bluegrass"
|
|
] [ "vocab:id3/tests/blah.mp3" mp3>id3 id3-params ] unit-test
|
|
|
|
[
|
|
"Anthem of the Trinity"
|
|
"Terry Riley"
|
|
"Shri Camel"
|
|
f
|
|
f
|
|
"Classical"
|
|
] [ "vocab:id3/tests/blah2.mp3" mp3>id3 id3-params ] unit-test
|
|
|
|
[
|
|
"Stormy Weather"
|
|
"Frank Sinatra"
|
|
"Night and Day Frank Sinatra"
|
|
f
|
|
"eng, AG# 08E1C12E"
|
|
"Big Band"
|
|
] [ "vocab:id3/tests/blah3.mp3" mp3>id3 id3-params ] unit-test
|
|
|
|
|
|
[ t ]
|
|
[ 10000 [ synchsafe>seq seq>synchsafe ] map [ < ] monotonic? ] unit-test
|