Printing literal "\0" in parrot: Sorry, forgot the attachment

[Joe Yates]

#! perl

use Parrot::Test tests => 5;
use Test::More;

output_is(<<'CODE', <<OUTPUT, "Plain numbers");
        print "1"
        print "\n"
        print "0"
        print "\n"
    end
CODE
1
0
OUTPUT

output_is(<<'CODE', <<OUTPUT, "Backslash");
        print "\\"
        print "\n"
    end
CODE
\\
OUTPUT

output_is(<<'CODE', <<OUTPUT, "Backslash and zero separate");
        print "\\"
        print "\n"
        print "0"
        print "\n"
    end
CODE
\\
0
OUTPUT

output_is(<<'CODE', <<OUTPUT, "Backslash and one");
        print "\\1"
        print "\n"
    end
CODE
\\1
OUTPUT

output_is(<<'CODE', <<OUTPUT, "Backslash and zero");
        print "\\0"
        print "\n"
    end
CODE
\\0
OUTPUT