X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F09refkind.t;h=8a69b8a450ef0f1ef5303dfc4221a1fe97af822a;hb=116bc0b69bc3d55647a4e195cf212a6af38ba5b8;hp=1044231ef6be6be431be0312ad2b711528df0b85;hpb=4f30591bc0678f8a5d657e79c6985606b064cd1d;p=scpubgit%2FQ-Branch.git

diff --git a/t/09refkind.t b/t/09refkind.t
index 1044231..8a69b8a 100644
--- a/t/09refkind.t
+++ b/t/09refkind.t
@@ -1,12 +1,8 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 use Test::More;
 use SQL::Abstract;
 
-plan tests => 13;
-
 my $obj = bless {}, "Foo::Bar";
 
 is(SQL::Abstract->_refkind(undef), 'UNDEF', 'UNDEF');
@@ -29,3 +25,4 @@ is(SQL::Abstract->_refkind($obj), 'SCALAR', 'SCALAR');
 is(SQL::Abstract->_refkind(\$obj), 'SCALARREF', 'SCALARREF');
 is(SQL::Abstract->_refkind(\\$obj), 'SCALARREFREF', 'SCALARREFREF');
 
+done_testing;