The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
HORNBURG / Template-Flute-0.0063 / t / 04-derive-filename.t 
#! perl -T
#
# Tests for Template::Flute::Utils::derive_filename function.

use strict;
use warnings;
use Test::More tests => 2;

use Template::Flute::Utils;

ok(Template::Flute::Utils::derive_filename('templates/helloworld.html', '.xml')
   eq 'templates/helloworld.xml');
ok(Template::Flute::Utils::derive_filename('templates/helloworld.html', 'foobar.png', 1)
   eq 'templates/foobar.png');