t/text_tradition_user.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'no_plan';
   7 use KiokuX::Model;
   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";
  16 my $d = KiokuX::Model->new( 'dsn' => $dsn,'extra_args' => { 'create' => 1 } );
  17
  18 my $user_store = Text::Tradition::UserStore->new(directory => $d);
  19
  20 my $new_user = $user_store->add_user('fred', 'bloggs');
  21 isa_ok($new_user, 'Text::Tradition::User');
  22