From 4e1d61e14b5dcbc88d804550733e5e2942835f1e Mon Sep 17 00:00:00 2001 From: dakkar Date: Tue, 2 Jan 2018 17:09:30 +0000 Subject: test for musicfile --- t/data/test.mp3 | Bin 0 -> 4393 bytes t/tests/model/music-file.t | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 t/data/test.mp3 create mode 100644 t/tests/model/music-file.t diff --git a/t/data/test.mp3 b/t/data/test.mp3 new file mode 100644 index 0000000..2f17f2f Binary files /dev/null and b/t/data/test.mp3 differ diff --git a/t/tests/model/music-file.t b/t/tests/model/music-file.t new file mode 100644 index 0000000..2016f8e --- /dev/null +++ b/t/tests/model/music-file.t @@ -0,0 +1,32 @@ +use v6.d.PREVIEW; +use Test; +use Ultramarine::Model::MusicFile; + +# test file generated with: +# avconv -ac 2 -ar 44100 -f s16le -i /dev/zero -t 1 -q 0 -metadata title="some title" -metadata artist="some artist" test.mp3 + +my Ultramarine::Model::MusicFile $mf .= new(:path('t/data/test.mp3')); +my $data = $mf.metadata; + +is-deeply( + $data, + %( + :bit_rate("33633.000000"), + :duration("1.044898"), + :filename("t/data/test.mp3"), + :format_long_name("MP2/3 (MPEG audio layer 2/3)"), + :format_name("mp3"), + :nb_streams(1), + :size("4393.000000"), + :start_time("0.000000"), + :tags(%( + :artist("some artist"), + :encoder("Lavf56.1.0"), + :title("some title"), + )), + ), + 'metadata should match', +); + +done-testing; + -- cgit v1.2.3