#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Net::GitHub::V4;

plan skip_all => 'Please export environment variable GITHUB_ACCESS_TOKEN' unless $ENV{GITHUB_ACCESS_TOKEN};

my $gh = Net::GitHub::V4->new(
    access_token => $ENV{GITHUB_ACCESS_TOKEN}
);
my $data = $gh->query(<<IQL);
query {
  repository(owner: "octocat", name: "Hello-World") {
    pullRequests(last: 10) {
      edges {
        node {
          number
          mergeable
        }
      }
    }
  }
}
IQL

use Data::Dumper;
diag Dumper(\$data);

ok($data->{data}->{repository}->{pullRequests});

# $data = $gh->query(<<IQL);
# mutation AddCommentToIssue {
#   addComment(input:{subjectId:"MDU6SXNzdWUyMzA0ODQ2Mjg=", body:"A shiny new comment! :tada:"}) {
#     commentEdge {
#       cursor
#     }
#     subject {
#       id
#     }
#     timelineEdge {
#       cursor
#     }
#   }
# }
# IQL
# diag Dumper(\$data);

$data = $gh->query(<<'IQL', { number_of_repos => 3 });
query($number_of_repos:Int!) {
  viewer {
    name
     repositories(last: $number_of_repos) {
       nodes {
         name
       }
     }
   }
}
IQL
diag Dumper(\$data);

done_testing;