The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<!DOCTYPE html
     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::Cover Version 1.26
Devel::Cover is copyright 2001-2012, Paul Johnson (paul@pjcj.net)
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
    <meta http-equiv="Content-Language" content="en-us"></meta>
    <link rel="stylesheet" type="text/css" href="cover.css"></link>
    <link rel="stylesheet" type="text/css" href="cover.css"></link>
    <title>File Coverage: t/bin-yukki-git-init.t</title>
</head>
<body>
<h1>File Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">t/bin-yukki-git-init.t</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c2">97.5%</td></tr>
</table>
<div><br/></div>
<table>
<tr><th>line</th><th>stmt</th><th>bran</th><th>cond</th><th>sub</th><th>pod</th><th>time</th><th>code</th></tr>
<tr><td class="h">1</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#!/usr/bin/env perl</td></tr>
<tr><td class="h">2</td><td><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="t-bin-yukki-git-init-t--subroutine.html#L2">1</a></div></td><td></td><td><div>1816</div><div>3</div></td><td class="s">use 5.12.1;</td></tr>
<tr><td class="h">3</td><td colspan="7"></td></tr><tr><td class="h">4</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="t-bin-yukki-git-init-t--subroutine.html#L4">1</a></div></td><td></td><td><div>378</div><div>4959</div><div>36</div></td><td class="s">use Path::Tiny qw( tempdir );</td></tr>
<tr><td class="h">5</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="t-bin-yukki-git-init-t--subroutine.html#L5">1</a></div></td><td></td><td><div>3051</div><div>23887</div><div>3</div></td><td class="s">use Git::Repository;</td></tr>
<tr><td class="h">6</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="t-bin-yukki-git-init-t--subroutine.html#L6">1</a></div></td><td></td><td><div>182</div><div>64696</div><div>4</div></td><td class="s">use Test2::V0;</td></tr>
<tr><td class="h">7</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="t-bin-yukki-git-init-t--subroutine.html#L7">1</a></div></td><td></td><td><div>1452</div><div>10112</div><div>4</div></td><td class="s">use Test::Script;</td></tr>
<tr><td class="h">8</td><td colspan="7"></td></tr><tr><td class="h">9</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>47337</div></td><td class="s">plan 12;</td></tr>
<tr><td class="h">10</td><td colspan="7"></td></tr><tr><td class="h">11</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>2410</div></td><td class="s">script_compiles(&#39;bin/yukki-setup&#39;, &#39;yukki-setup compiles&#39;);</td></tr>
<tr><td class="h">12</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>335271</div></td><td class="s">script_compiles(&#39;bin/yukki-git-init&#39;, &#39;yukki-git-init compiles&#39;);</td></tr>
<tr><td class="h">13</td><td colspan="7"></td></tr><tr><td class="h">14</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>250491</div></td><td class="s">my $tempdir = tempdir;</td></tr>
<tr><td class="h">15</td><td><div class="c3">1</div></td><td><div class="c0" title="-/F"><a href="t-bin-yukki-git-init-t--branch.html#L15">50</a></div></td><td></td><td></td><td></td><td><div>692</div></td><td class="s">diag(&quot;TEMPDIR = $tempdir&quot;) if $ENV{YUKKI_TEST_KEEP_FILES};</td></tr>
<tr><td class="h">16</td><td colspan="7"></td></tr><tr><td class="h">17</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>7</div></td><td class="s">script_runs([ &#39;bin/yukki-setup&#39;, &quot;$tempdir/yukki-test&quot;, &#39;skel&#39; ],</td></tr>
<tr><td class="h">18</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&#39;yukki-setup runs&#39;);</td></tr>
<tr><td class="h">19</td><td colspan="7"></td></tr><tr><td class="h">20</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>403029</div></td><td class="s">ok(-d &quot;$tempdir/yukki-test&quot;, &#39;created the test directory&#39;);</td></tr>
<tr><td class="h">21</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>196</div></td><td class="s">ok(!-f &quot;$tempdir/yukki-test/var/db/users/foo&quot;,</td></tr>
<tr><td class="h">22</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&#39;the user we are about to create does not exist yet&#39;);</td></tr>
<tr><td class="h">23</td><td colspan="7"></td></tr><tr><td class="h">24</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>283</div></td><td class="s">$ENV{YUKKI_CONFIG} = &quot;$tempdir/yukki-test/etc/yukki.conf&quot;;</td></tr>
<tr><td class="h">25</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>25</div></td><td class="s">script_runs([ &#39;bin/yukki-git-init&#39;, &#39;main&#39; ], &#39;yukki-git-init main ran&#39;);</td></tr>
<tr><td class="h">26</td><td colspan="7"></td></tr><tr><td class="h">27</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>573041</div></td><td class="s">ok(-d &quot;$tempdir/yukki-test/repositories&quot;, &#39;created the repositories directory&#39;);</td></tr>
<tr><td class="h">28</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>197</div></td><td class="s">ok(-d &quot;$tempdir/yukki-test/repositories/main.git&quot;, &#39;created the main.git repository&#39;);</td></tr>
<tr><td class="h">29</td><td colspan="7"></td></tr><tr><td class="h">30</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>218</div></td><td class="s">my $git = Git::Repository-&gt;new( git_dir =&gt; &quot;$tempdir/yukki-test/repositories/main.git&quot; );</td></tr>
<tr><td class="h">31</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>41944</div></td><td class="s">my $list = $git-&gt;run(&#39;ls-tree&#39;, &#39;refs/heads/master&#39;);</td></tr>
<tr><td class="h">32</td><td colspan="7"></td></tr><tr><td class="h">33</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>9932</div></td><td class="s">like($list, qr/\bhome\.yukki\b/, &#39;created home.yukki&#39;);</td></tr>
<tr><td class="h">34</td><td colspan="7"></td></tr><tr><td class="h">35</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>488</div></td><td class="s">my $first_comment = $git-&gt;run(&#39;show&#39;, &#39;refs/heads/master&#39;);</td></tr>
<tr><td class="h">36</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>16482</div></td><td class="s">like($first_comment, qr/Initializing/, &#39;expected comment&#39;);</td></tr>
<tr><td class="h">37</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>460</div></td><td class="s">like($first_comment, qr{diff --git a/home.yukki b/home.yukki}, &#39;contains the expected file&#39;);</td></tr>
<tr><td class="h">38</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>262</div></td><td class="s">like($first_comment, qr{\+\# Main}, &#39;the file has expected heading&#39;);</td></tr>
</table>
</body>
</html>