# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl APO_ID.t'

#########################

BEGIN {
    eval { require Test; };
    use Test;    
    plan tests => 5;
}

#########################

use OBO::APO::APO_ID;
use strict;

my $my_id = OBO::APO::APO_ID->new();
$my_id->idspace("APO");
$my_id->subnamespace("P");
$my_id->localID("3000001");
ok($my_id->id_as_string() eq "APO:P3000001");

my $my_id2 = OBO::APO::APO_ID->new();
$my_id2->idspace("APO");
$my_id2->subnamespace("P");
$my_id2->localID("3000001");

ok($my_id->equals($my_id2));
ok($my_id->next_id()->id_as_string() eq "APO:P3000002");

ok($my_id->previous_id()->id_as_string() eq "APO:P3000000");

ok(1);