#!/usr/bin/perl
use strict;
use warnings;
use JavaScript::Writer;
use JavaScript::Writer::BasicHelpers;
use Test::More;
plan tests => 1;
{
    my $func = sub {
        $_[0]->alert(42);
    };
    my $js = JavaScript::Writer->new;
    $js->delay(20, $func);
    my $j2 = JavaScript::Writer->new;
    $j2->setTimeout($func, 20);
    is("$j2", "$js", 'delay()');
}