# using Test::More...

my $input_string = "some input data";
my $proc = Data::Processor->new( string => $input_string );

my @out_filenames = $proc->names;

is_deeply(\@out_filenames,[qw(some list of filenames)]);

is($proc->data($some_filename),"data for filename");

$proc->close();