From d1d673705d9aa0fc60470be77a4830578e28fe62 Mon Sep 17 00:00:00 2001
From: David Warring <david.warring@gmail.com>
Date: Wed, 8 Nov 2023 07:46:39 +1300
Subject: [PATCH] add :Lang to root element in doco and tests

---
 README.md        |   2 +-
 docs/index.md    |   2 +-
 t/attributes.pdf | Bin 1609 -> 1633 bytes
 t/attributes.t   |   6 ++++--
 4 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/README.md b/README.md
index 7857df6..cdef8b9 100644
--- 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
index 7857df6..cdef8b9 100644
--- 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
index d7c6408058e70146e9c8e8e6ccd426924b5c889b..8b57146562fe545f2684e01ea8287bfd29456bde 100644
GIT binary patch
delta 113
zcmX@f^N?r5JLbs_EYemk`N^fZsd*(_3JUt(3egId3I+;63Wf$?Di$Q_lbDyTpplxV
z>ldX7;s+?0gCw~&YqQK?6gM<5QZN7kg**i=FvGym$jE&1E!H$nV*?{DRaIAiHvp+;
B8)g6i

delta 93
zcmaFJbCPGnJLbvPSj5#_@{>z*Q}ap`^t~0L6)Y7D6oM2C4Zu{af_{L4IheWGnPmo}
lxPiHaf&mC9<SB5083u+%2F8;=v8HhvnOktFs=E5S0RZD^7t{a%

diff --git a/t/attributes.t b/t/attributes.t
index 61ed737..4ab684c 100644
--- 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>;