#!/usr/bin/perl -w
#  Test that file suffix extraction works correctly.

use gnump3d::files;


while( <DATA> )
{
    my ($file, $desired ) = split(/,/);

    if ( defined( $desired ) )
    {
	chomp( $desired );
    }


    my $suffix = &getSuffix( $file );

    if ( defined( $desired ) && defined( $suffix ) )
    {
	if ( $desired ne $suffix )
	{
	    print "For '$file' got '$suffix' not '$desired'\n";
	    exit( 1 );
	}
    }
}


#
# All OK
exit 0;


__DATA__
test.mp3,mp3
test.mp3.mp3,mp3
test.ogg,ogg
test.mpeg,mpeg
test,
foo.ogg.mpeg,mpeg
foo..,
test./$,/$
