1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/usr/bin/env perl -w use strict; use File::Copy; use Test::More; system('git init t-git-repo'); ok !$?; copy('t/data/git-sugdiff.rs', 't-git-repo') or die $!; chdir 't-git-repo' or die $!; system('git add git-sugdiff.rs'); ok !$?; system('git commit -m "Commit"'); ok !$?; done_testing;