use Test::More tests => 3;
use strict;
use warnings;
use PDF::API2;
use PDF::API2::Basic::PDF::Array;
my $pdf = PDF::API2->new();
$pdf->{forcecompress} = 0;
my $page = $pdf->page();
my $annotation = $page->annotation();
$annotation->text('This is an annotation', -rect => [ 72, 144, 172, 244 ]);
# Note: Annotation currently uses UTF-8 whenever possible, which is
# why the Contents section doesn't just have the simple text.  I think
# it would be better to only use UTF-8 when necessary.
my $string = $pdf->stringify();
like($string,
     qr{/Annot /Subtype /Text /Border \[ 0 0 0 \] /Contents <FEFF005400680069007300200069007300200061006E00200061006E006E006F0074006100740069006F006E> /Rect \[ 72 144 172 244 \]},
     q{Text Annotation in a rectangle});
# File Attachment annotation
$pdf = PDF::API2->new();
$pdf->{'forcecompress'} = 0;
$page = $pdf->page();
$annotation = $page->annotation();
$annotation->file_attachment('t/resources/sample.pdf', -type => 'application/pdf', -rect => [ 72, 144, 172, 244 ]);
$string = $pdf->stringify();
like($string,
     qr{/Type /EmbeddedFile},
     q{File Attachment Annotation});
# [RT #118352] Crash if $page->annotation is called on a page with an
# existing Annots array stored in an indirect object
$pdf = PDF::API2->new();
$page = $pdf->page();
my $array = PDF::API2::Basic::PDF::Array->new();
$pdf->{'pdf'}->new_obj($array);
$page->{'Annots'} = $array;
$page->update();
$string = $pdf->stringify();
$pdf = PDF::API2->open_scalar($string);
$page = $pdf->openpage(1);
$annotation = $page->annotation();
$annotation->text('This is an annotation', -rect => [ 72, 144, 172, 244 ]);
$string = $pdf->stringify();
like($string,
     qr{/Annot /Subtype /Text /Border \[ 0 0 0 \] /Contents <FEFF005400680069007300200069007300200061006E00200061006E006E006F0074006100740069006F006E> /Rect \[ 72 144 172 244 \]},
     q{Add an annotation to an existing annotations array stored in an indirect object});