#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Net::GitHub::V3;
plan skip_all => 'Please export environment variable GITHUB_USER/GITHUB_PASS'
unless $ENV{GITHUB_USER} and $ENV{GITHUB_PASS};
my $gh = Net::GitHub::V3->new( login => $ENV{GITHUB_USER}, pass => $ENV{GITHUB_PASS});
my $git_data = $gh->git_data;
diag( 'Using user = ' . $ENV{GITHUB_USER} );
ok( $gh );
ok( $git_data );
$git_data->set_default_user_repo('fayland', 'perl-net-github');
# The Github blobs API doesn't appear to be working.
#my $blob = $git_data->blob('5a1faac3ad54da26be60970ddbbdfbf6b08fdc57');
#ok($blob);
my $commit = $git_data->commit('5a1faac3ad54da26be60970ddbbdfbf6b08fdc57');
is $commit->{sha}, '5a1faac3ad54da26be60970ddbbdfbf6b08fdc57';
is $commit->{message}, "init git data";
done_testing();