tests/repoformat.pl

   1 #!/usr/bin/env perl
   2
   3 use lib 'lib/perl', '../tests/lib/perl';
   4 use Test::More 'no_plan';
   5 use Test::Darcs;
   6 use Shell::Command;
   7 use File::Slurp;
   8 use Cwd 'abs_path';
   9 use strict;
  10
  11 use File::Temp 'tempdir';
  12 chdir tempdir( CLEANUP => 1 );
  13
  14 mkpath 'first';
  15 chdir  'first';
  16 darcs  'init';
  17 open FORMAT, ">>_darcs/format";
  18 print FORMAT "gobbledygook\n";
  19 close FORMAT;
  20 chdir '../';
  21
  22 my $out = darcs "get first second";
  23 like($out,qr/Can't understand repository format/i, "got expected failure when using unknown repoformat in get");