Yet Another CPAN Grep

Test-Arrow ( B/BA/BAYASHI/Test-Arrow-0.22.tar.gz, BAYASHI, 2023; MetaCPAN )

Test-Arrow/t/01_basic.t ( view source; MetaCPAN )

use Test::Arrow;

my $got = my $expected = "same";
my $isnt_expected = 'wrong';

Test::Arrow->pass('PASS');

my $arr = Test::Arrow->new(no_x => 1);

$arr->pass('PASS2');

# ok
$arr->ok(Test::Arrow::PA

)->is;

# isnt
$arr->isnt($got, $isnt_expected);
$arr->isnt($got, $isnt_expected, 'isnt1');
$arr->expected($isnt_expected)
    ->got($got)
    ->isnt;
$arr->name('isnt2')
    ->expected($isnt_expected

)
    ->got($got)
    ->isnt;

# is_num
$arr->is_num(123, 123);
$arr->is_num(123, 123, 'is_num1');
$arr->expected(123)
    ->got(123)
    ->is_num;
$arr->name('is_num2')
    ->expected(123)
    ->got(