#!/usr/bin/perl
###########################################################################
# This tests the basic functionality of Froody::Response::XML
###########################################################################
use strict;
use warnings;
# start the tests
use Test::More tests => 4;
use Test::Exception;
use Test::Exception;
use Froody::Response::Error;
use Froody::Response::String;
use Froody::Response::XML;
{ local $TODO = "Make this pretty, not evil, like it is now.";
throws_ok {
Froody::Response::String ->new()
->set_string("Mr Katz. He dead.")
->as_error;
} qr/froody.xml.parse/;
isa_ok $@, "Froody::Error";
throws_ok {
Froody::Response::String ->new()
->set_string("<rsp></rsp>")
->as_error;
} qr/froody.xml.parse/;
}
isa_ok $@, "Froody::Error";