summaryrefslogtreecommitdiffstats
path: root/t/basic.t
diff options
context:
space:
mode:
Diffstat (limited to 't/basic.t')
-rw-r--r--t/basic.t12
1 files changed, 7 insertions, 5 deletions
diff --git a/t/basic.t b/t/basic.t
index 825017e..21b3e28 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -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;