#!/usr/bin/env perl
use strict;
use Test::More 'no_plan';
{
my $js = JavaScript::Writer->new();
$js->alert("foo");
is($js->as_string(), q{alert("foo");});
}
{
my $js = JavaScript::Writer->new();
$js->alert( q{"'?\$\\} );
is($js->as_string(), q{alert("\"'?\\\\$\\\\");});
}
{
my $js = JavaScript::Writer->new();
$js->jump();
is($js->as_string(), q{jump();});
}
{
my $js = JavaScript::Writer->new();
$js->jump;
is($js->as_string(), q{jump();});
}