diplodocus.org Git - flac-archive/blob - t/encode.t

   1 use v5.12;
   2 use warnings;
   3
   4 use Test::More tests => 2;
   5
   6 use FindBin;
   7
   8 use lib "$FindBin::Bin/..";
   9
  10 require 'tags.pl';
  11 require 'fa-encode';
  12
  13 is
  14   '02-03-the_title.flac',
  15   epg::flac::archive::encode::filename(
  16     discnumber => [2],
  17     tracknumber => 3,
  18     title => 'the title'
  19   ),
  20   'with discnumber';
  21
  22 is
  23   '01-the_title.flac',
  24   epg::flac::archive::encode::filename(tracknumber => 1, title => 'the title'),
  25   'without discnumber';