CPAN::Groonga

 = Eve::Uri->new(string => 'http://www.domain.com/path');
    my $uri_clone = $uri->clone();

    isnt($uri, $uri_clone);
    is($uri_clone->string, 'http://www.domain.com/path');
}

sub test_path_con

tring}->{'hash'});
        is($resulting_uri->string, $data_hash->{$string}->{'result'});
        isnt($uri, $resulting_uri);
    }
}

sub test_substitute_not_enough : Test(2) {
    my $uri = Eve::Uri

ng');

    isnt((stat($session_file_name))[9], $old_mtime);

    $old_mtime = (stat($session_file_name))[9];

    sleep(1);
    $self->{'session'}->clear_parameter(name => 'some');

    isnt((stat($se

erse(@{$_}))
            } @{$self->{'data'}})
        . '))');
}

sub test_clone : Test {
    my $self = shift;

    my $new_geo = $self->{'geo'}->clone();

    isnt($self->{'geo'}, $new_geo);
}

1;

Test::Dummy->new();
    my $another_dummy = $dummy->new();

    isa_ok($dummy, 'Eve::Class');
    isnt($another_dummy, $dummy);
}

sub test_init : Test(2) {
    for my $v (1..2) {
        my $dummy = 

e = 10.001;
    $geo->longitude = 90.999;

    my $new_geo = $geo->clone();

    is($geo->latitude, $new_geo->latitude);
    is($geo->longitude, $new_geo->longitude);

    isnt($geo, $new_geo);
}

1;

> $name, code => $code),
            $registry->lazy_load(name => $name, code => $code));
        isnt(
            $registry->lazy_load(name => $name, code => $code),
            $registry->lazy_load