1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!./perl
print "1..36\n";
print +(oct('0b10101') == 0b10101) ? "ok" : "not ok", " 1\n";
print +(oct('0b10101') == 025) ? "ok" : "not ok", " 2\n";
print +(oct('0b10101') == 21) ? "ok" : "not ok", " 3\n";
print +(oct('0b10101') == 0x15) ? "ok" : "not ok", " 4\n";
print +(oct('b10101') == 0b10101) ? "ok" : "not ok", " 5\n";
print +(oct('b10101') == 025) ? "ok" : "not ok", " 6\n";
print +(oct('b10101') == 21) ? "ok" : "not ok", " 7\n";
print +(oct('b10101') == 0x15) ? "ok" : "not ok", " 8\n";
print +(oct('01234') == 0b1010011100) ? "ok" : "not ok", " 9\n";
print +(oct('01234') == 01234) ? "ok" : "not ok", " 10\n";
print +(oct('01234') == 668) ? "ok" : "not ok", " 11\n";
print +(oct('01234') == 0x29c) ? "ok" : "not ok", " 12\n";
print +(oct('0x1234') == 0b1001000110100) ? "ok" : "not ok", " 13\n";
print +(oct('0x1234') == 011064) ? "ok" : "not ok", " 14\n";
print +(oct('0x1234') == 4660) ? "ok" : "not ok", " 15\n";
print +(oct('0x1234') == 0x1234) ? "ok" : "not ok", " 16\n";
print +(oct('x1234') == 0b1001000110100) ? "ok" : "not ok", " 17\n";
print +(oct('x1234') == 011064) ? "ok" : "not ok", " 18\n";
print +(oct('x1234') == 4660) ? "ok" : "not ok", " 19\n";
print +(oct('x1234') == 0x1234) ? "ok" : "not ok", " 20\n";
print +(hex('01234') == 0b1001000110100) ? "ok" : "not ok", " 21\n";
print +(hex('01234') == 011064) ? "ok" : "not ok", " 22\n";
print +(hex('01234') == 4660) ? "ok" : "not ok", " 23\n";
print +(hex('01234') == 0x1234) ? "ok" : "not ok", " 24\n";
print +(hex('0x1234') == 0b1001000110100) ? "ok" : "not ok", " 25\n";
print +(hex('0x1234') == 011064) ? "ok" : "not ok", " 26\n";
print +(hex('0x1234') == 4660) ? "ok" : "not ok", " 27\n";
print +(hex('0x1234') == 0x1234) ? "ok" : "not ok", " 28\n";
print +(hex('x1234') == 0b1001000110100) ? "ok" : "not ok", " 29\n";
print +(hex('x1234') == 011064) ? "ok" : "not ok", " 30\n";
print +(hex('x1234') == 4660) ? "ok" : "not ok", " 31\n";
print +(hex('x1234') == 0x1234) ? "ok" : "not ok", " 32\n";
print +(oct('0b11111111111111111111111111111111') == 4294967295) ?
"ok" : "not ok", " 33\n";
print +(oct('037777777777') == 4294967295) ?
"ok" : "not ok", " 34\n";
print +(oct('0xffffffff') == 4294967295) ?
"ok" : "not ok", " 35\n";
print +(hex('0xffffffff') == 4294967295) ?
"ok" : "not ok", " 36\n";
|
