1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/env perl
use Test::More;
use Net::GitHub;
plan skip_all => 'Resource not accessible by integration' if $ENV{AUTOMATED_TESTING};
plan skip_all => 'Please export environment variable GITHUB_ACCESS_TOKEN' unless $ENV{GITHUB_ACCESS_TOKEN};
my $gh = Net::GitHub->new( access_token => $ENV{GITHUB_ACCESS_TOKEN});
diag( 'Using access_token = ' . ( $ENV{GITHUB_ACCESS_TOKEN} ? 1 : 0 ) );
ok( $gh );
my $data = $gh->user->show();
ok( $data );
ok( $data->{id} );
ok( $data->{login} );
ok( $data->{name} );
done_testing;
|
