tests/binary.pl

   1 #!/usr/bin/env perl
   2
   3 # Test that _darcs/prefs/binaries
   4
   5 use lib 'lib/perl';
   6 use Test::More 'no_plan';
   7 use Test::Darcs;
   8 use strict;
   9 use warnings;
  10 use Shell::Command;
  11 use File::Slurp;
  12
  13 {
  14     my $test = 'binary pattern matches against full path';
  15     init_tmp_repo();
  16     ok(mkpath('d'), "d created");
  17     touch 'd/t.t';
  18     darcs 'add d/t.t';
  19     darcs 'record -am "initial record"';
  20     append_file 'd/t.t','some change' ;
  21
  22     my $out =  echo_to_darcs 'record --interactive', 'n' ;
  23     unlike($out, qr/binary/, "pre-test: plain text files are not binary");
  24
  25     append_file '_darcs/prefs/binaries','d/t' ;
  26
  27     # we want to see if darcs reports the file as binary or not
  28     $out =  echo_to_darcs 'record --interactive', 'n' ;
  29     like($out, qr/binary/, $test);
  30 }