### ----------------------------------------------------
### -- PDF::Native
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: t/cos-hex-string.t
### ----------------------------------------------------
use PDF::Native::COS;
use Test;

plan 6;

my COSHexString() $hex-string = 'Hello!';
is $hex-string.ref-count, 1;

is $hex-string.type, +COS_NODE_HEX_STR;
is-deeply $hex-string.value, 'Hello!';
is-deeply $hex-string.Str, 'Hello!';
is-deeply $hex-string.ast, (:hex-string<Hello!>);
is-deeply $hex-string.write , '<48656c6c6f21>';

done-testing;


