#!/usr/bin/perl
use strict;
use warnings;

use lib '../lib';
use lib '../../lib';

use Test::More tests => 22;

use_ok('XML::Loy');

my $xml = XML::Loy->new('test');
my $subnode = $xml->add('Test', { foo => 'bar' });

is($xml->at('Test')->attr->{foo}, 'bar', 'Attribute request');

$subnode->comment('This is a Test.');
my $subsubnode = $subnode->add('SubTest',{ rel => 'simple'} );
$subsubnode->add('SubTest', {rel => 'hard'}, 'Huhu');

is($xml->at('SubTest')->attr('rel'), 'simple', 'Attribute');
is($xml->at('SubTest[rel="hard"]')->text, 'Huhu', 'Text');
is($xml->at('SubTest[rel="simple"]')->text, '', 'Text');
is($xml->at('SubTest[rel="simple"]')->all_text, 'Huhu', 'All Text');

$xml = XML::Loy->new(<<'XML');
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<xml>
  <Test foo="bar">
    <SubTest rel="simple">
      <SubTest rel="hard">Huhu</SubTest>
    </SubTest>
  </Test>
</xml>
XML

is($xml->at('SubTest')->attr('rel'), 'simple', 'Attribute');
is($xml->at('SubTest[rel="hard"]')->text, 'Huhu', 'Text');
like($xml->at('SubTest[rel="simple"]')->text, qr!\s*!, 'Text');
like($xml->at('SubTest[rel="simple"]')->all_text, qr/^\s*Huhu\s*$/, 'All Text');

$xml->add('ParaTest', { rel => "para" }, 'Para');

is($xml->at('ParaTest')->attr('rel'), 'para', 'Attribute');
is($xml->at('ParaTest[rel="para"]')->text, 'Para', 'Text');

# New document
$xml = XML::Loy->new('html');
my $body = $xml->add('body', {color => '#ffffff' })->comment('body');
$body->add('h1', 'Headline');
$body->add('p', 'Paragraph');

is($xml->at('body')->attr('color'), '#ffffff', 'Attribute');
is($xml->at('h1')->text, 'Headline', 'Text');
is($xml->at('p')->text, 'Paragraph', 'Text');
like($xml->at('body')->all_text, qr!Headline\s*Paragraph!, 'Text');


# Add paragraph to document
my $new_para = XML::Loy->new('p', { foo => 'bar' }, 'Paragraph2');

$xml->at('body')->add($new_para);
is($xml->at('body p:nth-of-type(2)')->text, 'Paragraph2', 'Text');


# Namespace declarations
my $my_ns = 'http://example.org/ns/my-1.0';

my $new_para_2 = XML::Loy->new('p', { this => 'test'});
$new_para_2->namespace('my' => $my_ns);

$new_para_2->add('my:strong', {check => 'this'}, 'Works!' );

is($new_para_2->at('strong')->namespace, $my_ns, 'Namespace');
is($new_para_2->at('*')->attr('xmlns:my'), $my_ns, 'Namespace-Declaration');

$xml->add($new_para_2);

is($xml->at('strong')->namespace, $my_ns, 'Namespace');
is($xml->at('*')->attr('xmlns:my'), $my_ns, 'Namespace-Declaration');


# Example from documentation
$xml = XML::Loy->new('entry');
$xml->namespace('fun' => 'http://sojolicio.us/ns/fun');
my $env = $xml->add('fun:env' => { foo => 'bar' });
my $data = $env->add('data' => { type => 'base64',
				 -type => 'armour:30'
			       } => <<'B64');
  VGhpcyBpcyBqdXN0IGEgdGVzdCBzdHJpbmcgZm
  9yIHRoZSBhcm1vdXIgdHlwZS4gSXQncyBwcmV0
  dHkgbG9uZyBmb3IgZXhhbXBsZSBpc3N1ZXMu
B64
$data->comment('This is base64 data!');

$xml->add('div' => { -type => 'raw' } => 'That\'s <b>coool</b>');

my $read = XML::Loy->new($xml->to_pretty_xml);

ok(!$read->at('div b'), 'Raw rendered');