1 ! Copyright (C) 2009 Tim Wawrzynczak
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: tools.test id3 combinators grouping id3.private
7 : id3-params ( id3 -- title artist album year comment genre )
24 ] [ "vocab:id3/tests/blah.mp3" mp3>id3 id3-params ] unit-test
27 "Anthem of the Trinity"
33 ] [ "vocab:id3/tests/blah2.mp3" mp3>id3 id3-params ] unit-test
38 "Night and Day Frank Sinatra"
42 ] [ "vocab:id3/tests/blah3.mp3" mp3>id3 id3-params ] unit-test
46 [ 10000 [ synchsafe>seq seq>synchsafe ] map [ < ] monotonic? ] unit-test