add :Lang to root element in doco and tests

pdf-raku · Nov 7, 2023 · d1d6737 · d1d6737
1 parent 7fc85e3
commit d1d6737
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 4 deletions.
diff --git a/README.md b/README.md
@@ -26,7 +26,7 @@ use PDF::XObject::Image;
 my PDF::API6 $pdf .= new;
 my PDF::Tags $tags .= create: :$pdf;
 # create the document root
-my PDF::Tags::Elem $doc = $tags.Document;
+my PDF::Tags::Elem $doc = $tags.Document: :Lang<en-NZ>;
 
 my PDF::Page $page = $pdf.add-page;
 my $header-font = $page.core-font: :family<Helvetica>, :weight<bold>;

diff --git a/docs/index.md b/docs/index.md
@@ -26,7 +26,7 @@ use PDF::XObject::Image;
 my PDF::API6 $pdf .= new;
 my PDF::Tags $tags .= create: :$pdf;
 # create the document root
-my PDF::Tags::Elem $doc = $tags.Document;
+my PDF::Tags::Elem $doc = $tags.Document: :Lang<en-NZ>;
 
 my PDF::Page $page = $pdf.add-page;
 my $header-font = $page.core-font: :family<Helvetica>, :weight<bold>;

diff --git a/t/attributes.pdf b/t/attributes.pdf
diff --git a/t/attributes.t b/t/attributes.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 6;
+plan 7;
 
 use PDF::Content::FontObj;
 use PDF::Tags;
@@ -11,7 +11,9 @@ use PDF::COS::Name;
 
 my PDF::Class $pdf .= new;
 my PDF::Tags $tags .= create: :$pdf;
-my PDF::Tags::Elem $doc = $tags.Document;
+my PDF::Tags::Elem $doc = $tags.Document: :Lang<en-NZ>;
+my $lang = $doc.Lang;
+is $doc.Lang, 'en-NZ';
 
 my PDF::Page $page = $pdf.add-page;
 my PDF::Content::FontObj $header-font = $pdf.core-font: :family<Helvetica>, :weight<bold>;