[perl #31197] literal.t

[via RT]

# New Ticket Created by  Danny Werner 
# Please include the string:  [perl #31197]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=31197 >


Hi bugtracker,

Examples from the 2th aoudad book (page 127) did not
turn out as expected. Being completely new to this,
I did not know where to put the testcode.

HTH


use Parrot::Test tests => 1;

output_is(<<'CODE', <<'OUTPUT', "integer literals");
        print 0x2A
        print "\n"
        print 0X2A
        print "\n"
        print -0x2a
        print "\n"
        print 0b101010
        print "\n"
        print 0B101010
        print "\n"
        print -0B101010
        print "\n"
        end
CODE
42
42
-42
42
42
-42
OUTPUT