factor/extra/id3/id3-tests.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 iota [ synchsafe>seq seq>synchsafe ] map [ < ] monotonic? ] unit-test
Added extra/id3 vocab 2009-02-09 22:50:04 -05:00			`! Copyright (C) 2009 Tim Wawrzynczak`
			`! See http://factorcode.org/license.txt for BSD license.`
write synchsafe numbers to sequences 2009-04-09 19:23:05 -04:00			`USING: tools.test id3 combinators grouping id3.private`
			`sequences math ;`
Added extra/id3 vocab 2009-02-09 22:50:04 -05:00			`IN: id3.tests`

id3 outputs id3v2-info objects or f now. id3v1 info is turned into id3v2. you can access the title, album, etc fields by calling id3-title, etc, but also other frames are saved and can be accessed 2009-02-26 22:39:53 -05:00			`: id3-params ( id3 -- title artist album year comment genre )`
			`{`
full docs for id3 and minor refactoring 2009-03-28 17:35:08 -04:00			`[ title ]`
			`[ artist ]`
			`[ album ]`
			`[ year ]`
			`[ comment ]`
			`[ genre ]`
id3 outputs id3v2-info objects or f now. id3v1 info is turned into id3v2. you can access the title, album, etc fields by calling id3-title, etc, but also other frames are saved and can be accessed 2009-02-26 22:39:53 -05:00			`} cleave ;`

Added extra/id3 vocab 2009-02-09 22:50:04 -05:00			`[`
id3 outputs id3v2-info objects or f now. id3v1 info is turned into id3v2. you can access the title, album, etc fields by calling id3-title, etc, but also other frames are saved and can be accessed 2009-02-26 22:39:53 -05:00			`"BLAH"`
			`"ARTIST"`
			`"ALBUM"`
			`"2009"`
			`"COMMENT"`
			`"Bluegrass"`
full docs for id3 and minor refactoring 2009-03-28 17:35:08 -04:00			`] [ "vocab:id3/tests/blah.mp3" mp3>id3 id3-params ] unit-test`
Merged interfaces between v1 and v2 (id3-info); added textual genre names instead of numbers 2009-02-18 22:32:31 -05:00
			`[`
id3 outputs id3v2-info objects or f now. id3v1 info is turned into id3v2. you can access the title, album, etc fields by calling id3-title, etc, but also other frames are saved and can be accessed 2009-02-26 22:39:53 -05:00			`"Anthem of the Trinity"`
			`"Terry Riley"`
			`"Shri Camel"`
			`f`
			`f`
			`"Classical"`
full docs for id3 and minor refactoring 2009-03-28 17:35:08 -04:00			`] [ "vocab:id3/tests/blah2.mp3" mp3>id3 id3-params ] unit-test`
Added extra/id3 vocab 2009-02-09 22:50:04 -05:00
			`[`
id3 outputs id3v2-info objects or f now. id3v1 info is turned into id3v2. you can access the title, album, etc fields by calling id3-title, etc, but also other frames are saved and can be accessed 2009-02-26 22:39:53 -05:00			`"Stormy Weather"`
			`"Frank Sinatra"`
			`"Night and Day Frank Sinatra"`
			`f`
			`"eng, AG# 08E1C12E"`
			`"Big Band"`
full docs for id3 and minor refactoring 2009-03-28 17:35:08 -04:00			`] [ "vocab:id3/tests/blah3.mp3" mp3>id3 id3-params ] unit-test`
Added extra/id3 vocab 2009-02-09 22:50:04 -05:00
write synchsafe numbers to sequences 2009-04-09 19:23:05 -04:00
			`[ t ]`
Removing integers-as-sequences 2010-01-14 10:10:13 -05:00			`[ 10000 iota [ synchsafe>seq seq>synchsafe ] map [ < ] monotonic? ] unit-test`