view release on metacpan or  search on metacpan

t/00basic.t  view on Meta::CPAN

        $iz->accept_context;
	$err = 0;
    };

    is($err, 1);
}

# accept_all works
{
    my $va = $iz->create_int(0, 10);

    my $a = $iz->save_context;
    $va->Le(5);
    my $b = $iz->save_context;
    $va->Le(3);

    $iz->accept_all; # Le(3)
    is($va->max, 3);

    my $err = 1;
    eval {
        $iz->accept_context;
	$err = 0;
    };

    is($err, 1);
}

# version
{
    my $version = $iz->get_version;
    if (defined($version)) {
	ok($version =~ /^[0-9]+\.[0-9]+\.[0-9]+$/);
    }
    else {
	ok(1);
    }
}

# duplicated instance
{
    my $err = 1;

    eval {
	my $iz2 = Algorithm::CP::IZ->new;
	$err = 0;
    };

    is($err, 1);
}

# name
{
    my $v1 = $iz->create_int(0, 2);
    $v1->name("abc");
    is($v1->name, "abc");
    $v1->name("日本語");
    is($v1->name, "日本語");
}

# destroy and invalidated
{
    my $v2 = $iz->create_int(0, 2);
    my $v3 = $iz->create_int(0, 3);
    $v3 = undef;
    my $v4 = $iz->create_int(0, 4);
    $v4 = undef;
    my $v5 = $iz->create_int(0, 5);
    
    $iz = undef;
    is(ref $v1, "Algorithm::CP::IZ::Int::InvalidInt");
    is(ref $v2, "Algorithm::CP::IZ::Int::InvalidInt");
    ok(!defined($v3));
    ok(!defined($v4));
    is(ref $v5, "Algorithm::CP::IZ::Int::InvalidInt");
}