diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-10-22 02:08:07 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-10-22 02:08:07 -0400 |
| commit | 7e101392f826c6fb8a6980028ff94eab61ba8f55 (patch) | |
| tree | d72488d4ead82c8b57f3d1872dcddf8947cc2a6d /t | |
| parent | 46f89f90a5eb4b8f298d5511d4f92569bc79c87e (diff) | |
| download | devel-completestatement-7e101392f826c6fb8a6980028ff94eab61ba8f55.tar.gz devel-completestatement-7e101392f826c6fb8a6980028ff94eab61ba8f55.zip | |
more fiddling
Diffstat (limited to '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; |