The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#!perl
# This is for testing constants exported from XS modules
my $exporter = JavaScript::Const::Exporter->new(
module => 'Fcntl',
constants => ['LOCK_SH'],
);
ok my $js = $exporter->process, 'process';
like $js, qr/^const LOCK_SH = [0-9]+\;/, 'expected result';
done_testing;