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

   1 use v5.12;
   2 use warnings;
   3
   4 use Test::More tests => 5;
   5
   6 require './tags.pl';
   7 epg::flac::archive::tags->import('mangle_for_file_name');
   8
   9 is mangle_for_file_name('foo'), 'foo',
  10     'no mangling needed';
  11
  12 # This is dumb, but does it matter?  Garbage in...
  13 is mangle_for_file_name('-'), '',
  14     'nothing but a -';
  15
  16 is mangle_for_file_name("-don't keep (most) of this \"stuff\"!"),
  17     'don-t_keep_most_of_this_stuff';
  18
  19 is mangle_for_file_name("'repeated   things ()"),
  20     'repeated_things';
  21
  22 is mangle_for_file_name("y u put\nnewline"),
  23     'y_u_put_newline';