#!perl -T
use strict;
use warnings FATAL => 'all';

use PostScript::Barcode::azteccode qw();
use Test::More tests => 1;

unlike(
    PostScript::Barcode::azteccode->new(data => 1)->post_script_source_code,
    qr/ARRAY\(0x[0-9a-f]+\)/msx,
    'unintended stringification of references',
);