### ----------------------------------------------------
### -- PDF::Content
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: t/pdf-text-verbatim.t
### ----------------------------------------------------
use v6;
use Test;
plan 1;
use lib 't';
use PDF::Content;
use PDF::Content::Ops :OpCode;
use PDF::Content::FontObj;
use PDF::Content::Page;
use PDFTiny;

my PDFTiny $pdf .= new;
my PDF::Content::Page $page = $pdf.add-page;
my PDF::Content $gfx = $page.gfx;
my $width = 50;
my $font-size = 18;

my PDF::Content::FontObj $font = $pdf.core-font( :family<Helvetica> );

$width = 100;
my $height = 100;
my $x = 110;

$gfx.BeginText;
$gfx.set-font( $font, 10);

my $sample = qq:to"--ENOUGH!!--";
First   Line
  Line2, leading spaces
Wrapping text follows...
Lorem ipsum dolor\c[EM SPACE]sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt
last line
--ENOUGH!!--

my $baseline = 'top';

for False, True -> $verbatim {
    for False, True -> $squish {

        my $y = 700;

        for <left center right justify> -> $align {
            $gfx.text-position = ($x, $y);
            my $text = "*** verbatim:$verbatim squish:$squish $align *** " ~ $sample;
            $gfx.say($text, :$width, :$height, :$verbatim, :$align, :$baseline, :$squish );
            $y -= 125;
        }

        $x += 125;
    }
}
$gfx.EndText;

# ensure consistant document ID generation
$pdf.id = $*PROGRAM.basename.fmt('%-16.16s');

lives-ok {$pdf.save-as('t/pdf-text-verbatim.pdf')};

done-testing;


