From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!/usr/bin/env perl
use v5.10;
use strict;
# -----------------------------------------------------------------------------
sub test_loadClass : Init(1) {
shift->useOk('Quiq::JQuery::Function');
}
# -----------------------------------------------------------------------------
sub test_ready : Test(1) {
my $self = shift;
my $handler = Quiq::JQuery::Function->ready("alert('hello');");
$self->isText("$handler\n",q~
$(function() {
alert('hello');
});
~);
}
# -----------------------------------------------------------------------------
package main;
Quiq::JQuery::Function::Test->runTests;
# eof