view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

    $repo->run( commit => '-m "Second post!"' );
    $repo->run( 'push' );
    $repo->run( 'pull' );
    my @logs = $repo->run( log => '--pretty=oneline');
    is(scalar @logs, 2, 'Second commit successful');
    my @o_logs = $repo->run( log => '--pretty=oneline', 'origin/master');
    is(@o_logs, 2, 'Second commit push successful');
    }

# And on to testing the actual code...
sub update_foo {
    my $str = shift;
    open(my $foo, '>>', "$ld/foo");
    if ($str) {
        print $foo "$str\n";
        }
    else {
        print $foo "Another line\n";
        }
    close $foo;
    }