File: z_manifest.t

package info (click to toggle)
libcrypt-openssl-random-perl 0.17-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 188 kB
  • sloc: perl: 20; makefile: 3
file content (15 lines) | stat: -rw-r--r-- 463 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
# -*- 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 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");
}