2 # Copyright (C) 2001-2005, Parrot Foundation.
7 t/op/literal.t - Testing the PIR lexer
11 % prove t/op/literal.t
15 Tests the lexing of literal numbers. Taken from from the 2nd
16 aoudad book (page 127).
21 .include 'test_more.pir'
24 test_integer_literals_in_pir()
27 .sub test_integer_literals_in_pir
28 is( 0x2A, 42, 'Integer hex literals in PIR' )
29 is( 0X2A, 42, 'Integer hex literals in PIR' )
30 is( 0b101010, 42, 'Integer binary literals in PIR' )
31 is( 0B101010, 42, 'Integer binary literals in PIR' )
36 # cperl-indent-level: 4
39 # vim: expandtab shiftwidth=4 ft=pir: