### ----------------------------------------------------
### -- LibXML
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: t/21catalog.t
### ----------------------------------------------------
use v6;
use Test;
plan 1;

use LibXML;
use LibXML::Document;

# the following document should not be able to get parsed
# if the catalog is not available

lives-ok {
    my LibXML::Document:D $doc = LibXML.new( catalog => "samples/catalog.xml" ).parse: :string(q:to<EOF>);
    <!DOCTYPE article
      PUBLIC "-//Perl//XML LibXML V4.1.2//EN"
      "http://axkit.org/xml-libxml/test.dtd">
    <article>
    <pubData>Something here</pubData>
    <pubArticleID>12345</pubArticleID>
    <pubDate>2001-04-01</pubDate>
    <pubName>XML.com</pubName>
    <section>Foo</section>
    <lead>Here's some leading text</lead>
    <rest>And here is the rest...</rest>
    </article>
    EOF
}, 'Doc was parsed with catalog';


