# -e " ok +Some::Package::Foo->a_method_call($var), 'test succeeded';
+ "
(('ok' + 'Some::Package::Foo'->a_method_call($var)), '???');
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
(
(
'ok'
+
'Some::Package::Foo'
->
a_method_call
(
$var
)
)
,
'???'
)
;
##################################################################
# -MTest::More -e " ok +Some::Package::Foo->a_method_call($var), 'test
+ succeeded'; "
use Test::More;
ok('Some::Package::Foo'->a_method_call($var), 'test succeeded');
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
use Test::More;
ok
(
'Some::Package::Foo'
->
a_method_call
(
$var
)
,
'test succeeded'
)
;
##################################################################
without
# -e " ok Some::Package::Foo->a_method_call($var), 'test succeeded'; "
('Some::Package::Foo'->ok->a_method_call($var), '???');
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
(
'Some::Package::Foo'
->
ok
->
a_method_call
(
$var
)
,
'???'
)
;
##################################################################
# -MTest::More -e " ok Some::Package::Foo->a_method_call($var), 'test
+succeeded'; "
use Test::More;
ok('Some::Package::Foo'->a_method_call($var), 'test succeeded');
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
use Test::More;
ok
(
'Some::Package::Foo'
->
a_method_call
(
$var
)
,
'test succeeded'
)
;
|