CPAN::Groonga

olor(255,255,255);
    $self->is($white,$white2);

    my $black = $img->color(0,0,0);
    $self->isnt($black,$white);
}

# ----------------------------------------------------------------------------

eColor
    my $black = $img->color('#000000');
    my $white = $img->color('#ffffff');
    $self->isnt($white,$black);
    my $white2 = $img->color('#ffffff');
    $self->is($white2,$white);

    # Da

angabe ohne #

    $black = $img->color('000000');
    $white = $img->color('ffffff');
    $self->isnt($white,$black);
    $white2 = $img->color('ffffff');
    $self->is($white2,$white);

    # ($r,$g

nichts an der Datei (auch nicht mtime)

    $expected = $p->mtime($file);
    sleep 1;
    $self->isnt($expected,time,'Zeit ist vergangen');
    $p->unindent($file);
    my $mtime = $p->mtime($file);

path1,$path2);

    $path1 = '~/test';
    $path2 = Quiq::Path->expandTilde('~/test');
    $self->isnt($path1,$path2);
}

# ----------------------------------------------------------------------------

);

    $self->isnt($newRow->[0],$row->[0]);
    $self->isDeeply($newRow->[0],$row->[0]);

    $self->is($newRow->[1],$row->[1]);

    $self->is($newRow->[2],$row->[2]);

    $self->isnt($newRow->[3],

   $self->is($val,$res1);
    $self->isnt($val,$res2);

    $val = Quiq::String->indent($str1,'~~',-indentBlankLines=>1);
    $self->is($val,$res2);
    $self->isnt($val,$res1);

    $val = Quiq::Stri

$self = shift;

    my $h1 = Quiq::Hash->new(a=>1,b=>2,c=>3);

    my $h2 = $h1->copy;
    $self->isnt($h1,$h2,'Referenzen verschieden');
    $self->isDeeply($h1,$h2,'Gleiche Schlüssel/Wert-Paare');

- - - - - - -

    $ti2 = $ti->copy;
    $msg = 'copy(): Referenzen sind verschieden';
    $self->isnt($ti2,$ti,$msg);

    $msg = 'copy(): Zeit-Objekte sind gleich';
    $self->is($ti->dump,$ti2->dum

   my $oh1 = Quiq::Hash::Ordered->new(a=>1,b=>2,c=>3,d=>4);
    my $oh2 = $oh1->copy;

    $self->isnt($oh1,$oh2);

    my $arr1 = $oh1->keys;
    my $arr2 = $oh2->keys;
    $self->isDeeply($arr1,$arr

>{'b'},2);
    $self->is($ref->{'c'},3);

    my $clone = Quiq::Storable->clone($ref);
    $self->isnt($clone,$ref);
    $self->isDeeply($clone,$ref);
}

# --------------------------------------------