]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/id3/id3-tests.factor
Fixes #2966
[factor.git] / extra / id3 / id3-tests.factor
index bc3a387fd0cc4aa4b5e0bee8593de40527c5788a..2967a93a659518ad261be9fe6585c963efa6b604 100644 (file)
@@ -1,5 +1,5 @@
 ! 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
@@ -14,33 +14,33 @@ 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