add test for .xml(:roles) option

docs/index.md

@@ -189,7 +189,7 @@ my $figure = $doc.Figure: $gfx, $img, :position[50, 70], :Alt("A light-bulb");
 ```
 
 An [PDF::XObject::Form](https://pdf-raku.github.io/PDF-Class-raku/PDF/XObject/Form) may be associated with a marked content
-sub-tree. This may be achieved by marking the form against a document fragment, then calling `do` to repeatably
+sub-tree. This is achieved by marking the form against a document fragment, then calling `do` to repeatably
 render the form, while inserting the fragment, as demonstrated below:
 
 ```raku
@@ -239,7 +239,7 @@ a copy of the fragment into the structure tree.
 ### Links
 
 Links are usually contained in a block element, such as a `Paragraph`. If
-the link is internal, it should further be enclosed in a `Reference` element.
+the link is internal, it should be further enclosed in a `Reference` element.
 
 Furthermore, if the link is in flowing text, such as a paragraph, the
 `mark` method may be needed to mark preceding text, the link, and

lib/PDF/Tags.rakumod

@@ -46,7 +46,6 @@ class PDF::Tags:ver<0.1.10> {
                 unless $base eq $_;
         }
         else {
-            warn "setting role $role => $base";
             $_ = $base;
         }
     }

t/role-maps.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 11;
+plan 13;
 
 use PDF::Content::FontObj;
 use PDF::Content::Tag :Tags;
@@ -46,6 +46,9 @@ $page.graphics: -> $gfx {
     is $fn1.name, 'Note';
     is $fn1.attributes<role>, 'Footnote';
 
+    is $fn1.xml.lines.map(*.trim).join, '<Note role="Footnote">¹With a foot-note</Note>';
+    is $fn1.xml(:roles).lines.map(*.trim).join, '<Footnote>¹With a foot-note</Footnote>';
+
     my $fn2 = $doc.add-kid: :name<Footnote>, $gfx, {
         .print: '²And another foot-note', :position[50, 50];
     };
@@ -58,6 +61,6 @@ $pdf.id =  $*PROGRAM-NAME.fmt('%-16.16s');
 
 is $tags.find('Document//*')>>.name.join(','), 'H1,P,Note,Note';
 
-lives-ok { $pdf.save-as: "t/role-maps.pdf", :!info }; 
+lives-ok { $pdf.save-as: "t/role-maps.pdf", :!info };
 
 done-testing;