make sure extraclauses doesn't kill already extant overrides for from

[scpubgit/Q-Branch.git] / t / 09refkind.t

diff --git a/t/09refkind.t b/t/09refkind.t
index e51fcf0..8a69b8a 100644 (file)
--- a/t/09refkind.t
+++ b/t/09refkind.t
@@ -1,31 +1,28 @@
-#!/usr/bin/perl\r
-\r
-use strict;\r
-use warnings;\r
-use Test::More;\r
-use SQL::Abstract;\r
-\r
-plan tests => 13;\r
-\r
-my $obj = bless {}, "Foo::Bar";\r
-\r
-is(SQL::Abstract->_refkind(undef), 'UNDEF', 'UNDEF');\r
-\r
-is(SQL::Abstract->_refkind({}), 'HASHREF', 'HASHREF');\r
-is(SQL::Abstract->_refkind([]), 'ARRAYREF', 'ARRAYREF');\r
-\r
-is(SQL::Abstract->_refkind(\{}), 'HASHREFREF', 'HASHREFREF');\r
-is(SQL::Abstract->_refkind(\[]), 'ARRAYREFREF', 'ARRAYREFREF');\r
-\r
-is(SQL::Abstract->_refkind(\\{}), 'HASHREFREFREF', 'HASHREFREFREF');\r
-is(SQL::Abstract->_refkind(\\[]), 'ARRAYREFREFREF', 'ARRAYREFREFREF');\r
-\r
-is(SQL::Abstract->_refkind("foo"), 'SCALAR', 'SCALAR');\r
-is(SQL::Abstract->_refkind(\"foo"), 'SCALARREF', 'SCALARREF');\r
-is(SQL::Abstract->_refkind(\\"foo"), 'SCALARREFREF', 'SCALARREFREF');\r
-\r
-# objects are treated like scalars\r
-is(SQL::Abstract->_refkind($obj), 'SCALAR', 'SCALAR');\r
-is(SQL::Abstract->_refkind(\$obj), 'SCALARREF', 'SCALARREF');\r
-is(SQL::Abstract->_refkind(\\$obj), 'SCALARREFREF', 'SCALARREFREF');\r
-\r
+use strict;
+use warnings;
+use Test::More;
+use SQL::Abstract;
+
+my $obj = bless {}, "Foo::Bar";
+
+is(SQL::Abstract->_refkind(undef), 'UNDEF', 'UNDEF');
+
+is(SQL::Abstract->_refkind({}), 'HASHREF', 'HASHREF');
+is(SQL::Abstract->_refkind([]), 'ARRAYREF', 'ARRAYREF');
+
+is(SQL::Abstract->_refkind(\{}), 'HASHREFREF', 'HASHREFREF');
+is(SQL::Abstract->_refkind(\[]), 'ARRAYREFREF', 'ARRAYREFREF');
+
+is(SQL::Abstract->_refkind(\\{}), 'HASHREFREFREF', 'HASHREFREFREF');
+is(SQL::Abstract->_refkind(\\[]), 'ARRAYREFREFREF', 'ARRAYREFREFREF');
+
+is(SQL::Abstract->_refkind("foo"), 'SCALAR', 'SCALAR');
+is(SQL::Abstract->_refkind(\"foo"), 'SCALARREF', 'SCALARREF');
+is(SQL::Abstract->_refkind(\\"foo"), 'SCALARREFREF', 'SCALARREFREF');
+
+# objects are treated like scalars
+is(SQL::Abstract->_refkind($obj), 'SCALAR', 'SCALAR');
+is(SQL::Abstract->_refkind(\$obj), 'SCALARREF', 'SCALARREF');
+is(SQL::Abstract->_refkind(\\$obj), 'SCALARREFREF', 'SCALARREFREF');
+
+done_testing;