# -*- cperl -*-

use Test::More tests => 1 + 2 * 25;

BEGIN { use_ok('Tie::Cvs') }

# norm and norminv are inverse one from the other

my %data = (
	    # NORMAL
	    "teste"       => "teste",

	    # SPACE
	    "foo bar"     => 'foo_bar',
            ' '           => '_',

	    # UNDERSCORE
	    '_'           => '%_',
	    '%_'          => '%%%_',
	    ' _'          => '_%_',
	    '_ '          => '%__',
	    '  '          => '__',
	    '__'          => '%_%_',
	    ' % _% %_'    => '_%%_%_%%_%%%_',

	    # PERCENT
	    'foo%bar'     => 'foo%%bar',
	    'foo%percent' => 'foo%%percent',
	    'foo %'       => 'foo_%%',
            '%'           => '%%',

	    # SLASH
            'foo/bar'     => 'foo%sbar',
            '/'           => '%s',
	    '%slash'      => '%%slash',

	    # CVS e CVSROOT
	    'CVS'         => '%CVS',
	    'CVSROOT'     => '%CVSROOT',
	    ' CVS'        => '_CVS',
            'aCVS'        => 'aCVS',
            '%CVS'        => '%%CVS',
            '%CVSROOT'    => '%%CVSROOT',
	    # TAB
            "\t"          => '%t',

	    # MISC
	    " %/\t"         => '_%%%s%t',
	   );

for $a (keys %data) {
  is(Tie::Cvs::norm($a),$data{$a});
  is(Tie::Cvs::norminv(Tie::Cvs::norm($a)), $a)
}