use v5.12;
use warnings;

use Test::More tests => 5;

require './tags.pl';
epg::flac::archive::tags->import('mangle_for_file_name');

is mangle_for_file_name('foo'), 'foo',
    'no mangling needed';

# This is dumb, but does it matter?  Garbage in...
is mangle_for_file_name('-'), '',
    'nothing but a -';

is mangle_for_file_name("-don't keep (most) of this \"stuff\"!"),
    'don-t_keep_most_of_this_stuff';

is mangle_for_file_name("'repeated   things ()"),
    'repeated_things';

is mangle_for_file_name("y u put\nnewline"),
    'y_u_put_newline';