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

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

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

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

use OBO::XO::OBO_ID;
use strict;

my $my_id = OBO::XO::OBO_ID->new();
$my_id->idspace("XO");
$my_id->localID("3000001");
ok($my_id->id_as_string() eq "XO:3000001");

my $my_id2 = OBO::XO::OBO_ID->new();
$my_id2->idspace("XO");
$my_id2->localID("3000001");

ok($my_id->equals($my_id2));
ok($my_id->next_id()->id_as_string() eq "XO:3000002");
ok($my_id->previous_id()->id_as_string() eq "XO:3000000");

my $my_id3 = OBO::XO::OBO_ID->new();
$my_id3->idspace("TO");
$my_id3->localID("0000479");
ok($my_id3->next_id()->id_as_string() eq "TO:0000480");
ok($my_id3->previous_id()->id_as_string() eq "TO:0000478");

my $my_id4 = OBO::XO::OBO_ID->new();
$my_id4->id_as_string("TO:0000479");
ok($my_id4->equals($my_id3));

ok(1);