### ----------------------------------------------------
### -- PDF::Content
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: t/basic.t
### ----------------------------------------------------
use v6;
use Test;
use lib 't';
use PDF::Grammar::Test :is-json-equiv;
use PDF::Content::Ops :OpCode;
use PDFTiny;

plan 6;

my PDF::Content::Ops $gfx = PDFTiny.new.add-page.gfx;

$gfx.Save;
lives-ok {$gfx.op(BeginText)}, 'basic op';
lives-ok {$gfx.op('Tj' => [ :literal('Hello, world!') ])}, 'push raw content';
lives-ok {$gfx.op('TJ' => [[ 'bye', :hex-string('bye') ], ])}, 'push raw content';
dies-ok {$gfx.op('Tjunk' => [ :literal('wtf?') ])}, "can't push bad raw content";
$gfx.add-comment("That's it, for now.");
$gfx.op('ET');
$gfx.Restore;
is-json-equiv $gfx.ops, [
    :q[],
    :BT[],
    :Tj[ :literal('Hello, world!') ],
    :TJ[ :array[ :literal("bye"), :hex-string('bye') ] ],
    :comment["That's it, for now."],
    :ET[],
    :Q[],
    ], 'content ops';

my $content = $gfx.Str;

is-json-equiv [$content.lines], [
	      'q',
	      '  BT',
	      '    (Hello, world!) Tj',
	      '    [ (bye) <627965> ] TJ',
              "    % That's it, for now.",
	      '  ET',
	      'Q'], 'rendered content';




