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

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'tests' => 3;
   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 ok( $u );
  22
  23 my $fh = IO::File->new();
  24 $fh->open( "< t/lib/User.pm" );
  25
  26 $u->file( { fh => $fh, filename => 'Module.pm' } );
  27 $u->save();
  28
  29 $u->delete();
  30
  31 ok( !-f 't/uploads/user/' . $u->id . '/file/Module.pm' );
  32
  33 ok( !-e 't/uploads' );
  34
  35 $fh->close();