X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=t%2Fapp-codeowners.t;h=af426e69d0f5b43821a1842cc6e2b697dd23f1e0;hb=391901ee321dbab7361e1d63c39215d2deb0f551;hp=28309d3861ca0b802cf938133128494302850377;hpb=3c7ed3d762399efb2d01121392f7115104095788;p=chaz%2Fgit-codeowners

diff --git a/t/app-codeowners.t b/t/app-codeowners.t
index 28309d3..af426e6 100644
--- a/t/app-codeowners.t
+++ b/t/app-codeowners.t
@@ -14,8 +14,8 @@ use Test::More;
 
 my $can_git = _can_git();
 
-# Set progname so that pod2usage knows how to find the script after we chdir
-$0 = path($Bin)->parent->child('bin/git-codeowners')->absolute;
+# Set progname so that pod2usage knows how to find the script after we chdir.
+$0 = path($Bin)->parent->child('bin/git-codeowners')->absolute->stringify;
 
 $ENV{NO_COLOR} = 1;
 
@@ -72,6 +72,25 @@ END
     };
 };
 
+subtest 'create' => sub {
+    plan skip_all => 'Cannot run git' if !$can_git;
+
+    my $repodir = _setup_git_repo();
+    my $chdir   = pushd($repodir);
+
+    my $codeowners_filepath = path('CODEOWNERS');
+    $codeowners_filepath->remove;
+
+    my ($stdout, $stderr, $exit) = run { App::Codeowners->main(qw{create}) };
+    is($exit, 0, 'exited without error');
+    is($stderr, "Wrote CODEOWNERS\n", 'reportedly wrote a CODEOWNERS file');
+
+    ok($codeowners_filepath->is_file, 'did write CODEOWNERS file');
+
+    my $contents = $codeowners_filepath->slurp_utf8;
+    like($contents, qr/^# This file shows mappings/, 'correct contents of file') or diag $contents;
+};
+
 done_testing;
 exit;