6 use Test::More 'no_plan';
10 use_ok('Text::Tradition::UserStore');
12 my $fh = File::Temp->new();
13 my $file = $fh->filename;
15 my $dsn = "dbi:SQLite:dbname=$file";
16 # my $d = KiokuX::Model->new( 'dsn' => $dsn,'extra_args' => { 'create' => 1 } );
18 my $user_store = Text::Tradition::UserStore->new('dsn' => $dsn,'extra_args' => { 'create' => 1 } );
21 my $new_user = $user_store->add_user('fred', 'bloggs');
22 isa_ok($new_user, 'Text::Tradition::User');
25 my $find_user = $user_store->find_user({ username => 'fred'});
26 isa_ok($find_user, 'Text::Tradition::User');
27 ok($find_user->check_password('bloggs'), 'Stored & retrieved with correct password');