Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
70 lines (64 sloc) 2.63 KB
 use v6; use Test; plan 54; # smartlink to top and bottom of long table # L # L is ([**] ()), 1, "[**] () eq 1 (arguably nonsensical)"; is ([*] ()), 1, "[*] () eq 1"; ok( !([/] ()).defined, "[/] () should fail"); ok( !([%] ()).defined, "[%] () should fail"); ok( !([x] ()).defined, "[x] () should fail"); ok( !(try [xx] ()).defined, "[xx] () should fail"); is ([+&] ()), +^0, "[+&] () eq +^0"; ok( !([+<] ()).defined, "[+<] () should fail"); ok( !([+>] ()).defined, "[+>] () should fail"); ok( !([~&] ()).defined, "[~&] () should fail"); #?rakudo skip "~< NYI RT #124531" ok( !([~<] ()).defined, "[~<] () should fail"); #?rakudo skip "~> NYI RT #124531" ok( !([~>] ()).defined, "[~>] () should fail"); is ([+] ()), 0, "[+] () eq 0"; is ([-] ()), 0, "[-] () eq 0"; is ([~] ()), '', "[~] () eq ''"; is ([+|] ()), 0, "[+|] () eq 0"; is ([+^] ()), 0, "[+^] () eq 0"; is ([~|] ()), '', "[~|] () eq ''"; is ([~^] ()), '', "[~^] () eq ''"; is ([&] ()).perl, all().perl, "[&] () eq all()"; is ([|] ()).perl, any().perl, "[|] () eq any()"; is ([^] ()).perl, one().perl, "[^] () eq one()"; is ([!==] ()), Bool::True, "[!==] () eq True"; is ([==] ()), Bool::True, "[==] () eq True"; is ([<] ()), Bool::True, "[<] () eq True"; is ([<=] ()), Bool::True, "[<=] () eq True"; is ([>] ()), Bool::True, "[>] () eq True"; is ([>=] ()), Bool::True, "[>=] () eq True"; is ([before] ()), Bool::True, "[before] () eq True"; is ([after] ()), Bool::True, "[after] () eq True"; is ([~~] ()), Bool::True, "[~~] () eq True"; is ([!~~] ()), Bool::True, "[!~~] () eq True"; is ([eq] ()), Bool::True, "[eq] () eq True)"; is ([ne] ()), Bool::True, "[ne] () eq True)"; is ([!eq] ()), Bool::True, "[!eq] () eq True"; is ([lt] ()), Bool::True, "[lt] () eq True"; is ([le] ()), Bool::True, "[le] () eq True"; is ([gt] ()), Bool::True, "[gt] () eq True"; is ([ge] ()), Bool::True, "[ge] () eq True"; is ([=:=] ()), Bool::True, "[=:=] () eq True"; is ([!=:=] ()), Bool::True, "[!=:=] () eq True"; is ([===] ()), Bool::True, "[===] () eq True"; is ([!===] ()), Bool::True, "[!===] () eq True"; is ([eqv] ()), Bool::True, "[eqv] () eq True"; is ([!eqv] ()), Bool::True, "[!eqv] () eq True"; is ([&&] ()), Bool::True, "[&&] () eq True"; is ([||] ()), Bool::False, "[||] () eq False"; # RT #65164 implement [^^] is ([^^] ()), Bool::False, "[^^] () eq False"; is ([//] ()), Any, "[//] () is Any"; is ([,] ()), (), "[,] () eq ()"; is ([Z] ()), [], "[Z] () eq []"; is ([==] 3), Bool::True, 'unary [==]'; is ([!=] 3), Bool::True, 'unary [!=]'; is ([!==] 3), Bool::True, 'unary [!==]'; # vim: ft=perl6
You can’t perform that action at this time.