diplodocus.org Git - flac-archive/blob - t/mp3cd/plan.t

   1 use v5.12;
   2 use warnings;
   3
   4 use Test::More tests => 3;
   5
   6 use Test::Differences;
   7
   8 require './tags.pl';
   9 require './fa-mp3cd';
  10
  11 my @Rising = (
  12     { TITLE => ['Tarot Woman'] },
  13     { TITLE => ['Run With the Wolf'] },
  14     );
  15 for (my $i = 0; $i < @Rising; $i++) {
  16     my $n = $i + 1;
  17     $Rising[$i] = [
  18         "$n.flac",
  19         {
  20             TRACKNUMBER => [$n],
  21             ARTIST => ['Rainbow'],
  22             ALBUM => ['Rising'],
  23             DATE => ['1976-05-17'],
  24             %{$Rising[$i]},
  25         }];
  26 }
  27
  28 eq_or_diff
  29     [
  30      {
  31          dir => './Rising',
  32          flac => '1.flac',
  33          filename => '01_Tarot_Woman.mp3',
  34          artist => 'Rainbow',
  35          album => 'Rising',
  36          date => '1976-05-17',
  37          discnumber => [],
  38          tracknumber => 1,
  39          title => 'Tarot Woman',
  40      },
  41      {
  42          dir => './Rising',
  43          flac => '2.flac',
  44          filename => '02_Run_With_the_Wolf.mp3',
  45          artist => 'Rainbow',
  46          album => 'Rising',
  47          date => '1976-05-17',
  48          discnumber => [],
  49          tracknumber => 2,
  50          title => 'Run With the Wolf',
  51      },
  52     ],
  53     [epg::flac::archive::mp3::cd::plan('.', @Rising)];
  54
  55 eq_or_diff
  56     [
  57      {
  58          dir => 'a/b/fakeal',
  59          flac => 'file.flac',
  60          filename => '01_faket.mp3',
  61          artist => 'fakear',
  62          album => 'fakeal',
  63          date => 0,
  64          discnumber => [],
  65          tracknumber => 1,
  66          title => 'faket',
  67      }
  68     ],
  69     [
  70      epg::flac::archive::mp3::cd::plan(
  71          'a/b',
  72          ['file.flac', {
  73              ARTIST => ['fakear'],
  74              ALBUM => ['fakeal'],
  75              DATE => [0],
  76              TRACKNUMBER => [1],
  77              TITLE => ['faket'],
  78           }],
  79      )],
  80     'relative work directory';
  81
  82 eq_or_diff
  83     [
  84      {
  85          dir => '/a/b/fakeal',
  86          flac => 'file.flac',
  87          filename => '01_faket.mp3',
  88          artist => 'fakear',
  89          album => 'fakeal',
  90          date => 0,
  91          discnumber => [],
  92          tracknumber => 1,
  93          title => 'faket',
  94      }
  95     ],
  96     [
  97      epg::flac::archive::mp3::cd::plan(
  98          '/a/b',
  99          ['file.flac', {
 100              ARTIST => ['fakear'],
 101              ALBUM => ['fakeal'],
 102              DATE => [0],
 103              TRACKNUMBER => [1],
 104              TITLE => ['faket'],
 105           }],
 106      )],
 107     'absolute work directory';