# ... setup $foo
    my $xml = <<XML;
    <?xml version="1.0" encoding="utf-8"?>
    <stuff>
      ...
    </stuff>
    XML

    my $out = $foo->method_under_test($xml);
    ok ( Data::Dumper::Dumper($out), <<EXPECTED );
    $VAR1 = {
              ...
            };
    EXPECTED