#!/usr/bin/env perl
package
Quiq::JQuery::Function::Test;
use
v5.10;
use
strict;
use
warnings;
# -----------------------------------------------------------------------------
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