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

use Test::More tests => 10;
use strict;
my $js = js_dumper(
{
var7 => undef,
var6 => \1,
var1 => "test",
var2 => 1234,
var9 => 0.001,
var8 => "00",
var5 => "1234",
var3 => \1,
var4 => \"function"
}
);
like( $js, qr/"var3":true/ );
like( $js, qr/"var1":"test"/ );
like( $js, qr/"var4":function/ );
like( $js, qr/"var2":1234/ );
like( $js, qr/"var5":1234/ );
like( $js, qr/"var6":true/ );
like( $js, qr/"var7":null/ );
like( $js, qr/"var8":"00"/ );
like( $js, qr/"var9":"0.001"/ );
like( $js, qr/^\{.*\}$/ );
diag("Testing for correct Dumping");