Skip to content
Snippets Groups Projects
Select Git revision
  • ce85368b21da983bc88400033e5d1d3b5b5e9ef2
  • master default protected
2 results

RedMiner-API.t

Blame
  • user avatar
    Anton Soldatov authored
    * API requests are now AUTOLOAD'ed
    * Makefile.PL updated
    * Started writing tests
    4fed452a
    History
    RedMiner-API.t 755 B
    use strict;
    use warnings;
    
    use Test::More tests => 1;
    
    BEGIN { use_ok('RedMiner::API') };
    
    my $host = '';
    my $key  = '';
    my $key_fname = $ENV{HOME} . '/.redminer/key';
    if (-e $key_fname) {
    	open my $FH_key, '<', $key_fname;
    	my $key_data  = <$FH_key>;
    	($host, $key) = split /\s*;\s*/, $key_data;
    	chomp $key_data;
    	close $FH_key;
    }
    
    my $redminer = RedMiner::API->new(
    	host => $host,
    	key  => $key,
    );
    
    my $response = $redminer->createProject({
    	identifier => 'test-ru',
    	name       => 'test.ru',
    });
    
    use JSON::XS qw/encode_json/;
    if ($response) {
    	say STDERR JSON::XS::encode_json($response);
    } else {
    	say STDERR JSON::XS::encode_json($redminer->errorDetails);
    }
    
    #SKIP: {
    #	skip 'Development tests skipped', 2 if !$ENV{REDMINER_API_DEVEL};
    #}
    
    exit;