use Test::More tests => 1;
# build the testing classes
package Frizzle;
use Storm::Object;
storm_table( 'Frizzle' );
has 'identifier' => ( is => 'rw', traits => [qw( PrimaryKey AutoIncrement )] );
has 'frazzle' => ( is => 'rw', isa => 'Frazzle' );
package Frazzle;
use Storm::Object;
storm_table( 'Frazzle' );
has 'identifier' => ( is => 'rw', traits => [qw( PrimaryKey AutoIncrement )] );
package main;
use Storm;
my $storm = Storm->new( source => ['DBI:SQLite:dbname=:memory:'] );
$storm->aeolus->install_class( 'Frizzle' );
$storm->aeolus->install_class( 'Frazzle' );
my $fraz = Frazzle->new;
$storm->insert( $fraz );
my $friz = Frizzle->new( frazzle => $fraz );
$storm->insert( $friz );
my $q = $storm->select( 'Frizzle' )->where( '.frazzle', '=', $fraz );
ok $q->results->next, 'selected object';