File: z_manifest.t

package info (click to toggle)
libfilter-perl 1.64-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 668 kB
  • sloc: perl: 963; makefile: 10
file content (16 lines) | stat: -rw-r--r-- 509 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
# -*- perl -*-
use Test::More;
if (!-d ".git" or $^O !~ /^(linux|.*bsd|darwin|solaris|sunos)$/) {
  plan skip_all => "requires a git checkout and a unix for git and diff";
}
plan skip_all => "on travis" if $ENV{TRAVIS};
plan tests => 1;

system("git ls-tree -r --name-only HEAD >MANIFEST.git");
if (-e "MANIFEST.git") {
  diag "MANIFEST.git created with git ls-tree";
  is(`diff -bu MANIFEST.git MANIFEST`, "", "MANIFEST.git compared to MANIFEST");
  unlink "MANIFEST.git";
} else {
  ok(1, "skip no git");
}