diff options
Diffstat (limited to 't/basic.t')
-rw-r--r-- | t/basic.t | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -3,12 +3,14 @@ use strict; use warnings; use Test::More; -use Devel::CompleteStatement; +use Devel::CompleteStatement 'complete_statement'; -ok(Devel::CompleteStatement::complete_statement('if ($x) { $y }')); -ok(!Devel::CompleteStatement::complete_statement('if ($x) { $y')); +is(complete_statement('if ($x) { $y }'), 1); +is(complete_statement('if ($x) { $y'), ''); +is(complete_statement('if ($x) { $y '), ''); -ok(Devel::CompleteStatement::complete_statement('if ($x) { BEGIN { die } }')); -ok(!Devel::CompleteStatement::complete_statement('if ($x) { BEGIN { die }')); +is(complete_statement('if ($x) { $y } }'), undef); +is(complete_statement('if ($x) { BEGIN { die } }'), undef); +is(complete_statement('if ($x) { BEGIN { die }'), undef); done_testing; |