Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

25 lines (21 sloc) 0.784 kb
use v6;
use Test;
plan 12;
{
ok (1 + 2i) ~~ (1 + 2i), 'Complex ~~ Complex (+)';
ok !((1 + 2i) ~~ (1 + 1i)), 'Complex ~~ Complex (-)';
ok !((1 + 2i) ~~ (2 + 2i)), 'Complex ~~ Complex (-)';
ok !((1 + 2i) !~~ (1 + 2i)), 'Complex !~~ Complex (-)';
ok (1 + 2i) !~~ (1 + 1i), 'Complex !~~ Complex (+)';
ok (1 + 2i) !~~ (2 + 2i), 'Complex !~~ Complex (+)';
#?pugs todo
ok 3 ~~ (3 + 0i), 'Num ~~ Complex (+)';
ok !(2 ~~ (3 + 0i)), 'Num ~~ Complex (-)';
ok !(3 ~~ (3 + 1i)), 'Num ~~ Complex (-)';
#?pugs todo
ok !(3 !~~ (3 + 0i)), 'Num !~~ Complex (-)';
ok (2 !~~ (3 + 0i)), 'Num !~~ Complex (+)';
ok (3 !~~ (3 + 1i)), 'Num !~~ Complex (+)';
}
done;
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.