-#!/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');
is(SQL::Abstract->_refkind(\$obj), 'SCALARREF', 'SCALARREF');
is(SQL::Abstract->_refkind(\\$obj), 'SCALARREFREF', 'SCALARREFREF');
+done_testing;