# -*- perl -*-

use strict;
use Set::IntSpan 1.13;

@Foo::Bar::ISA = qw(Set::IntSpan);

my $N = 1;
sub Not { print "not " }
sub OK  { print "ok ", $N++, "\n" }

print "1..20\n";

my $intspan = new Set::IntSpan '15-25';
my $foobar  = new Foo::Bar     '1-10, 20-30';

ref $intspan eq 'Set::IntSpan' or Not; OK;
ref $foobar  eq 'Foo::Bar'     or Not; OK;

for my $op (qw(union intersect diff xor))
{
    my $result;

    $result = $intspan->$op($intspan);
    ref $result eq 'Set::IntSpan' or Not; OK;

    $result = $intspan->$op($foobar);
    ref $result eq 'Set::IntSpan' or Not; OK;

    $result = $foobar->$op($intspan);
    ref $result eq 'Foo::Bar'     or Not; OK;

    $result = $foobar->$op($foobar);
    ref $result eq 'Foo::Bar'     or Not; OK;
}

for my $op (qw(complement))
{
    my $result;

    $result = $intspan->$op();
    ref $result eq 'Set::IntSpan' or Not; OK;

    $result = $foobar->$op();
    ref $result eq 'Foo::Bar'     or Not; OK;
}