view release on metacpan or  search on metacpan

xt/redmine-redmine-org.t  view on Meta::CPAN

#!/usr/bin/env perl
package Project;
use parent 'ActiveResource::Base';

package Issue;
use parent 'ActiveResource::Base';

package main;
use common::sense;

use Test::More;

Project->site("http://www.redmine.org");
Issue->site("http://www.redmine.org");

# http://www.redmine.org/projects/1
my $project = Project->find(1);
is $project->name, "Redmine";

# http://www.redmine.org/issues/1
my $issue = Issue->find(1);
is $issue->id, 1;
is $issue->project->id, 1;
is $issue->project->name, "Redmine";
is $issue->subject, "permissions if not admin";
is $issue->status->name, "Closed";

done_testing;