#!/usr/bin/perl

use strict;
use Tie::IxHash;
use XML::Simple;

my %main; tie %main, "Tie::IxHash", (
    this => { isa => "test" },
    somewhat_tired => [ qw( of my tests "failing" because of XML::Parser and XML::SAX ) ],
);

my $string = XMLout(\%main,
    RootName => "WORKED",
    NoSort   => 1, # IxHash does this, please don't help me, kthx
);

print "$string\n";

my $perl = XMLin($string);
