2009-02-09 22:50:04 -05:00
|
|
|
! Copyright (C) 2009 Tim Wawrzynczak
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-04-09 19:23:05 -04:00
|
|
|
USING: tools.test id3 combinators grouping id3.private
|
|
|
|
|
sequences math ;
|
2009-02-09 22:50:04 -05:00
|
|
|
IN: id3.tests
|
|
|
|
|
|
2009-02-26 22:39:53 -05:00
|
|
|
: id3-params ( id3 -- title artist album year comment genre )
|
|
|
|
|
{
|
2009-03-28 17:35:08 -04:00
|
|
|
[ title ]
|
|
|
|
|
[ artist ]
|
|
|
|
|
[ album ]
|
|
|
|
|
[ year ]
|
|
|
|
|
[ comment ]
|
|
|
|
|
[ genre ]
|
2009-02-26 22:39:53 -05:00
|
|
|
} cleave ;
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{
|
2009-02-26 22:39:53 -05:00
|
|
|
"BLAH"
|
|
|
|
|
"ARTIST"
|
|
|
|
|
"ALBUM"
|
|
|
|
|
"2009"
|
|
|
|
|
"COMMENT"
|
|
|
|
|
"Bluegrass"
|
2015-07-03 12:39:59 -04:00
|
|
|
} [ "vocab:id3/tests/blah.mp3" mp3>id3 id3-params ] unit-test
|
2009-02-18 22:32:31 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{
|
2009-02-26 22:39:53 -05:00
|
|
|
"Anthem of the Trinity"
|
|
|
|
|
"Terry Riley"
|
|
|
|
|
"Shri Camel"
|
|
|
|
|
f
|
|
|
|
|
f
|
|
|
|
|
"Classical"
|
2015-07-03 12:39:59 -04:00
|
|
|
} [ "vocab:id3/tests/blah2.mp3" mp3>id3 id3-params ] unit-test
|
2009-02-09 22:50:04 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{
|
2009-02-26 22:39:53 -05:00
|
|
|
"Stormy Weather"
|
|
|
|
|
"Frank Sinatra"
|
|
|
|
|
"Night and Day Frank Sinatra"
|
|
|
|
|
f
|
|
|
|
|
"eng, AG# 08E1C12E"
|
|
|
|
|
"Big Band"
|
2015-07-03 12:39:59 -04:00
|
|
|
} [ "vocab:id3/tests/blah3.mp3" mp3>id3 id3-params ] unit-test
|
2009-02-09 22:50:04 -05:00
|
|
|
|
2009-04-09 19:23:05 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t }
|
2017-06-01 17:59:35 -04:00
|
|
|
[ 10000 <iota> [ synchsafe>sequence sequence>synchsafe ] map [ < ] monotonic? ] unit-test
|
