#!/usr/bin/perl
use warnings;
use strict;

use Test::More;
use Service::Factory;

my $xml = Service::Factory->instantiate('xml', 'xmldata');
$xml->populate;
like $xml->{template}, qr{<data>xmldata</data>}, 'XML OK';

my $json = Service::Factory->instantiate('json', 'jsondata');
$json->populate;
like $json->{template}, qr/{"data":"jsondata"}/, 'JSON OK';

done_testing;