#!/usr/bin/perl use lib qw (lib ../lib); use warnings; use strict; use I18NFool::Extractor; use Test::More 'no_plan'; my $xml = <

This is a first string to translate.

This is a second string to translate.

More stuff.

EOF my $res = I18NFool::Extractor->process ($xml); ok ($res->{'default'} => 'default domain exists'); ok ($res->{'bar'} => 'bar domain exists'); ok ($res->{'foo'} => 'foo domain exists'); 1; __END__