! Copyright (C) 2009 Tim Wawrzynczak
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
USING: tools.test id3 combinators grouping id3.private
sequences math ;
IN: id3.tests
[ genre ]
} cleave ;
-[
- "BLAH"
- "ARTIST"
- "ALBUM"
- "2009"
- "COMMENT"
- "Bluegrass"
-] [ "vocab:id3/tests/blah.mp3" mp3>id3 id3-params ] unit-test
+{
+ "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
+} [ "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
+{
+ "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 iota [ synchsafe>seq seq>synchsafe ] map [ < ] monotonic? ] unit-test
+{ t }
+[ 10000 <iota> [ synchsafe>sequence sequence>synchsafe ] map [ < ] monotonic? ] unit-test