use v5.12; use warnings; use Test::More tests => 5; use Test::Exception; require './tags.pl'; epg::flac::archive::tags->import('two_digits'); is two_digits(0), '00', '0 -> 00'; is two_digits(1), '01', '1 -> 01'; throws_ok { two_digits(111) } qr/111 won't fit into two digits/; throws_ok { two_digits(-31) } qr/-31 won't fit into two digits/; is two_digits(''), '00';