The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More tests=> 6;
use File::Basename;
use lib File::Basename::dirname(__FILE__)."/../../../lib";
use lib File::Basename::dirname(__FILE__).'/../..';

use URT;

my $dbh = URT::DataSource::SomeSQLite->get_default_handle;

ok($dbh, 'Got a database handle');

ok($dbh->do('create table product
            ( product_id int NOT NULL PRIMARY KEY, product_name varchar, product_type varchar)'),
   'created product table');

ok($dbh->do("insert into product values (1,'race car', 'cool')"),
         'insert row into product for race car');
ok($dbh->do("insert into product values (2,'pencil','notcool')"),
         'insert row into product for pencil');

sub URT::Product::me {
    my $self = shift;
    return $self;
}

UR::Object::Type->define(
    class_name => 'URT::Product',
    id_by => 'product_id',
    has => [
        product_name  => { is => 'Text' },
        product_type => { is => 'Text' },
        #me_name       => { via => 'me', to => 'product_name' },
        me_name       => { via => '__self__', to => 'product_name' },
    ],
    data_source => 'URT::DataSource::SomeSQLite',
    table_name => 'product',
);



my @p = URT::Product->get(me_name => 'race car');
is(scalar(@p), 1, 'Got one product that is_cool');
is($p[0]->product_name, 'race car', 'name is correct');