view release on metacpan or  search on metacpan

t/uuid-store.t  view on Meta::CPAN

use Directory::Scratch;

use Dir::Self;
use Data::GUID;
use Path::Class qw(file dir);

use File::BaseDir qw(data_files);

my @files = data_files('mime/globs');
unless (@files) {
  plan(skip_all => "Skipping tests, you don't seem to have a mime-info database. The shared-mime-info package is available from http://freedesktop.org/");
} else {
  plan(tests => 20);
}

sub main {
  my $scratch_dir = Directory::Scratch->new;
  my $test_file = $scratch_dir->touch('test1.txt', 'This is test file 1');
  my $root_dir = $scratch_dir->base->subdir('docroot');

  use_ok('Cantella::Store::UUID');