Rose-DB-Object-Metadata-Column-Filename/t/recursive-cleanup.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'tests' => 9;
   7 use IO::File;
   8
   9 use lib 't/lib';
  10
  11 use NewDB;
  12 use User;
  13
  14 my $db = NewDB->new();
  15
  16 $db->init();
  17
  18 my $u = User->new( name => 'qqqq' );
  19 $u->save();
  20
  21 my $u1 = User->new( name => 'qqqq1' );
  22 $u1->save();
  23
  24 ok( $u );
  25 ok( $u1 );
  26
  27 my $fh = IO::File->new();
  28 $fh->open("< t/lib/User.pm");
  29
  30 $u->file({ fh => $fh, filename => 'Module.pm' });
  31 $u->save();
  32
  33 is( $u->file, 'Module.pm' );
  34 ok( -f 't/uploads/user/' . $u->id . '/file/Module.pm' );
  35
  36 $u1->file({ fh => $fh, filename => 'Module.pm' });
  37 $u1->save();
  38
  39 is( $u1->file, 'Module.pm' );
  40 ok( -f 't/uploads/user/' . $u1->id . '/file/Module.pm' );
  41
  42 $u->file(undef);
  43 $u->save;
  44
  45 ok( !-e 't/uploads/user/' . $u->id );
  46 ok( -e 't/uploads/user/' . $u1->id );
  47
  48 $u1->file(undef);
  49 $u1->save;
  50
  51 ok( !-e 't/uploads' );
  52
  53 $u->delete();
  54 $u1->delete();
  55
  56 $fh->close();