Rose-DBx-Object-Metadata-Column-Photo/t/filepath.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'tests' => 2;
   7
   8 use lib 't/lib';
   9
  10 use NewDB;
  11 use User;
  12
  13 my $db = NewDB->new();
  14
  15 $db->init();
  16
  17 my $u = User->new( name => 'qqaa', photo => 't/data/linux.png' );
  18 $u->save();
  19
  20 ok( $u );
  21
  22 ok( -f 't/uploads/user/' . $u->photo );
  23
  24 $u->delete();