From 7e101392f826c6fb8a6980028ff94eab61ba8f55 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 22 Oct 2013 02:08:07 -0400
Subject: more fiddling

---
 t/basic.t | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 't')

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;
-- 
cgit v1.2.3-54-g00ecf