summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorGianni Ceccarelli <dakkar@dechirico.(none)>2009-03-27 15:28:02 +0100
committerGianni Ceccarelli <dakkar@dechirico.(none)>2009-03-27 15:28:02 +0100
commit38cca38c46f7613dcd5aff2e11ba6ad6153d0269 (patch)
tree6fbd35f4a7da0c8ce4dbeeb417033550c0509a28 /t
parenttest multiple imports with separate engines (diff)
downloadTree-Template-Declare-38cca38c46f7613dcd5aff2e11ba6ad6153d0269.tar.gz
Tree-Template-Declare-38cca38c46f7613dcd5aff2e11ba6ad6153d0269.tar.bz2
Tree-Template-Declare-38cca38c46f7613dcd5aff2e11ba6ad6153d0269.zip
test multiple calls to attribs
Diffstat (limited to 't')
-rw-r--r--t/01-basic.t5
-rw-r--r--t/03-html.t4
-rw-r--r--t/04-xml.t3
3 files changed, 9 insertions, 3 deletions
diff --git a/t/01-basic.t b/t/01-basic.t
index fe205e1..c6b1e8a 100644
--- a/t/01-basic.t
+++ b/t/01-basic.t
@@ -12,6 +12,7 @@ my $tree=tree {
node {
name 'coso1';
attribs name => 'coso_1';
+ attribs other => 'some';
};
node {
name 'coso2';
@@ -19,7 +20,9 @@ my $tree=tree {
};
};
-diag $_ for @{$tree->draw_ascii_tree()};
is_deeply($tree->tree_to_lol(),
[['coso1'],['coso2'],'root'],
'built the tree');
+is_deeply(($tree->daughters)[0]->attributes,
+ {name => 'coso_1', other => 'some'},
+ 'attributes');
diff --git a/t/03-html.t b/t/03-html.t
index 27cac64..d805e56 100644
--- a/t/03-html.t
+++ b/t/03-html.t
@@ -24,6 +24,8 @@ my $tree=tree {
name 'body';
node {
name 'p';
+ attribs id => 'p1';
+ attribs class => 'para';
node { name '~text'; attribs text => 'Page para' };
};
};
@@ -31,6 +33,6 @@ my $tree=tree {
};
is($tree->as_HTML(),
- qq{<html><head><title>Page title</title></head><body><p>Page para</body></html>\n},
+ qq{<html><head><title>Page title</title></head><body><p class="para" id="p1">Page para</body></html>\n},
'HTML tree'
);
diff --git a/t/04-xml.t b/t/04-xml.t
index 9ec5924..b7b0af8 100644
--- a/t/04-xml.t
+++ b/t/04-xml.t
@@ -18,7 +18,8 @@ sub make_tree {
name 'stuff';
node {
name 'test:elem1';
- attribs id => 1, 'test:buh' => 'testing';
+ attribs 'test:buh' => 'testing';
+ attribs id => 1;
node {
name 'test:sub1';
}