1N/A# tests 51 onwards aren't all warnings clean. (intentionally) 1N/Atest ('oct', '0b101_01', 2_1);
1N/Atest ('oct', '0b1010_1', 0x1_5);
1N/Atest ('oct', 'b10_101', 025);
1N/Atest ('oct', 'b101_01', 21);
1N/Atest ('oct', 'b1010_1', 0x15);
1N/Atest ('oct', '012_34', 01234);
1N/Atest ('oct', '0123_4', 668);
1N/Atest ('oct', '01234', 0x29c);
1N/Atest ('oct', '0x123_4', 4660);
1N/Atest ('oct', '0x1234', 0x12_34);
1N/Atest ('oct', 'x123_4', 4660);
1N/Atest ('hex', '012_34', 011064);
1N/Atest ('hex', '0123_4', 4660);
1N/Atest ('hex', '01234_', 0x1234);
1N/Atest ('hex', '0x1_234', 011064);
1N/Atest ('hex', '0x12_34', 4660);
1N/Atest ('hex', '0x1234_', 0x1234);
1N/Atest ('hex', 'x12_34', 011064);
1N/Atest ('hex', 'x123_4', 4660);
1N/Atest ('hex', 'x1234_', 0x1234);
1N/Atest ('oct', '0b1111_1111_1111_1111_1111_1111_1111_1111', 4294967295);
1N/Atest ('oct', '037_777_777_777', 4294967295);
1N/Atest ('oct', '0xffff_ffff', 4294967295);
1N/Atest ('hex', '0xff_ff_ff_ff', 4294967295);
1N/Aprint $_
eq "\0".
"_".
"7".
"_".
"7" ?
"ok" :
"not ok",
" 38\n";
1N/Aprint $_
eq "\0" ?
"ok" :
"not ok",
" 39\n";
1N/A # question mark is 111 in 1047, 037, && POSIX-BC 1N/A print "\157_" eq "?_" ? "ok" : "not ok", " 40\n"; 1N/A print "\077_" eq "?_" ? "ok" : "not ok", " 40\n"; 1N/Aprint $_
eq "\0".
"_".
"7".
"_".
"7" ?
"ok" :
"not ok",
" 42\n";
1N/Aprint $_
eq "\0" ?
"ok" :
"not ok",
" 43\n";
1N/A # / is 97 in 1047, 037, && POSIX-BC 1N/A print "\x61_" eq "/_" ? "ok" : "not ok", " 44\n"; 1N/A print "\x2F_" eq "/_" ? "ok" : "not ok", " 44\n"; 1N/Atest ('hex', ( '0'x10).'01234', 0x1234);
1N/Atest ('hex', ( '0'x100).'01234', 0x1234);
1N/Atest ('hex', ('0'x1000).'01234', 0x1234);
1N/A# Things that perl 5.6.1 and 5.7.2 did wrong (plus some they got right) 1N/Atest ('oct', "b00b0101", 0);
1N/Atest ('oct', "bb0101", 0);
1N/Atest ('oct', "0bb0101", 0);
1N/Atest ('oct', "0x0x3A", 0);
1N/Atest ('oct', "0xx3A", 0);
1N/Atest ('oct', "x0x3A", 0);
1N/Atest ('oct', "xx3A", 0);
1N/Atest ('oct', "0x3A", 0x3A);
1N/Atest ('oct', "x3A", 0x3A);
1N/Atest ('oct', "0x0x4", 0);
1N/Atest ('oct', "0xx4", 0);
1N/Atest ('oct', "x0x4", 0);
1N/Atest ('oct', "xx4", 0);
1N/Atest ('oct', "0x4", 4);
1N/Atest ('oct', "x4", 4);
1N/Atest ('hex', "0x3A", 0x3A);
1N/Atest ('hex', "x3A", 0x3A);
1N/Atest ('hex', "0x4", 4);
1N/Atest ('hex', "x4", 4);
1N/Aeval '$a = oct "10\x{100}"';
1N/Aeval '$a = hex "ab\x{100}"';