tests/rmdir.pl

   1 #!/usr/bin/env perl
   2
   3 use lib 'lib/perl';
   4 use Test::More 'no_plan';
   5 use Test::Darcs;
   6 use Shell::Command;
   7 use File::Slurp;
   8 use strict;
   9 use File::Temp 'tempdir';
  10 chdir tempdir( CLEANUP => 1 );
  11
  12 mkpath 'temp1';
  13 chdir 'temp1';
  14 darcs 'init';
  15 mkpath 'foo';
  16
  17 write_file "foo/bar","hello world\n";
  18 write_file "foo/baz","hello world\n";
  19
  20 mkpath 'foo/dir';
  21 darcs 'add foo foo/bar foo/dir foo/baz';
  22 darcs 'record -a -m add ';
  23 cleanup 'foo';
  24 like(darcs('show files --no-pending --no-dir'), qr(foo/baz));
  25 like(darcs('show files --no-pending --no-dir'), qr(foo/bar));
  26 like(darcs('show files --no-pending --no-fil'), qr(foo/dir));
  27 like(darcs('show files --no-pending --no-fil'), qr(foo));
  28 darcs 'record -a -m del ';
  29 unlike(darcs('show files --no-pending --no-dir'), qr(foo/baz));
  30 unlike(darcs('show files --no-pending --no-dir'), qr(foo/bar));
  31 unlike(darcs('show files --no-pending --no-fil'), qr(foo/dir));
  32 unlike(darcs('show files --no-pending --no-fil'), qr(foo));
  33 chdir '..';
  34
  35 cleanup 'temp1';
  36 cleanup 'temp2';