#!/usr/bin/perl
use strict;
use 5.010;
use FindBin '$Bin';
use lib "$Bin/../lib";
use DBI;
#use Scalar::Util qw/blessed/;
package Customer;
__PACKAGE__->table_name('customers');
__PACKAGE__->primary_key('id');
__PACKAGE__->columns(qw/id first_name second_name age email/);
__PACKAGE__->has_many('orders' => 'Order');
__PACKAGE__->has_many('achievements' => { CustomersAchievement => 'Achievement' });
package main;
eval { require DBD::SQLite } or plan skip_all => 'Need DBD::SQLite for testing';
ok(Customer->connect("dbi:SQLite:dbname=:memory:","",""), 'connect');
eval { require DBIx::Connector };
if ($@) {
# There is no DBIx::Connector, use DBI/ARS::Connect
}
else {
isa_ok $ActiveRecord::Simple::connector, 'DBIx::Connector';
}
my $hello = Customer->dbh->selectrow_array('SELECT "hello"');
is $hello, 'hello';
done_testing();