#! perl

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

use_ok('Text::FakeXML');

open(my $fd, ">", \my $data);
my $o = Text::FakeXML->new(fh => $fd);

$o->xml_elt('foo', 'bar', id => 456, tag => '');


is($data, "<foo id=\"456\" tag=\"\">bar</foo>\n");