use Test;
BEGIN {plan tests => 4}

use PDFLib;
#my $pdf = PDFLib->new(filename => "test.pdf");
my $pdf = PDFLib->new();
ok($pdf);

$pdf->start_page;

$pdf->set_font(face => "Helvetica", size => 18.0);
ok(1);

$pdf->print_at("Foo", x => 40, y => 600);
$pdf->print_line("Food");
$pdf->set_font(face => "Times-Roman", size => 18.0);
$pdf->print_line("Bar");

my $width = $pdf->string_width( text => "Hello World");

ok($width);

ok($pdf->get_buffer);