Commit | Line | Data |
2006bd3f |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More 'no_plan'; |
d1ba091f |
7 | # use KiokuX::Model; |
2006bd3f |
8 | use File::Temp; |
9 | |
10 | use_ok('Text::Tradition::UserStore'); |
11 | |
12 | my $fh = File::Temp->new(); |
13 | my $file = $fh->filename; |
14 | $fh->close; |
15 | my $dsn = "dbi:SQLite:dbname=$file"; |
d1ba091f |
16 | # my $d = KiokuX::Model->new( 'dsn' => $dsn,'extra_args' => { 'create' => 1 } ); |
2006bd3f |
17 | |
d1ba091f |
18 | my $user_store = Text::Tradition::UserStore->new('dsn' => $dsn,'extra_args' => { 'create' => 1 } ); |
2006bd3f |
19 | |
d1ba091f |
20 | ## create user |
2006bd3f |
21 | my $new_user = $user_store->add_user('fred', 'bloggs'); |
22 | isa_ok($new_user, 'Text::Tradition::User'); |
23 | |
d1ba091f |
24 | ## find 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'); |
28 | |
29 | |
30 | |