tests/init.pl

   1 #!/usr/bin/env perl
   2
   3 # Some tests for the repodir flag
   4
   5 use lib 'lib/perl';
   6 use Test::More 'no_plan';
   7 use Test::Darcs;
   8 use Shell::Command;
   9 use strict;
  10 use warnings;
  11
  12 my $test_name = 'Make sure that a simple init works.';
  13 init_tmp_repo();
  14
  15 ok((-d '_darcs'), '_darcs directory was created');
  16
  17 $test_name = 'Make sure that init in a pre-existing darcs directory fails.';
  18 like(darcs('init'), qr/not run this command in a repository/, $test_name);
  19
  20 $test_name = 'Make sure that init --repodir creates the directory if it does not exist';
  21
  22 cleanup 'temp1';
  23 darcs 'init --repodir=temp1';
  24 ok((-d 'temp1/_darcs'), '_darcs directory was created');
  25