equality.t

use Test::Most tests => 10;

use strict;
use warnings;

use Statistics::NiceR;

my $r1 = Statistics::NiceR::Backend::EmbeddedR->eval(q{ c(3,2,1) });
my $r2 = Statistics::NiceR::Backend::EmbeddedR->eval(q{ c(3,2,1) });
my $r3 = Statistics::NiceR::Backend::EmbeddedR->eval(q{ c(3,3,1) });

ok $r1->op_equal_all($r2), "$r1 == $r2"; # TRUE

ok(! $r1->op_equal_all($r3), "$r1 != $r3"); # FALSE
ok(! $r2->op_equal_all($r3), "$r2 != $r3"); # FALSE

ok $r1->op_equal_all($r1), "$r1 == $r1"; # TRUE
ok $r2->op_equal_all($r2), "$r2 == $r2"; # TRUE
ok $r3->op_equal_all($r3), "$r3 == $r3"; # TRUE

## Identical

ok $r1->op_identical($r2), "$r1 identical $r2"; # TRUE

ok(! $r1->op_identical($r3), "$r1 identical $r3"); # FALSE

my $lx = Statistics::NiceR::Backend::EmbeddedR->eval(q{ list(1, 2, 3) });
my $ly = Statistics::NiceR::Backend::EmbeddedR->eval(q{ list(1, 2, 3) });

ok $lx->op_identical($ly), "$lx identical $ly"; # TRUE
ok $lx->op_identical($lx), "$lx identical $lx"; # TRUE

done_testing;