CPAN::Groonga

Group
Extension

Matches 55

UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v0_v5.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
.com');
    isnt $u0, $u1,              'string equal 0';
    is   compare($u0, $u1), -1, 'compare string greater';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,   
 'string equal 1';
    isnt $t1, 0,    'string equal 2';
    is   $t0, -$t1, 'compare string equal';

    # string compare not supported.. yet?
    #is   $t1, 1,    'higher string version';
}

done_te
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v5_v6.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid6();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v7_v5.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
 => 'www.example.com');
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v6_v6.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid6();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v4_v7.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid7();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v4_v6.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid6();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v0_v6.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid6();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v1_v4.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid4();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v0_v1.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid1();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v1_v7.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid7();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v6_v1.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid1();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v7_v1.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid1();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v4_v4.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid4();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v7_v6.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid6();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v1_v6.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid6();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v7_v4.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid4();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v6_v4.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid4();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v0_v7.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid7();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v4_v1.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid1();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
UUID ( J/JR/JRM/UUID-0.34.tar.gz, JRM, 2024; MetaCPAN )
UUID/t/7compare/v7_v7.t ( view source; MetaCPAN ) 
, $u0), 0, 'compare binary equal 0';
    is   compare($u1, $u1), 0, 'compare binary equal 1';
    isnt $u0, $u1,             'binary equal';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, 
;
    my $u1 = uuid7();
    isnt $u0, $u1, 'string equal 0';

    my $t0 = compare($u0, $u1);
    my $t1 = compare($u1, $u0);
    isnt $t0, 0,    'string equal 1';
    isnt $t1, 0,    'string equal 2'
Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.