File: protocol_gpp.t

package info (click to toggle)
libgit-pure-perl 0.48-2
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 348 kB
  • sloc: perl: 3,087; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 454 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!perl
use strict;
use warnings;
use Git::PurePerl;
use IO::File;
use Path::Class;
use Test::More;

my $directory = 'test-protocol';
dir($directory)->rmtree;

my $git = Git::PurePerl->init( directory => $directory );
isa_ok( $git, 'Git::PurePerl', 'can init' );

# Disable test due needed network connection
#$git->clone( 'github.com', '/acme/git-pureperl.git' );

#ok( $git->all_sha1s->all >= 604 );
#ok( $git->all_objects->all >= 604 );

done_testing;