| Commit | Line | Data |
|---|
| 8d063cd8 |
1 | #!./perl |
| 2 | |
| 805ca49f |
3 | print "1..28\n"; |
| 252aa082 |
4 | |
| 5 | print +(oct('0b10101') == 0b10101) ? "ok" : "not ok", " 1\n"; |
| 6 | print +(oct('0b10101') == 025) ? "ok" : "not ok", " 2\n"; |
| 7 | print +(oct('0b10101') == 21) ? "ok" : "not ok", " 3\n"; |
| 8 | print +(oct('0b10101') == 0x15) ? "ok" : "not ok", " 4\n"; |
| 9 | |
| 10 | print +(oct('b10101') == 0b10101) ? "ok" : "not ok", " 5\n"; |
| 11 | print +(oct('b10101') == 025) ? "ok" : "not ok", " 6\n"; |
| 12 | print +(oct('b10101') == 21) ? "ok" : "not ok", " 7\n"; |
| 13 | print +(oct('b10101') == 0x15) ? "ok" : "not ok", " 8\n"; |
| 14 | |
| 15 | print +(oct('01234') == 0b1010011100) ? "ok" : "not ok", " 9\n"; |
| 16 | print +(oct('01234') == 01234) ? "ok" : "not ok", " 10\n"; |
| 17 | print +(oct('01234') == 668) ? "ok" : "not ok", " 11\n"; |
| 18 | print +(oct('01234') == 0x29c) ? "ok" : "not ok", " 12\n"; |
| 19 | |
| 20 | print +(oct('0x1234') == 0b1001000110100) ? "ok" : "not ok", " 13\n"; |
| 21 | print +(oct('0x1234') == 011064) ? "ok" : "not ok", " 14\n"; |
| 22 | print +(oct('0x1234') == 4660) ? "ok" : "not ok", " 15\n"; |
| 23 | print +(oct('0x1234') == 0x1234) ? "ok" : "not ok", " 16\n"; |
| 24 | |
| 25 | print +(hex('01234') == 0b1001000110100) ? "ok" : "not ok", " 17\n"; |
| 26 | print +(hex('01234') == 011064) ? "ok" : "not ok", " 18\n"; |
| 27 | print +(hex('01234') == 4660) ? "ok" : "not ok", " 19\n"; |
| 28 | print +(hex('01234') == 0x1234) ? "ok" : "not ok", " 20\n"; |
| 29 | |
| 30 | print +(hex('0x1234') == 0b1001000110100) ? "ok" : "not ok", " 21\n"; |
| 31 | print +(hex('0x1234') == 011064) ? "ok" : "not ok", " 22\n"; |
| 32 | print +(hex('0x1234') == 4660) ? "ok" : "not ok", " 23\n"; |
| 33 | print +(hex('0x1234') == 0x1234) ? "ok" : "not ok", " 24\n"; |
| 805ca49f |
34 | |
| 35 | print +(hex('x1234') == 0b1001000110100) ? "ok" : "not ok", " 25\n"; |
| 36 | print +(hex('x1234') == 011064) ? "ok" : "not ok", " 26\n"; |
| 37 | print +(hex('x1234') == 4660) ? "ok" : "not ok", " 27\n"; |
| 38 | print +(hex('x1234') == 0x1234) ? "ok" : "not ok", " 28\n"; |
projects / p5sagit/p5-mst-13.2.git / blame