projects
/
scpubgit/Object-Remote.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
callback calling
[scpubgit/Object-Remote.git]
/
t
/
basic.t
diff --git
a/t/basic.t
b/t/basic.t
index
07d77ef
..
24913dc
100644
(file)
--- a/
t/basic.t
+++ b/
t/basic.t
@@
-25,4
+25,10
@@
is($remote->increment, 1, 'Increment to 1');
is($remote->counter, 1, 'Counter at 1');
+my $x = 0;
+
+is($remote->call_callback(27, sub { $x++ }), 27, "Callback ok");
+
+is($x, 1, "Callback called callback");
+
done_testing;