1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use PDF::Builder;
# Dash
my $pdf = PDF::Builder->new('-compress' => 'none');
my $egs = $pdf->egstate();
$egs->dash(2, 1);
like($pdf->to_string, qr{<< /Type /ExtGState /D \[ \[ 2 1 \] 0 \] /Name /[\w]+ >>}, 'dash');
# Rendering Intent
$pdf = PDF::Builder->new('-compress' => 'none');
$egs = $pdf->egstate();
$egs->renderingintent('Perceptual');
like($pdf->to_string, qr{<< /Type /ExtGState /Name /[\w]+ /RI /Perceptual >>}, 'renderingintent');
1;
|
